Bonjour, j'ai un problème incohérent avec mon programme qui demande à ouvrir des fichiers dans un dossier. J'ai fais une boucle pour savoir s'il trouvait des fichiers dans le dossier et il me dit que non... (alors que j'ai 2 fichiers dans le dossier spécifié). Sans la boucle, j'ai le message d'erreur suivant:
"Erreur d'exécution '1004':

'fichier1.xls' introuvable. Vérifier l'orthographe du nom du classeur et la validité de l'emplacement."
Il me nomme le premier fichier et dit qu'il est introuvable alors que je ne l'ai jamais nommé dans le programme...

Y aurait-il une erreur dans l'appellation des fichiers?
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
Sub Importfiles()
Set wbdest = ActiveWorkbook
Dim test As String
 
fichier = Dir("E:\test\*.xls") 'définit les fichiers à importer en l’occurence tous les fichiers excel se trouvant dans ce répertoire
 
'test = fichier
'If Dir(test, vbDirectory) = "" Then
'    MsgBox "fichier non trouvé"
'Else
 
Do While fichier <> "" 'démarre la boucle jusqu’au dernier fichier disponible dans le répertoire
    Set wbsource = Workbooks.Open(fichier) 'ouvre le fichier actuel à importer
    Set wksNewSheet = wbsource.Sheets("sheet1") 'sélectionne la feuille de données à importer
    wksNewSheet.Activate 'active cette feuille
    wksNewSheet.Select
    Range(Cells(2, 1), Cells(3, 3)).Select 'selection des données que l’on veut importer
    Selection.Copy 'copie les données sélectionnées
    wbdest.Activate 'retourne vers le fichier de départ
    i = ActiveSheet.UsedRange.Rows.Count 'compte le nombre de lignes déjà utilisées dans ce fichier
    Cells(i + 1, 1).Select 'sélection de la cellule où on veut coller les données (la première vide)
    ActiveSheet.Paste 'colle les données
    wbsource.Close 'ferme le fichier source
    fichier = Dir 'va vers le fichier suivant à importer
    Loop 'recommece la boucle avec le fichier suivant
    wbdest.Activate
'End If
End Sub
Merci d'avance.