Discussion :

[boldair67]

Bonjour le forum,

Je coince sur un petit problème. J'ai crée une fonction de recherche d'un fichier dans un répertoire spécifique. Mais j'aimerai étendre la recherche à tous les sous-répertoires.
Comment faire ?

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
Public Function cherchePDF(fichier As String) As String
 
Dim oFSO    As Scripting.FileSystemObject
Dim oFl     As Scripting.File
Dim chemin  As String
'----------
'recherche PDF 
'----------
chemin = "M:\Documents\Facture"
      fichier = fichier & ".pdf"
      If fichier <> "" Then
          'Instanciation du FSO
        fichier = chemin & "\" & fichier
        Set oFSO = New Scripting.FileSystemObject
        'Instanciation de l'objet File
        If oFSO.FileExists(fichier) Then
           cherchePDF = "Oui"
         Else
          cherchePDF = "Non"
        End If
 
      End If
 
 End Function

[ClaudeLELOUP]

Bonjour,

Un exemple ici : http://claudeleloup.developpez.com/t...process/#LIV-E

[marot_r]

Bonjour.

Jette un œil à
Recursive Folder Search - Find Files in Subdirectories
http://www.ammara.com/access_image_f...er_search.html

Et si tu as besoin de vitesse, il y a une solution dans qui fait appelle aux API décrite dans l'ouvrage :

VBA Developer's Handbook, Second Edition
Chapter 12 - Working with Disks and Files
Listing 12.31: Use the dhFindAllFiles Function to Search Your Entire Hard Disk.

Je ne l'ai pas copiée ici car elle est peut-être protégée par un copywrite mais elle est VRAIMENT efficace.
Je l'ai implantée une fois et je suis passé de quelques minutes à quelques secondes.

Le livre est accessible par le site www.books24x7.com mais il faut un abonnement. (Je passe par ma bibliothèque publique qui y donne accès.).

A+

[boldair67]

Bonjour au Forum,

Merci à Marot_r pour l'info et les liens, mais là on ne joue pas dans la même cour.
Je suis niveau maternelle et j'ai beau essayé de décrypter le code pas à pas. Sans succés. Mis à part un mal de tête...

Merci egalement à claudelelou qui m'a donné une belle piste pour réussir mon code dont voici le résultat qui fonctionne pour le moment...

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
Public Function cherchePDF(Fichier As String) As String
 
Dim FSO           As Scripting.FileSystemObject
Dim sRep          As Scripting.Folder
Dim sSubRep     As Scripting.Folder
Dim racine        As String
Dim rechfichier  As String
 
    racine = "M:\Document\Factures\"
    Fichier = Fichier & ".pdf"
 
    If Fichier <> "" Then
        Set FSO = New Scripting.FileSystemObject
        Set sRep = FSO.GetFolder(racine)
        rechfichier = racine & Fichier
 
         'Boucle sur les fichiers
           If FSO.FileExists(rechfichier) Then
                 cherchePDF = "Oui"
                 Exit Function
           End If
         'Récursivité pour les sous-répertoires
               For Each sSubRep In sRep.SubFolders
                     rechfichier = sSubRep & "\" & Fichier
                     If FSO.FileExists(rechfichier) Then
                     cherchePDF = sSubRep  ' me donne le chemin du fichier
                     Exit Function
                     Else
                     cherchePDF = "Non"
                     End If
               Next sSubRep
 
         'Libérer
         Set sRep = Nothing
         Set FSO = Nothing
    End If
 
End Function

Le clos le post. Merci pour votre aide

[loufab]

Bonjour,

Oui sous copyright Sybex.

Elle existe sur le net il suffit de taper dhFindAllFiles dans un moteur de recherche et d'aller sur un serveur des pays de l'est.

L'utilisation est simple :

un path, un fichier c'est tout.

Cordialement,