Attribution à une variable - Erreur d'exécution 91: Variable objet ou variable de bloc With non définie
Bonjour à toutes et à tous,
J'ai déjà eu le même message dans une autre situation et c'était parce que je n'avais pas mis Set avant la variable de type objet (voir cette discussion).
Cette fois, je ne vois pas pourquoi ça ne fonctionne pas. L'erreur est au niveau de la ligne en gras:
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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
| Sub t()
Dim cl As Workbook
Dim cl1 As Workbook
Dim cl2 As Workbook
Dim cl3 As Workbook
Dim Fd1 As Worksheet
Dim Fd2 As Worksheet
Dim Fd3 As Worksheet
For Each cl In Workbooks
If Left(cl.Name, 8) = "Classeur" Then
Select Case Mid(cl.Sheets(1).Range("D2"), 11, 1)
Case Is = 1
Set cl = cl1
Set Fd1 = cl1.Sheets(1)
Case Is = 2
Set cl = cl2
Set Fd2 = cl2.Sheets(1)
Case Is = 3
Set cl = cl3
Set Fd3 = cl3.Sheets(1)
Case Else
MsgBox "Autre"
End Select
End If
Next
MsgBox cl1.Name & " " & cl2.Name & " " & cl3.Name
End Sub |
Y a-t-il un ou une génie dans les parages?
