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)
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
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 SubEt 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 oDrv = oFSO.Drives(1)Je comprends pas trop la si une lumière parmi vous pourrais m'éclairer
Code : Sélectionner tout - Visualiser dans une fenêtre à part Set oFS = Application.FileSearch
Merci d'avance
Partager