Bonjour, j'utilisais ceci pour garder la feuille du mois en cours active
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Sheets(MonthName(Month(Date), False)).Visible = True
J'aurais besoin maintenant de masquer toutes les feuilles sauf celles qui contient le mois en cours mais je n'arrive pas à saisir le bon code pourriez vous m'aider?
Merci à tous

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Private Sub Workbook_Open()
Sheets(MonthName(Month(Date), False)).Visible = True
 
Dim cptr As Byte
 
For cptr = 1 To ThisWorkbook.Sheets.Count
    If Sheets(cptr).Name <> MonthName Then
        Sheets(cptr).Visible = 0
    End If
Next