XL 2010 [VBA] format date anglaise

[F22Raptor]

Hello
Si je fais dans VBA : msgbox Format(Date , "mmm-dd-yyyy")
je vais avoir févr-05-2018

Mais je voudrais celà à l'anglaise : Feb-05-2018

J'ai essayé :
msgbox Format(Date , "[$-809]mmm-dd-yyyy")
Mais j'ai tjs févr

Un moyen simple pour l'avoir à l'anglaise dans VBA ?

Merci !

 

[herve62]

Cela doit fonctionner

Sub dd()
D = Date
M = Month(D)
M_anglais = Choose(M, "Jan", "Feb", "March", "Apr", "May", "June", "Jul", "Sept", "Oct", "Nov", "Dec")
D = M_anglais & "-" & Day(D) & "-" & Year(D)
MsgBox D
End Sub

 

[F22Raptor]

Parfait ! Merci Hervé.
Quel dommage que ça n'existe pas en natif, mais tu m'as fait découvrir Choose !

 

[Theze]

Bonjour,

Utilises la fonction Excel Texte (Text en anglais) :

MsgBox Application.Text(Date, "[$-0409]mmm-dd-yyyy")

 

[Staple1600]

Bonsoir Theze

Même idée que toi (mais à 20h18 )
Donc trop tard et trop long

Sub DateAnglais()
MsgBox WorksheetFunction.Text(Date, "[$-409]mmm-dd-yyyy")
End Sub

 

[Staple1600]

Re

Maintenant la question est :
Pourquoi la dernière syntaxe ne fonctionne pas ???

Sub DateAnglais_Test()
Dim USA$
USA = "[$-409]mmm-dd-yyyy"
MsgBox Application.WorksheetFunction.Text(Date, USA)
MsgBox WorksheetFunction.Text(Date, USA)
MsgBox Application.Text(Date, USA)
MsgBox Format(Date, USA)
End Sub

 

[F22Raptor]

Merci Staple.
En effet, c'est bizarre que FORMAT ne prenne pas le $-409

 

[Modeste geedee]

Bonsour®

Merci Staple.
En effet, c'est bizarre que FORMAT ne prenne pas le $-409

"By Design" : square brackets [ ] <===> Evaluate
[$-409] est évalué à l'exécution comme un objet Range.
A la compilation, VBA ne sait pas ce dont il s'agit...

Laurent Longre m'avait proposé cette explication le 11/01/2000
Le code [*** ] est spécifique à Excel (feuille de calcul).
Tu ne peux pas l'utiliser avec la fonction VBA Format, qui dispose de ses
propres codes ne recoupant pas forcément ceux (TEXTE) des cellules de feuilles de calcul.

 

[F22Raptor]

En effet !
Ca ne s'invente pas

Merci pour l'explication