Calendar1 à la date du jour à l'ouverture du fichier

[meldja]

Bonjour,
Cela fait un moment que je ne suis pas venu ici.
J'ai un fichier qui s'ouvre sur une feuille avec un contrôle calendar1.
Je voudrais que ce contrôle soit à la date du jour à l'ouverture du fichier.
J'ai vu des sujets sur ce site qui concernait des userforms.
J'ai essayé d'appliquer la méthode à l'ouverture du fichier (Private Sub Workbook_Open()), avec la méthode :

Calendar1.value = Date

ou encore

Me.calendar1.value = Date

Mais j'ai une erreur à chaque fois ; je précise que je tourne sous office 2007.
Si quelqu'un a une solution, merci d'avance

 

[pierrejean]

Re : Calendar1 à la date du jour à l'ouverture du fichier

bonjour meljda

A tester dans le module de la feuille :

Private Sub Worksheet_Activate()
Calendar1 = Date
End Sub

 

[meldja]

Re : Calendar1 à la date du jour à l'ouverture du fichier

Merci pour la réponse.
Ca le fait nickel quand je lance une procédure qui, ensuite, active la feuille où se trouve le calendar1, mais pas à l'ouverture du fichier, et c'est ce que je cherche.
A l'ouverture du fichier, j'ai essayé de lancer l'activation de la feuille contenant le calendar1, en espérant que ça lance la MAJ du calendar1, mais ça ne le fait tjrs pas

 

[meldja]

Re : Calendar1 à la date du jour à l'ouverture du fichier

Je crois que l'évènement sur ouverture du fichier ne marche pas.
Lorsque je mets le code à l'ouverture du fichier, rien ne se passe :

Private Sub Workbook_SheetOpen(ByVal Sh As Object)
Sheets("SAISIE").Activate
Sheets("SAISIE").Range("A4").Select
End Sub

La cellule A4 n'est pas sélectionnée, et la date du calendar1 n'est pas non plus mie à jour par conséquent

 

[meldja]

Re : Calendar1 à la date du jour à l'ouverture du fichier

En fait le code sur l'activation de la feuille marche très bien lorsque l'on navigue dans les feuilles mais pas à l'ouverture du fichier. D'ailleurs, même ma sélection d'une cellule à l'ouverture du fichier ne marche pas.

 

[pierrejean]

Re : Calendar1 à la date du jour à l'ouverture du fichier

Re

Teste ceci dans Thisworkbook

Private Sub Workbook_Open()
Sheets("SAISIE").Activate
Sheets("SAISIE").Range("A4").Select
Sheets("SAISIE").Calendar1 = Date
End Sub

 

[meldja]

Re : Calendar1 à la date du jour à l'ouverture du fichier

Merci pierrejean (avec du retard), ça marche