Boucle excluant une feuille

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

  1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    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
  2. touroul Messages postés 520 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