Activer le Recto ou le Verso d'un calendrier

[ascal44]

Bonjour ,
j'ai un calendrier semestriel ; sur la première page " Recto" se trouve les six premier mois et sur la deuxième page "Verso" les six derniers mois de l'année.

A l'ouverture du classeur je voudrais activer la feuille "Recto" ou " Verso" en fonction de la date actuelle.

Voici un début de code

Private Sub Workbook_Open()

Sheets("Recto").Activate

Application.ScreenUpdating = False

Sheets("Fêtes").Activate
message
message2
Sheets("Verso").Activate
End Sub

Merci pour votre aide

 

[Papou-net]

Re : Activer le Recto ou le Verso d'un calendrier

Bonsoir ascal44,

Ci-après un exemple de code :

Private Sub Workbook_Open()
    If Month(Date) < 7 Then Sheets("Recto").Activate Else Sheets("Verso").Activate
End Sub

Espérant avoir répondu.

Cordialement.

 

[ascal44]

Re : Activer le Recto ou le Verso d'un calendrier

Merci , c'est exactement ce que je voulais