Chercher fichier dans dossier et sous dossier

Bonjour,

Je n'arrive pas à résoudre mon problème, (rechercher 1 fichier dans un dossier et sous dossiers)

D’où ma recherche avec la variable NF="*" & FichierSansR & "*.*"

il fonctionne bien mais lorsque le fichier se trouve dans le dossier du départ (Pierre) , il me dit que le fichier n'existe pas"

DP ="\\VBOXSVR\Partage-Windows\Boulot\Pierre\"
FichierSansR = Cells(X, Y).Value
NF = "*" & FichierSansR & "*.*"
Set EF = CreateObject("Scripting.FileSystemObject")
Set DS = EF.GetFolder(DP)
Set ESD = DS.SubFolders
For Each D In ESD
    F = Dir(D & "\" & NF)
    Range("H" & X).Value = DP & "\" & F
    Do While F <> ""
        If F Like NF Then
        Ouvrir D, F, Y, X
        Exit Sub
        End If
    Loop
Next D
MsgBox " : Votre fichier n'existe pas !!!" & Chr(13) & "Ou votre fichier ne se trouve pas dans le bon dossier"

Merci pour votre aide

Cordialement

bonjour,

il te manque les instructions pour lister les fichiers dans le dossier de départ

essaie ceci (non testé)

    DP = "\\VBOXSVR\Partage-Windows\Boulot\Pierre\"
    FichierSansR = Cells(X, Y).Value
    NF = "*" & FichierSansR & "*.*"
    Set EF = CreateObject("Scripting.FileSystemObject")
    Set DS = EF.GetFolder(DP)

    F = Dir(DP & NF)

    Range("H" & X).Value = DP & "\" & F
    Do While F <> ""
        If F Like NF Then
            Ouvrir D, F, Y, X
            Exit Sub
        Else
            F = Dir()
        End If
    Loop

    Set ESD = DS.SubFolders
    For Each D In ESD
        F = Dir(D & "\" & NF)
        Range("H" & X).Value = DP & "\" & F
        Do While F <> ""
            If F Like NF Then
                Ouvrir D, F, Y, X
                Exit Sub
            End If
        Loop
    Next D
    MsgBox " : Votre fichier n'existe pas !!!" & Chr(13) & "Ou votre fichier ne se trouve pas dans le bon dossier"

Merci pour ton aide,

Il me fait une erreur lorsque le fichier est dans le dossier racine

En fait l'erreur vient du premier :

Do While F <> ""

Comme tu peux voir, une fois qu'il a trouvé le fichier il ouvre la macro "Ouvrir D,F,Y,X"

Il ne reconnait pas les variables D,F,Y,X

re

C'est bon j'ai mis :

Ouvrir DP, F, Y, X

Merci beaucoup pour ton aide