Sub Date_Internationale()
Dim myDate As Date
myDate = Date
Cells(1, 1).NumberFormat = "m/d/yyyy"
Cells(1, 1).Value = CDate(myDate)
MsgBox Format(CDate(myDate), "Long Date")
MsgBox Format(CDate(myDate), "Short Date")
End Sub
Sub DateAnglaise()
Dim dat As Long
dat = CDate("12/5") 'CLng(CDate("12/5"))
MsgBox Evaluate("TEXT(" & dat & ",""dd-mmm"")")
End Sub
Bonjour.
Il y a beaucoup de formats de date anglais. Il y a le format anglais des Etats-Unis, de l'Irlande, de l'Inde et beaucoup d'autres.
Si tu veux en voir les différences, va dans le Panneau de configuration / Régions et langues et choisis les différents formats anglais offerts par Windows.
Sub test()
Dim mydate As Date
mydate = Date
Cells(1, 1).Value = mydate
Cells(1, 1).NumberFormat = "[$-409]dd - mmm"
MsgBox Cells(1, 1).Text
End Sub
Donc la solution à la question de awa123 est de passer par une cellule d'une feuille Excel.
Sub DateAnglaise()
Dim dat As Long
dat = CDate("12/8") 'CLng(CDate("12/8"))
MsgBox Evaluate("TEXT(" & dat & ",""dd-mmm"")")
[A2] = Evaluate("TEXT(" & dat & ",""dd-mmm"")")
End Sub
Sub DateAnglaise()
Dim dat As Long, x As String
dat = CDate("12/8") 'CLng(CDate("12/8"))
x = Evaluate("TEXT(" & dat & ",""dd-mmm"")")
MsgBox x
'[A2].NumberFormat = "[$-409]dd - mmm"
'[A2].NumberFormat = "@" 'format Texte
'[A2] = x
[A2] = "'" & x
End Sub
Re,
Bonjour job75.
Désolé.
J'avais ignoré ta solution avec la fonction Evaluate que je n'avais jamais utilisé car elle me semblait plutôt complexe.
Pour arriver comprendre ta solution et à pouvoir l'utiliser, je l'ai simplifiée et ça donne ceci :
'Basé sur le fichier de modestegeedee et le code de job75
Code:Sub DateKhmer() Dim dat As Long NumberFormat = "[$-470]dd-mmm" dat = Date Cells(12, 1) = Evaluate("TEXT(" & dat & "," & Chr(34) & NumberFormat & Chr(34) & ")") End Sub
Pour arriver comprendre ta solution et à pouvoir l'utiliser, je l'ai simplifiée et ça donne ceci :
'Basé sur le fichier de modestegeedee et le code de job75
Code:Sub DateKhmer() Dim dat As Long NumberFormat = "[$-470]dd-mmm" dat = Date Cells(12, 1) = Evaluate("TEXT(" & dat & "," & Chr(34) & NumberFormat & Chr(34) & ")") End Sub
Sub DateKhmer2()
Dim Lcid As String
Lcid = "[$-470]ddd dd-mmmm yyyy"
Cells(12, 1).NumberFormat = Lcid
Cells(12, 1) = Now()
MsgBox Evaluate("TEXT(Now() ," & Chr(34) & Lcid & Chr(34) & ")"), vbInformation, "Valeur texte !!!"
MsgBox Cells(12, 1).Text & Chr(10) _
& "valeur cellule = " & Cells(12, 1).Value2, vbExclamation, "Format et N° de serie"
End Sub