Bonjour sur un calendrier
j'aimerai ajouter 3 jours a la date du calendrier.
Comment faire cela?
Private Sub UserForm_Initialize()
Caption = StrConv(Format(Now, "mmmm dddd yyyy"), vbProperCase)
End Sub
Private Sub Calendar1_Click()
UserForm9.txtdatepubli.Value = Calendar1.Value: UserForm9.txtdatepubli.SetFocus
Unload Me
End Sub
Merci
j'aimerai ajouter 3 jours a la date du calendrier.
Comment faire cela?
Private Sub UserForm_Initialize()
Caption = StrConv(Format(Now, "mmmm dddd yyyy"), vbProperCase)
End Sub
Private Sub Calendar1_Click()
UserForm9.txtdatepubli.Value = Calendar1.Value: UserForm9.txtdatepubli.SetFocus
Unload Me
End Sub
Merci