Erreur 1004 - changement onglet

Bonjour à toutes et à tous

J'ai un code tout simple qui ne veut plus marcher sur certains classeur.

Le code est :

Sub nextonglet()

Sheets("AR per customer").Select

ActiveSheet.Next.Select

End Sub

Lorsque je l'exécute, j'ai un message d'erreur '1004' "La méthode Select de la classe Worksheet a échoué"

Je ne comprend pas du tout d'où ça vient, j'ai beau cherché je ne comprends pas

Je vous joints mon fichier

Merci pour votre aide!

Bonne journée,

Bonjour,

Ça ne fonctionne pas parce que la feuille suivante est masquée, elle ne peut donc pas être sélectionnée !

boujour,

edit: bonjour Patrice33740

pas de macro dans le fichier, donc on doit utiliser notre boule cristal.

le problème est que l'onglet suivant AR per customer est un onglet caché et que c'est une opération que vba ne peut pas faire.

Bonjour tout le monde,

à tester

Sub nextonglet()
Dim sh As Worksheet
Dim sh_Suivante, sh_Total As Long

Set sh = Sheets("AR per customer")

sh.Select
sh_Suivante = ActiveSheet.Index + 1
sh_Total = ActiveWorkbook.Sheets.Count

    If sh_Suivante > sh_Total Then
        MsgBox "C'est la dernière Feuille qui est affichée!", vbInformation, "Feuille Suivante"
        ElseIf Sheets(sh_Suivante).Visible = False Then
        Sheets(sh_Suivante).Visible = True
        Sheets(sh_Suivante).Activate
        ' Début Procedure
        '....
        ' Fin Procedure
        Sheets(sh_Suivante).Visible = False
        sh.Select
    Else
        Sheets(sh_Suivante).Activate
        ' Début Procedure
        '....
        ' Fin Procedure
    End If
End Sub

Bonne journée

Bonjour

une petite modife a voir

Sub nextonglet()

Sheets("AR per customer").Select
ActiveSheet.Next.Visible = -1
ActiveSheet.Next.Select

End Sub

A+

Maurice

Merci ! je n'avais effectivement pas pensé qu'il pouvait y avoir des feuilles cachés