2 votes

VBA : Formatage de la date aux normes américaines

J'ai un Macro qui écrit un courriel tous les jours. Pour le titre de l'email, la macro formate l'entrée de la date trouvée dans une cellule spécifique, comme ceci :

Period = ThisWorkbook.Sheets("aux").Cells(2, 1)
MsgBCC = ""
MsgFrom = "----Specific email address here----"
MsgSub = "Daily Update  (" & Format(Period, "dd/mmm") & ")"
Msg = "<html><body><font color=#303030 size=""3"" face=""Trebuchet MS"">"

Le problème est que je veux changer le formatage de la date pour qu'elle affiche le nom du mois en anglais (qui n'est pas la langue par défaut de mon ordinateur). Je veux que la date soit au format "dd/mm", comme "10/Feb" pour le 10 février, par exemple.

Je peux changer le formatage de la date en anglais en utilisant le format "Custom" dans une feuille de calcul. Les "coordonnées" du format que je souhaite sont les suivantes [$-409]mmm/aa;@ . Ils sont générés par Excel, comme ceci :

enter image description here

Lorsque j'essaie d'utiliser ce format dans le fichier VBA Format mais l'édition de la date ne change pas.

Comment puis-je modifier le format de la date ?

2voto

Doug Coats Points 2754
Application.Text(date(),"[$-40e]dddd") 

Référence :
https://sites.google.com/site/e90e50fx/home/Month-day-names-with-Excel-formula

Prograide.com

Prograide est une communauté de développeurs qui cherche à élargir la connaissance de la programmation au-delà de l'anglais.
Pour cela nous avons les plus grands doutes résolus en français et vous pouvez aussi poser vos propres questions ou résoudre celles des autres.

Powered by:

X