Boucle excluant une feuille

Résolu
touroul Messages postés 509 Date d'inscription   Statut Membre Dernière intervention   -  
touroul Messages postés 509 Date d'inscription   Statut Membre Dernière intervention   -
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

f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 715
 
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
touroul Messages postés 509 Date d'inscription   Statut Membre Dernière intervention   16
 
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