[AC-2007] Chercher un fichier dans l'arborescence d'un dossier [Résolu]

[charlingals1]

Bonjour

Après recherche sur le forum, j'ai réussis à trouver une fonction ICI qui permet de recherche un fichier dans l'arborescence d'un fichier. Marche très bien.

Ce qui me pose problème c'est qu'il faut connaitre le nom exact du fichier (espace, accent, tiret,...). Dans mon cas je peux rechercher sur la référence du document (7 première lettres du nom du document)

J'ai commençais à regarder cette fonction (Elle viens du tutoriel indiquer plus haut

Code :

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
Function 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
 
SubDir:
'Explore les sous-dossiers
    For Each oFld In p_oFld.SubFolders
        Explorer p_strFichier, p_strCheminDepart, oFld
        DoEvents
    Next oFld
 
fin:
    Exit Function
err:
    Select Case err.Number
        Case 53: Resume SubDir
        Case Else:
            MsgBox "Erreur inconnue"
            Resume fin
    End Select
End Function

Je voudrais savoir s'il est possible d'ajouter à cette fonction la possibilité de rechercher que sur un partis du nom du document

Sinon j'ai essayé une autre piste, Utiliser la fonction "Dir" Mais je ne connais pas le sous-dossier ou se trouve le fichier juste le dossier.

Est ce que quelqu'un à une idée

Merci

[marot_r]

Tu pourrais utiliser Dir mais il va falloir que tu reprogramme le parcours d'arborescence :-(.

As-tu essayer de passer un truc du genre "Prefix*" à ta fonction de recherche ?

Par exemple "toto*" pourrait rechercher tous fichiers dont le nom commence par Toto.

A+

[charlingals1]

Non avec l'étoile cela ne marche pas. Si vous avais d'autre idée je suis preneur.

Sinon je vais refaire l'arborescence du dossier en programme

[charlingals1]

Bonjour

Je n'ai pas réussis à trouver de solution afin de rechercher un fichier dans l'arborescence.

Sinon moi j'ai utiliser la solution de créer un écran d'administration avec les chemins de paramétrer, Pour mon cas le classement été fait sur la 2,3 ou 4 première lettre de la référence du document, donc j'ai mis en première colonne, C'est lettre puis le chemin.
Dans mon code je reconstruit le chemin selon la référence est j'appelle la fonction DIR, cela donne cela :

Code :

Dir(chemin & Me.Référence.Value & "*", vbNormal)

Merci à vous tous, en espérant que cela pourra service à quelqu'un d'autre