J'arrive à ouvrir, le repertoire et je recupére les noms des fichiers exls
pFld = "C\documents"
Set Rep = CreateObject("Scripting.FileSystemObject").GetFolder(pFld)
For Each FileItem In Rep.Files 'Pour chaque fichier, instructions
Maintenant je souhaite ouvrir chaque fichier xls et récupérer dans chaque feuille les données que je veux
Workbooks.Open ThisWorkbook.Path & "\" & NomF
For Each Feuil in Sheets
Instructions de récupérations de données
Next Feuil
J'ai l'erreur 1004 : si tu essais d'ouvrir le fichier à partir de votre plus récent nom hors pour le moment j'ai pas modifié le nom du fichier.
pFld = "C\documents"
Set Rep = CreateObject("Scripting.FileSystemObject").GetFolder(pFld)
For Each FileItem In Rep.Files 'Pour chaque fichier, instructions
Maintenant je souhaite ouvrir chaque fichier xls et récupérer dans chaque feuille les données que je veux
Workbooks.Open ThisWorkbook.Path & "\" & NomF
For Each Feuil in Sheets
Instructions de récupérations de données
Next Feuil
J'ai l'erreur 1004 : si tu essais d'ouvrir le fichier à partir de votre plus récent nom hors pour le moment j'ai pas modifié le nom du fichier.