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