XL 2010 Macro sur plusieurs feuilles sauf 2

[Tony44]

Bonjour,

je cherche un code pour appliquer une macro sur toutes les feuilles du classeur sauf 2.
une des feuilles s'appelle "b34" et l'autre s'appelle "TCD"

en fait, la macro que j'ai créé lance une autre macro appelée 'Avancement', mais je veux pas que cette macro s'applique au 2 feuilles nommées ci-dessus.

comment puis-je écrire mon code ?

pour l'instant j'ai fais ça :


Sub Nb_Feuille()

Dim Feuille As Worksheet

For Each Feuille In ThisWorkbook.Worksheets

With Feuille
Application.Run "'Signa_20171030_B34_mis en forme - S45.xlsm'!avancement"
End With

Next Feuille

End Sub

 

[phlaurent55]

Bonjour Tony,

essaie ceci:

Sub Nb_Feuille()

Dim Feuille As Worksheet

For Each Feuille In ThisWorkbook.Worksheets
If Feuille.Name <> "b34" And Feuille.Name <> "TCD" Then
With Feuille
Application.Run "'Signa_20171030_B34_mis en forme - S45.xlsm'!avancement"
End With
End If
Next Feuille

End Sub

à+
Philippe

 

[Tony44]

Bonjour Tony,

essaie ceci:

Sub Nb_Feuille()

Dim Feuille As Worksheet

For Each Feuille In ThisWorkbook.Worksheets
If Feuille.Name <> "b34" And Feuille.Name <> "TCD" Then
With Feuille
Application.Run "'Signa_20171030_B34_mis en forme - S45.xlsm'!avancement"
End With
End If
Next Feuille

End Sub

à+
Philippe

Bonjour Philippe,

malheureusement ça ne marche pas, la macro qui doit se lancer sur tous les onglets sauf le b34 et le TCD se lance qd meme dessus.

 

[phlaurent55]

Re,

Petite erreur due à la précipitation,

Remplace "And" par "Or"

À+
Philippe

 

[Tony44]

Re,

Petite erreur due à la précipitation,

Remplace "And" par "Or"

À+
Philippe

je comprend pas, ça bug.

je me permet de mettre le fichier en pièce jointe, je comprend pas pourquoi ça bug.
qd je suis sur l'onglet b34 et TCD, la macro ne marche pas et quand je me place que les autres, ça fonctionne bien.

 

[Tony44]

Quelqu'un a une idée ?