Discussion :

[pr04860]

Bonsoir à tous,
Je souhaite initialiser la date du calendrier (MDT Picker Control 6.0) contenu dans Userform1 avec la date du jour et à partir du code d'un bouton de commande ChangerDate.
J'ai essayé sans succès avec Today inclus dans le code du bouton de commande qui appelle le calendrier.
J'ai également essayé avec la fonction AUJOURDHUI() d'Excel mais il semblerait que cette fonction ne soit pas prise en compte parVB.
Quelqu'un aurait-il la solution?
Merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Private Sub ChangerDate_Click()
 
UserForm1.Calendar1.Value = Today
UserForm1.Show
 
End Sub

[pr04860]

J'ai remplacé dans mon code Today par Date et j'obtiens le résultat attendu.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Private Sub ChangerDate_Click()
 
UserForm1.Calendar1.Value = Date
UserForm1.Show
 
End Sub