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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 ?