Activer le Recto ou le Verso d'un calendrier

ascal44 · 6 Décembre 2010

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

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 · 6 Décembre 2010

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

Bonsoir ascal44,

Ci-après un exemple de code :

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 · 6 Décembre 2010

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

Merci , c'est exactement ce que je voulais

Activer le Recto ou le Verso d'un calendrier

ascal44

XLDnaute Occasionnel

Papou-net

XLDnaute Barbatruc

ascal44

XLDnaute Occasionnel

Discussions similaires

Activer le Recto ou le Verso d'un calendrier

ascal44

XLDnaute Occasionnel

Papou-net

XLDnaute Barbatruc

ascal44

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency