VBA : Recherche de fichier

Bonjour,

je souhaite realiser une macro (Editeur VBA d'un logiciel de 3D) pour pouvoir chercher un fichier dans un dossier et le sous-dossier.

j'arrive à chercher dans le dossier, par contre je ne sais pas faire pour chercher dans les sous-dossiers :

Sub Test()

    Application.ScreenUpdating = False
    Dim FilePath As String
    FilePath = ""
    On Error Resume Next
    FilePath = Dir("S:\National\Bureau d'études\2 - Base CAO\1 - Projet BE\*\1068*")
    On Error GoTo 0
    If FilePath = "" Then
        MsgBox "File doesn't exist", vbInformation, "Kutools for Excel"
    Else
        MsgBox "File exist", vbInformation, "Kutools for Excel"
    End If
    Application.ScreenUpdating = False

End Sub

Merci d'avance.

Salut Bena,

pour pouvoir chercher un fichier

Si c'est juste pour avoir le chemin du fichier alors le code ci-dessous [...]

Sub Chemin_vers_fichier()
Dim PathFile As String
PathFile = Application.GetOpenFilename()
MsgBox PathFile
End Sub

[...] devrait t'aider.

A dispo

C'est bon j'ai trouvé

Option Explicit
Dim FileSystem As Object
Dim HostFolder As String

Sub FindFile()
HostFolder = "S:\Projet"

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

End Sub
Sub DoFolder(Folder)
Dim a As String
a = "9719 5001.ipt"
    Dim SubFolder
    For Each SubFolder In Folder.SubFolders
        DoFolder SubFolder
    Next
    Dim File
    For Each File In Folder.Files
        If File.Name = a Then
           MsgBox (File.Path)

            Exit Sub
        End If
    Next
End Sub

Mercii

Rechercher des sujets similaires à "vba recherche fichier"