VBA Comment ouvrir des fichiers Excel dans des sous dossiers

Bonjour,

Je voudrais savoir comment faire avec une macro pour ouvrir un fichier Excel qui se trouve dans un sous dossier,

Exemple :

• Je voudrais renseigner à la macro ce chemin d'accès : "D:\test\"
• Je voudrais maintenant lui faire ouvrir un fichier "01.xls" qui se trouve dans "D:\test\d1\"

Autrement dit, que la macro cherche tous les fichiers ".xls" dans le dossier "D:\test\" et ces sous dossiers pour qu'il m'ouvre le fichier "01.xls"

Merci de votre patience,

Cordialement,

Chyps.

Bonjour Chyps17,

Sur excel 2003, tu peux utiliser FileSearch (la fonction n'existant plus sur excel 2007) :

Sub cherche()
    With Application.FileSearch
        .NewSearch
        .LookIn = "D:\test\"    'répertoire de recherche
        .SearchSubFolders = False    'inclure les sous-dossiers
        .Filename = "01"    'nom du fichier à chercher
        .MatchTextExactly = True
        .FileType = msoFileTypeExcelWorkbooks    'fichiers de type excel
        If .Execute = 0 Then
            MsgBox "Aucun fichier correspondant."
        ElseIf .Execute = 1 Then
            Workbooks.Open .FoundFiles(1)
        Else
            MsgBox "Il y a " & .FoundFiles.Count & " fichiers s'intitulant " & .Filename
        End If
    End With
End Sub