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.