Bonjour,
je souhaiterais ouvrir certains dossier et pas d'autre afin de prendre certain données
voici mon code pour ouvrir les fichier excel
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 Dim Fichier As String, Chemin As String Dim Wb As Workbook Chemin = "D:Nouveau dossier (3)\" Fichier = Dir(Chemin & "*.xls") 100 If Fichier <> "aa.xls" And Fichier <> "bb.xls" And Fichier <> "cc.xls" Then Do While Fichier <> "" Set Wb = Workbooks.Open(Chemin & Fichier) Wb.Close Set Wb = Nothing Fichier = Dir Loop Else Fichier = Dir GoTo 100 End If
le problème vient du fait que dés que on rentre dans la boucle DO ,le code ouvre le fichier bb.xls car il repasse pas par le IF .
COmment corriger le problème?
Une solution serait de remplacer le DO par un autre IF ... y a-til d'autres solutions?
Par ailleurs,
peut - il être remplacer par un truc plus court du styleCode:
1
2 If Fichier <> "aa.xls" And Fichier <> "bb.xls" And Fichier <> "cc.xls"
fichier<>(aa.xls,bb.xls,cc.xls) ?
merci