Onglet visible en fonction de la date

Bonjour,

J'ai un classeur qui contient en onglets tous les mois de l'année.
Ils sont tous masqués à l'exception de celui du mois en cours.
J'aimerais l'automatiser en vba pour qu'il m'affiche à l'ouverture, l'onglet du mois en cours, et que celui du mois -1 passe en masqué.

J'ai trouvé ce code qui selectionne le mois -1, mais n'affiche pas un mois masqué en masquant le précédent.

Code:

---

1 2 3

Private Sub Workbook_Open() Sheets(MonthName(Month(Date) - 1, False)).Select End Sub

---

Quelles modifications apporter à ce code pour obtenir ce que je voudrais?
Merci beaucoup à vous.

J'ai fait ça qui fonctionne si ça peut aider....
Mais si quelqu'un a une idée pour le simplifier je suis preneur.

Code:

---

1 2	Sheets(MonthName(Month(Date), False)).Visible = True Sheets(MonthName(Month(Date) - 1, False)).Visible = False

---

Bjr :D

Je ne suis pas là pour t'aider mais essayer de comprendre ta macro, car je suis également intéressé.

Tu inseres ton code où : dans workbook avec la déclaration open

Sinon les onglets sont intitulés : Janvier , Février, etc... ou en Anglais
car j'ai essayé ton code mais c'est le flop, rien ne marche.:cry:

Cordialement

Bonjour,

Voici un exemple de code pour masquer toutes les feuilles à l’exception de celle qui porte le nom du mois en cours.

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Masquer() Dim Sh As Worksheet For Each Sh In Worksheets If Sh.Name = MonthName(Month(Date)) Then Sh.Visible = True Else Sh.Visible = False End If Next Sh End Sub

---

Cordialement.

Bjr, ce n'est pas moi qui est posté cette discussion à l'origine mais je tiens a te remercier.