Bonjour

Je suis bloqué avec ce code... Il me génère à chaque fois une erreur car je pense qu'il est impossible d'imbriquer plusieurs Dir mais je ne sais pas comment contourner cet obstacle...

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
Sub MODIFICATION()
    Dim MyFolder87, MyFolder86, MyFolder79, MyFolder17, MyFolder16 As String
    Dim MyFile87, MyFile86, MyFile79, MyFile17, MyFile16 As String
 
    MyFolder87 = "\BASE CLIENTS\87"
    MyFolder86 = "\BASE CLIENTS\86"
    MyFolder79 = "\BASE CLIENTS\79"
    MyFolder17 = "\BASE CLIENTS\17"
    MyFolder16 = "\BASE CLIENTS\16"
    MyFile87 = Dir(MyFolder87 & "\" & Range("D6").Value & "*.xlsx")
    MyFile86 = Dir(MyFolder86 & "\" & Range("D6").Value & "*.xlsx")
    MyFile79 = Dir(MyFolder79 & "\" & Range("D6").Value & "*.xlsx")
    MyFile17 = Dir(MyFolder17 & "\" & Range("D6").Value & "*.xlsx")
    MyFile16 = Dir(MyFolder16 & "\" & Range("D6").Value & "*.xlsx")
 
    If Range("D12").Value Like "87*" And MyFile87 <> "" Then
    Do While MyFile87 <> ""
    Workbooks.Open Filename:=MyFolder87 & "\" & MyFile87
    MyFile87 = Dir
    Loop
    ElseIf Range("D12").Value Like "86*" And MyFile86 <> "" Then
    Do While MyFile86 <> ""
    Workbooks.Open Filename:=MyFolder86 & "\" & MyFile86
    MyFile86 = Dir
    Loop
    ElseIf Range("D12").Value Like "79*" And MyFile79 <> "" Then
    Do While MyFile79 <> ""
    Workbooks.Open Filename:=MyFolder79 & "\" & MyFile79
    MyFile79 = Dir
    Loop
    ElseIf Range("D12").Value Like "17*" And MyFile17 <> "" Then
    Do While MyFile17 <> ""
    Workbooks.Open Filename:=MyFolder17 & "\" & MyFile17
    MyFile17 = Dir
    Loop
    ElseIf Range("D12").Value Like "16*" And MyFile16 <> "" Then
    Do While MyFile16 <> ""
    Workbooks.Open Filename:=MyFolder16 & "\" & MyFile16
    MyFile16 = Dir
    Loop
    Else
    End Sub
End Sub
Je dispose de plusieurs dossiers avec plusieurs fichiers Excel dans chaque dossier et j'aimerai ouvrir les fichiers avec pour nom la valeur inscrite dans la cellule D6.

Si vous avez une idée, elle sera la bienvenue
Merci !