Exécution macro erreur 1004

Version imprimable

Bonjour
J'ai pu exécuter avec succès une macro qui ouvre des fichier excel dans un répertoire, qui en extrait des cellules pour les copier dans une nouvelle feuille excel. J'ai ajouter d'autres fichiers dans ce même répertoire après avoir supprimé ceux déjà analysés et depuis, j'ai l'erreur 1004 lors de l'exécution de la macro et c'est sur la ligne avec le code "Workbooks.Open NomFichier", pourtant, le nom du premier fichier du répertoire est bien dans le NomFichier" mais il ne peut pas l'ouvrir. J'ai deleter ce répertoire, remis des fichier excel test, même problème, j'ai vérifier les sécurités, tout est OK.
Voici une partie de la macro.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Dim NomFichier As String, i As Long, DerLine As Long i = 1 DerLine = Sheets("Cible").Cells(Columns(1).Cells.Count, 1).End(xlUp).Row ThisWorkbook.Sheets("Cible").Range("K1").Value = DerLine i = DerLine ' NomFichier = Dir("t:\000 CYBER\08_QA Patients\2010") NomFichier = Dir("c:\test1\") Do While NomFichier <> "" If Right(NomFichier, 4) = ".xls" Then i = i + 1 Workbooks.Open NomFichier ThisWorkbook.Sheets("Cible").Range("A" & i).Value = Workbooks(NomFichier).Sheets(1).Range("A1").Value
Merci d'avance pour votre aide.

20/06/2013, 09h18
casefayere

Bonjour,

A cette ligne :

Code:

NomFichier = Dir("c:\test1\")

tu ne mets pas le nom de ton fichier, si test1 est le nom de celui-ci, ça devrait être :

Code:

NomFichier = Dir("c:\test1.xls" 'ou xlsm ou...)

si test1 est un dossier :

Code:

NomFichier = Dir("c:\test1\tonfichier.xls"'ou xlsm ou...)
20/06/2013, 14h14
electrons

erreur 1004

Bonjour,

En fait, "c:\test\" est le répertoire à parcourir pour y lire tous les fichiers excel qui y sont et extraire des données de chacun de ces fichiers. La macro a fonctionné et lorsque j'ai placé d'autres fichiers excel dans ce répertoire, il bloque à l'open sur le premier fichier de la liste avec l'erreur 1004.

Merci pour ta réponse

Bonjour, test ça

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub test()
Dim NomFichier As String
Dim Resultat As String
NomFichier = Dir("c:\test1\*.xls*")
Do While NomFichier <> ""
    If NomFichier = "LeBon.xls" Then Resultat = "c:\test1\" & NomFichier: Exit Do
Loop
If Resultat <> "" Then
    'Code open resultat
End If
End Sub

20/06/2013, 15h03
electrons

erreur 1004

Bonjour rdurupt,

Merci pour le code,
Ca fonctionne en mettant le chemin complet.
Ce qui est étrange, c'est que ce programme fonctionnait une première fois sans problème puis, en y ajoutant d'autres fichiers excel, il pouvait plus faire l'open alors que le nom du fichier avait bien été trouvé. (d'ou erreur 1004).
Bonne après midi