Bonjour à tous,
J'ai rencontré un problème que je ne parviens pas à m'expliquer dans une macro, j'espérais trouver de l'aide ici.
Voila le début de la macro (elle est très longue mais le problème apparait tot)

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
Sub Ban()
 
Dim l1, l2, l3, l4, l5, l6, l7, kw, lr1, lr2, lr3, lr4, lr5, lr6, lr7, q1, q2, q3, q4, q5, q6, q7, v, w, x As Integer
Dim y, b, b1, b2, b3, b4, b5, bs As Long
Dim t1, t2, t3, t4, t5 As Boolean
 
Dim m As String
 
Application.ScreenUpdating = False
 
kw = Workbooks("Planung Übersicht.xlsm").Sheets("Instructions").Cells(10, 7).Value
m = Workbooks("Planung Übersicht.xlsm").Sheets("Instructions").Cells(12, 7).Value
y = Workbooks("Planung Übersicht.xlsm").Sheets("Instructions").Cells(15, 7).Value
 
 
 
Workbooks("Bänder    " & y & ".xls").Activate
lr6 = Workbooks("Bänder    " & y & ".xls").Sheets("KW " & kw).Cells(Rows.Count, 1).End(xlUp).Row
l6 = 35
 
'starting from the bottom as planned qty is written in the last day for continuous jobs
 
l7 = 7
 
b1 = 0
b2 = 0
b3 = 0
b4 = 0
b5 = 0
 
t1 = False
t2 = False
t3 = False
t4 = False
t5 = False
 
y = 0
 
For y = lr6 To 7 Step -1
 
'day off?
 
    If Workbooks("Bänder    " & y & ".xls").Sheets("KW " & kw).Cells(y, 7).Interior.ColorIndex = 3 Then
 
...
Lorsque l'execution passe sur les lignes

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 
Workbooks("Bänder    " & y & ".xls").Activate
lr6 = Workbooks("Bänder    " & y & ".xls").Sheets("KW " & kw).Cells(Rows.Count, 1).End(xlUp).Row
Il n'y a aucun souci, la macro continue tranquillement...

Mais, lorsqu'on arrive au

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
If Workbooks("Bänder    " & y & ".xls").Sheets("KW " & kw).Cells(y, 7).Interior.ColorIndex = 3 Then
C'est le drame, la fatidique erreur 9...

J'ai pensé que le problème venait des noms de classeur/feuilles mais pourquoi la première ligne passerait alors? J'ai bien copié/collé ce qui était ecrit dans la ligne qui fonctionnait mais rien n'a changé.

J'ai essayé de changer la variable "y" par un chiffre fixe pour voir si elle était la cause du problème et pareil, erreur 9.

Je sais aussi que ces noms de classeurs sont pour le moins horribles mais je dois helas satisfaire la demande du client qui lui ne veut pas supprimer tous ces espaces...

Merci de votre aide!