Boucler sur Sous-Dossiers

Bonjour,

j'ai établis un code qui me permet de vérifier si un fichier existe et de mettre à droite de la cellule selectionner OK ou N/A.

Cependant, la recherche se fais sur le dossier contenant le fichier, je souhaites que la recherche se fasse sur un repertoire avec pleins de sous dossiers !

J'ai un repertoire CND avec plusieurs sous dossier, si je donne le sous dossier le code trouve le fichier mais pas quand je donne le repertoire !

Je vous ai mis en ci-joint mon fichier avec le code si qq peut m'aider svp à intégrer ce qui me manque dans mon code merci bcp !!

Salut laktatis,

voici un code qui fonctionne chez moi (il faut peut être activer microsoft scripting runtime voir foto )

Option Explicit
Dim FileSystem As Object
Dim HostFolder As String

Sub ChercheFichier()
HostFolder = "C:\Users\431061\Desktop\Dossier Soutenance"

Set FileSystem = CreateObject("Scripting.FileSystemObject")
DoFolder FileSystem.GetFolder(HostFolder)

End Sub
Sub DoFolder(Folder)

    Dim SubFolder
    For Each SubFolder In Folder.SubFolders
        DoFolder SubFolder
    Next
    Dim File
    For Each File In Folder.Files
        If File.Name = ActiveCell.Value Then
        Cells(ActiveCell.Row, 1 + ActiveCell.Column) = "OK"
          Exit Sub

        End If
    Next
Cells(ActiveCell.Row, 1 + ActiveCell.Column) = "NA"
End Sub

@+++