Erreur 9 sur ouverture feuille mois en cours - 1

Bonsoir le forum et bonne année 2015,

Mon classeur s'ouvre directement sur la feuille Menu puis ouvre la feuille (masquée) du mois en cours - 1 (nous sommes en Janvier donc cela ouvre la feuille de Décembre) je dis ouvre mais plutôt devrait ouvrir car depuis Janvier cela bug et me met "erreur 9 l'indice n'appartient pas à la sélection" ! Alors que je n'ai eu aucun problème auparavant !

Private Sub Workbook_Open()

Dim Feuille As String

Feuille = Split(ListeFeuillesCachees, "?")(Month(Date) - 1)

Sheets(Feuille).Visible = True <= cela bug à ce niveau

Sheets(Feuille).Activate

End Sub

Est-ce dû au changement d'année ? Ou alors doit-on dire à la macro que si nous sommes en Janvier elle doit ouvrir la feuille de Décembre car pour le reste de l'année celà fonctionne sans problème.

D'avance merci pour votre aide

Bonsoir Libellule, bonsoir le forum,

Remplace dans le composant ThisWorkbook la procédure Private Sub Workbook_Open() par celle-ci :

Private Sub Workbook_Open()
Dim Feuille As String
Dim M As Byte

M = IIf(Month(Date) = 1, 12, Month(Date) - 1)
Feuille = Split(ListeFeuillesCachees, "?")(M)
Sheets(Feuille).Visible = True
Sheets(Feuille).Activate
End Sub

Au cas où, ton fichier modifié :

Bonjour ThauThème,

Un grand merci pour ta réponse, celle-ci fonctionne à merveille.

Bonne journée