XL 2010 [VBA] format date anglaise

herve62

XLDnaute Barbatruc

Supporter XLD

• 5 Février 2018

• #2

Cela doit fonctionner

Code:

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

 

Vote positif 0 Vote négatif

F

F22Raptor

XLDnaute Impliqué

• 5 Février 2018

• #3

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

 

Vote positif 0 Vote négatif

T

Theze

XLDnaute Occasionnel

• 5 Février 2018

• #4

Bonjour,

Utilises la fonction Excel Texte (Text en anglais) :

Code:

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 5 Février 2018

• #5

Bonsoir Theze

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

VB:

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

 

Dernière édition: 5 Février 2018

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 5 Février 2018

• #6

Re

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

 

Vote positif 0 Vote négatif

F

F22Raptor

XLDnaute Impliqué

• 5 Février 2018

• #7

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

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 6 Février 2018

• #8

Bonsour®

F22Raptor à dit:

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

Cliquez pour agrandir...

"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.

 

Vote positif 0 Vote négatif

F

F22Raptor

XLDnaute Impliqué

• 6 Février 2018

• #9

En effet !
Ca ne s'invente pas

Merci pour l'explication

 

Vote positif 0 Vote négatif