Boucle excluant une feuille

Résolu
Bonjour le forum

J'aurais besoin de votre compétence ...
Sur mes fichiers Excel, je mets systématiquement dans le ThisWorkbook un code ayant pour base une proposition de notre cher Gbinforme, qui sert, à l'ouverture du classeur uniquement, à remonter toutes les feuilles en A1.
Je cherche actuellement à adapter le code pour exclure cette remontée en A1 sur une feuille en particulier ('Mafeuille')

Voici le code :
Private Sub Workbook_Open()
Dim feu As Integer
For feu = 1 To Worksheets.Count
With Sheets(feu)
If .Type = xlWorksheet Then
If Worksheets(feu).Name = "Mafeuille" Then Next feu
.Activate
.Range("A1").Activate
End If
End With
Next feu
Sheets(1).Activate
[A1].Select
End Sub


Mais ce code me génère une erreur de compilation "Next sans For".

Puis-je vous demander de l'aide ?
Par avance merci !

2 réponses

  1. Bonjour,

    Private Sub Workbook_Open()
        Dim feu As Integer
        For feu = 1 To Worksheets.Count
            With Sheets(feu)
                If .Type = xlWorksheet Then
                    If Worksheets(feu).Name <> "Mafeuille" Then
                        .Activate
                        .Range("A1").Activate
                    End If
                End If
            End With
        Next feu
        Sheets(1).Activate
        [A1].Select
    End Sub
    0
    1. Merci beaucoup !

      Ça fonctionne impecc à présent.
      Pas bête l'histoire du "<>" je suis allé chercher trop compliqué.

      Bonne aprem et merci encore !
      0