Bonjour à tous,
J'ai bien regardé les messages précédents, en ait intégré une partie mais je n'arrive pas exactement à ce que je veux faire. Dc je vais poser la question.
Le chemin est en paramètre en A1 par ex (X:\Donnees\Emergency test)
Je souhaite que la macro identifie tous les fichiers Excel (qu'ils soient ds le répertoire lui-meme, ou dans les sous-rep ou les sous-sous rep...), qu'elle ouvre les fichiers et les copie colle en valeur.
Le dernière partie est facile. C'est le début qui me pose pb.
J'ai essayé plusieurs choses mais mon code actuel ne marche que pour les ss dossiers
OK pr les Excels ds le sous dossier X:\Donnees\Emergency test\1
OK pr les Excels ds le sous dossier X:\Donnees\Emergency test\2
mais pas OK pr les Excels ds le sous dossier X:\Donnees\Emergency test\1\ssss
mais pas OK pr les Excels ds le sous dossier X:\Donnees\Emergency test\glegle.xls
Voila, c'est tout simple, mais si vous avez qq minutes pour m'aider, ca serait sympa.merci
Guillaume
Le code pour lister les fichiers et leur chemin est:
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 Dim fso As FileSystemObject Dim oSourceFolder As Scripting.Folder Dim oSubFolder As Scripting.Folder Dim oFile As Scripting.File Dim oFolder As Scripting.Folder Dim strFolderName As String Dim i As Long Set fso = CreateObject("Scripting.FileSystemObject") Cells(1, 1).Value = "Parent folder" Cells(1, 2).Value = "File name" strFolderName = Path_General i = 2 Set oSourceFolder = fso.GetFolder(strFolderName) For Each oFolder In oSourceFolder.SubFolders For Each oFile In oFolder.Files Cells(i, 1).Value = oFile.ParentFolder.Path Cells(i, 2).Value = oFile.Name i = i + 1 Next oFile Next oFolder
Partager