Vérifier le nom d'une feuille Excel sous VBA

Version imprimable

Bonjour à tous,

J'ai eu beau chercher à plusieurs reprises, mais je n'ai pas trouvé la solution à mon problème : je veux parcourir les feuilles d'un classeur et, en fonction du nom des feuilles, lancer une macro d'impression ou une macro pour faire une copie de la feuille.

Voici mon code qui boucle sur les feuilles :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 Sub BoucleFeuilles() Dim x As Integer Dim nomFeuil As String Worksheets(1).Select For x = 2 To 15 Worksheets(x).Select nomFeuil = ActiveSheet.Name If nomFeuil = "Damart" Or "Mondial" Or "Redcats" Or "Qualigroupe Red" Then If Range("G37").Value <> 0 Then Call ImprimFeuil End If Else If Range("G37").Value <> 0 Then Call FichierExcel End If End If Next x End Sub
A priori j'ai un problème avec la ligne 14, puisque je reçois un message d'erreur (erreur d'exécution '13' : Incompatibilité de type) en passant cette ligne. Il me semblait que le nom d'une feuille était de type String, raison pour laquelle j'ai mis un type string à ma variable nomFeuil.

Quelqu'un aurait une idée de la cause de cette erreur, SVP ?

16/08/2013, 10h20
EngueEngue

Bonjour

Code:

If nomFeuil = "Damart" Or nomFeuil ="Mondial" Or nomFeuil ="Redcats" Or nomFeuil ="Qualigroupe Red" Then
16/08/2013, 10h21
78chris

Bonjour

Code:

nomFeuil = "Damart" Or "Mondial"...

doit être

Code:

nomFeuil = "Damart" Or nomFeuil = "Mondial"...
16/08/2013, 10h24
Virk59

Ca marche nickel, merci beaucoup :ccool:

J'avais voulu trop simplifier ma syntaxe, une erreur du débutant que je suis :oops:

Bonsoir,

Quand tu dis :

Citation:

J'avais voulu trop simplifier ma syntaxe....

Tu peux tout de même soulager ton code, plutôt que :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub BoucleFeuilles()
 
Dim x As Integer
Dim nomFeuil As String
 
 
Worksheets(1).Select
 
For x = 2 To 15
 
    Worksheets(x).Select
    nomFeuil = ActiveSheet.Name
 
    If nomFeuil = "Damart" Or "Mondial" Or "Redcats" Or "Qualigroupe Red" Then
        If Range("G37").Value <> 0 Then
            Call ImprimFeuil
        End If
 
    Else
 
        If Range("G37").Value <> 0 Then
            Call FichierExcel
        End If
    End If
Next x
 
End Sub

évites les select comme ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub BoucleFeuilles()
 
Dim x As Integer
Dim nomFeuil As String
For x = 2 To 15
  nomFeuil = Sheets(x).Name
  '........
 
Next x
 
 
End Sub