Discussion :

[electrons]

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 :

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
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.

[casefayere]

Bonjour,

A cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

si test1 est un dossier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[electrons]

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

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[electrons]

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