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. 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
    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