Hallo Konfu,

een kleine zoektocht in de helpfiles van Excel bracht mij dadelijk bij de Eigenschap: SearchSubFolders
Een voorbeeldje zou dan deze code zijn:

Set fs = Application.FileSearch
With fs
    .LookIn = "E:\"
    .SearchSubFolders = True
    .FileName = "bestand.xls"
    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

In dit voorbeeld zit het te zoeken bestand reeds in de macro, maar dat kan je vervangen door een "inputbox".

misschien helpt dit je al op weg naar een oplossing.be...

SoftAid        

Hoi Konfu,

Ik heb dit een tijdje geleden ook nodig gehad, en lostte dit op met de path eigenschap.

onderstaande opent een excel bestand dat zich in dezelfde map bevindt.

Workbooks.Open ActiveWorkbook.Path & "\facturen.xls

spyder