Prof format de Date

[dj]

Salut à tous


Voila un petit prob,


Private Sub Calendrier_click()
txtDate.Value = Calendrier.Value

mais txdate me donne comme format jj/mm/aa
comment faire pour avoir jjjj jj mmmm aaaa

merci et @ +

 

[@+Thierry]

Salut Dj

ben c'est juste un truc comme çà qu'il te faut...
Sub toto()
MsgBox Format(Now, "DDDD DD MMMM YYYY")
End Sub

Maintenant dans ton context essaie directement comme ça... (c'est quel ActiveX ton Calendrier ?)
txtDate.Value = Format(Calendrier.Value, "DDDD DD MMMM YYYY")


et si ça passe pas essaie comme ceci :
Private Sub Calendrier_click()
Dim MaDate as Date
Madate = Calendrier.Value
txtDate.Value = Format(Madate, "DDDD DD MMMM YYYY")
End Sub

Voilà, pas très compliqué
Bon Travail
@+Thierry