Jour mois Année en cours

[JPP]

Bonjour,

Voici mon Pb : j'ai un UserForm sur lequel est placé un Calendar, jusqu'ici tt va bien.
Mon calendrier s'obstine à figer une date antérieur et je n'arrive pas à lui faire afficher la date du jour qui est en cours .
Voici ce que j'ai écrit:

Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
ActiveCell.NumberFormat = 'dd-mmm.yy'
End Sub

Private Sub CommandButton1_Click()
Unload UserForm2
End Sub

Private Sub UserForm_Activate()
Me.Calendar1.Value = Date
End Sub

Merci par avance si qqn à 1 combine ...

 

[lapix]

bonsoir

Je n'ai pas testé mais si tu mets ton code dans INITIALIZE au lieu de ACTIVATE ca ne marcherait pas mieux ?

 

[JPP]

lapix écrit:

bonsoir

Je n'ai pas testé mais si tu mets ton code dans INITIALIZE au lieu de ACTIVATE ca ne marcherait pas mieux ?

Bonsoir,

Merci pour ta réponse, mais hélas cela ne marche pas, celui-ci reste impassible à ce code ...le vilain!