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
Maintenant la question est :
Pourquoi la dernière syntaxe ne fonctionne pas ???
VB:
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
"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.