Discussion :

[svbb25]

Bonjour,

est ce qu'il est possible de faire une recherche dans un répertoire rempli de sous dossier, afin de trouver un PDF spécifique?

et bien entendu récupéré la donné de ou il e trouve pour l'utiliser après?

en faisant quelque recherche j'ai trouver ceci

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
Dim i As Long
Dim fs
Set fs = Application.FileSearch
With fs
    .LookIn = "Z:\Chantier\"
    .SearchSubFolders = True
    .FileName = "Pesee81519"   'Mettre ici la variable contenant le n° de plan
    If .Execute() > 0 Then
        MsgBox "There were " & .FoundFiles.Count & _
         " file(s) found."
        For i = 1 To .FoundFiles.Count
            MsgBox .FoundFiles(i)
        Next i
    Else
        MsgBox "There were no files found."
    End If
End With

sauf que quand je lance cette ligne bug

Code :

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

Set fs = Application.FileSearch

en vous remerciant de votre temps

[hyperion13]

Salut
Lorsque vous récupérez un code, prenez le temps de tout lire, langue de Molière ou de Shakespeare, et surtout de tout récupérer.
Les raisons de votre erreur ici. Puis lire ceci.