Se positionner sur la feuille du mois en cours

[AUBELIX]

Bonjour à tous.

Ci-joint classeur des 12 mois de l'année. Avec les jours dans des cellules différentes. Mon problème, à l'ouverture de ce fichier, se positionner sur le mois en cours et la date du jour.
Merci pour votre aide.

 

[omicron]

Bonjour Aubelix,

Pour résoudre ton problème, il suffit de coder l'évènement "open" de l'objet Worbook de la façon suivante :

=====================================================
Private Sub Workbook_Open()
Sheets(Month(Now)).Cells(1, Day(Now) + 1).Select
End Sub
=====================================================

Si tu as besoin d'un exemple, n'hésite pas à "Rappeler" ....

@+

Omicron

 

[AUBELIX]

Bonjour.
Tout d'abord merci pour ta réponse.

Ca ne fonctionne pas sur mon application
Message d'erreur : La méthode select de la classe Range a échoué
(erreur d'exécution 1004)
L'as-tu essayé sur le fichier que je t"ai joint ?
Encore une fois merci de ton aide

 

[omicron]

Re-bonjour Aubelix,

Effectivement, il y avait une erreur grossière dans le code que je t'ai envoyé (en fait, la méthode Select ne peut s'appliquer qu'à un Range de la feuille active) et mon test était insuffisant. J'ai pu reprovoquer l'erreur que tu avais trouvée en faisant évoluer la date de ma machine.

Tu trouveras en pièce jointe ton exemple corrigé, en espérant cette fois que tout sera bon.

Cordialement.

Omicron.