S
SARAH
Guest
Bonjour à tous !
Une petite question....Si vous me le permettez...
Ci-dessous, le code VBA de mon calendrier apparaissant dans un USF.
Actuellement, lorsqu'il apparait, il est à une date aléatoire ...
Qu'est ce que je dois rajouter dans mon code, pour qu'il se cale à la date du jour ?
Merci à tous !!!!!
*********************************************************
Option Explicit
Private Sub Calendar1_Click()
ActiveCell = Format(Calendar1, "ddd DD mmm YY")
Unload Me
End Sub
Private Sub Quitter_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
With Calendar1
.Day = Day(Now)
.Month = Month(Now)
End With
End Sub
Une petite question....Si vous me le permettez...
Ci-dessous, le code VBA de mon calendrier apparaissant dans un USF.
Actuellement, lorsqu'il apparait, il est à une date aléatoire ...
Qu'est ce que je dois rajouter dans mon code, pour qu'il se cale à la date du jour ?
Merci à tous !!!!!
*********************************************************
Option Explicit
Private Sub Calendar1_Click()
ActiveCell = Format(Calendar1, "ddd DD mmm YY")
Unload Me
End Sub
Private Sub Quitter_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
With Calendar1
.Day = Day(Now)
.Month = Month(Now)
End With
End Sub