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