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 :
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.
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
Quelqu'un aurait une idée de la cause de cette erreur, SVP ?
Partager