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 : 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
 
 
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,
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
If Fichier <> "aa.xls" And Fichier <> "bb.xls" And Fichier <> "cc.xls"
peut - il être remplacer par un truc plus court du style
fichier<>(aa.xls,bb.xls,cc.xls) ?

merci