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 : 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
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?