Discussion :

[Overcrash]

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

[Overcrash]

Pour la première erreur j'ai résolu grâce a ("supersnail") il fallait mettre en faites :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Set oDrv = oFSO.Drives("C:")

[Bobble]

Salut,
si j'ai tout compris, ça sa doit fonctionner:

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
Private Sub Commande0_Click()
 
Dim oFS As Office.FileSearch
Set oFS = Application.FileSearch
Dim i As Integer
 
With oFS
    .NewSearch
    .SearchSubFolders = True
    .FileType = msoFileTypeAllFiles
    .FileName = "monfichier.txt"
    .LookIn = "C:\Essai"
    .Execute
    'MsgBox .FoundFiles.Count
    For i = 1 To .FoundFiles.Count
        MsgBox .FoundFiles(i)
    Next i
 
 
End With
 
End Sub

en ajoutant les références "Microsoft Scripting Runtime" ET "Microsoft Office XX Object Library".

[Overcrash]

J'avais déjà essayer mais le probleme est que je n'ai pas Microsoft Office XX Object Library.

du coup il me genere toujours une erreur sur la ligne application.

Du coup j'ai trouver une solution alternative que voici :

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
     Explorer "TODO_ List.xls", "\\serveur2\Exploitation\Dossier SI"
 
End Sub
 
 
 
 
 
Sub Explorer(p_strFichier As String, p_strCheminDepart As String, Optional p_oFld As Scripting.Folder)
 
    On Error GoTo err
 
        Dim oFSO As Scripting.FileSystemObject
        Dim oFld As Scripting.Folder
        Dim oFl As File
 
        If p_oFld Is Nothing Then
            'Instanciation du FSO
            Set oFSO = New Scripting.FileSystemObject
            'Accède au répertoire du départ de recherche
            Set p_oFld = oFSO.GetFolder(p_strCheminDepart)
        End If
        Set oFl = p_oFld.Files(p_strFichier)
 
        'MsgBox oFl.Path
 
'''''''''''''''*******************************
        'Traitement a faire quand le fichier est trouvé
 
 
'''''''''''''''*******************************
 
 
 
SubDir:
    'Explore les sous-dossiers
        For Each oFld In p_oFld.SubFolders
            Explorer p_strFichier, p_strCheminDepart, oFld
            DoEvents
        Next oFld
 
fin:
        Exit Sub
 
err:
        Select Case err.Number
            Case 53: Resume SubDir
            Case Else:
                MsgBox "Erreur inconnue"
                Resume fin
        End Select
 
End Sub

edit :en faites si j'ai le composant mais meme avec j'ai toujours l'erreur