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...
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.
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
Si vous avez une idée, elle sera la bienvenue
Merci !
Partager