spécifié un format de date anglais

[portgas]

Bonjour,

J'essaye de récupérer le contenu d'une cellule sous le format anglais dd-mmm-yy.
Dans Excel, cela s'affiche parfaitement par exemple: 19-Feb-08
mais lorsque je réupère cette valeur dans une macro et l'insère dans un fichier je récupère cette date:
19-févr-08.
Ma macro:

Sub import()
text_trade_date = Workbooks("JABCAP.xls").Worksheets("Sheet2").Cells(i, 2).Value
text_trade_date = Format(text_trade_date, "[$-409]dd-mmm-yy;@")
Cells(i,16) = text_trade_date
Cells(i,16).Select
Open "C:\tmp\test.txt" For Output As #1
Print #1, ActiveSheet.Cells(i, 16)
Close #1

End Sub

 

[RENAUDER]

Re : spécifié un format de date anglais

Bonjour,

Si tu inverses dd et mmm ...
text_trade_date = Format(text_trade_date, "[$-409]mmm-dd-yy;@")

 

[astralon]

Re : spécifié un format de date anglais

bonjour Renauder, portgas

pour une solution simple, essaye de changer le format de cellule => date => tu choisis le pays (en dessous)

bien à vous 2

 

[portgas]

Re : spécifié un format de date anglais

Merci pour vos réponses.
J'ai testé les deux méthodes.
mais même si j'inverse mois et jours j'ai toujours mon mois en caractère français.
Pour la localisation de la cellule, je suis bien en ENGLISH (United states).

Mais malheureusement, cela ne fonctionne toujours pas.
J'ai bien essayé de passé mon windows en anglais, mais j'ai la même chose.