Bonjour a tous !

Je viens vers vous pour (encore une fois) solliciter votre aide si précieuse.

J'ai dans un dossier un multitude de sous dossier, dans chaque sous dossier il y un fichier nommé TODOList, je dois donc parcourir chaque sous dossier pour trouver ce fichier afin de copier ses données pour les mettre dans un nouveau fichier nommé TODOList_Global.

Pour ce qui est de l'export de données je pense pouvoir me debrouillé mais la ou je suis perdu c'est pour parcourir les sous dossiers et les fichiers.

Avez vous des mots clefs ou des conseils pour que je puisse orienté mes recherches ?
J'ai bien trouver les FSO mais je n'arrive pas a les faire fonctionner

Voici le bout de code que j'ai fait (a noter que j'ai rajouter la référence Microsoft Scripting Runtime)

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
21
22
23
24
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
Dim oFSO As Scripting.FileSystemObject
Dim oDrv As Scripting.Drive
'Instanciation du FSO
Set oFSO = New Scripting.FileSystemObject
'Instanciation d'un objet enfant
Set oDrv = oFSO.Drives(1)
 
Dim oFS As Office.FileSearch
Set oFS = Application.FileSearch
With oFS
    .NewSearch
    .FileType = msoFileTypeAllFiles
    .Filename = "monfichier.txt"
    .LookIn = "D:\Essai"
    .Execute
    MsgBox .FoundFiles.Count
End With
 
 
 
 
End Sub
Sur ce code il me met une erreur ("Argument ou appel de procédure incorrect") sur la ligne :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Set oDrv = oFSO.Drives(1)
Et si je commente cette ligne il me met l'erreur suivante ("Cet objet ne gère pas cette action) sur cette ligne :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Set oFS = Application.FileSearch
Je comprends pas trop la si une lumière parmi vous pourrais m'éclairer
Merci d'avance