DTPICKER1 à la date du jour dans userform

Bonjour
Voir ci-dessous

Le contrôle DatePicker permet d'afficher un calendrier déroulant dans un UserForm.
Vous pouvez utiliser cet objet en sélectionnant "Microsoft Date and Time Picker Control 6.0" dans la liste des contrôles supplémentaires.

Cet exemple permet d'initialiser la date du jour dans le calendrier et affiche la date sélectionnée.
Vba

Private Sub UserForm_Initialize()
'spécifie la date du jour lors de l'affichage de l'USF
DTPicker1.Value = Now
End Sub

Private Sub DTPicker1_Change()
MsgBox DTPicker1.Value
End Sub

lorsque tu est dans ta fenetre vb, dans le module de l'userform, en haut tu as outils/controle supplementaire tu coche microsoft date and time pickers controle 6.0 (SP4) et tu pourras le rajouter a ton userform comme le reste

Cordialement

En principe, la date du jour est automatiquement affichée, mais si tu
souhaites forcer l'affichage, ceci devrait convenir:

Private Sub UserForm_Initialize()
DTPicker1.Day = Day(Date)
DTPicker1.Month = Month(Date)
DTPicker1.Year = Year(Date)
End Sub