Macro ouvrir un sous dossier

Salut le forum

j'aimerais savoir comment par une macro ouvrir un sous dossier depuis un fichier contenu dans le même dossier .Merci et à bientôt

Bonjour,

Testes ceci, ça énumère les différents dossier du dossier parent :

Sub Test()

    Dim FSO As Object
    Dim Dossier As Object
    Dim Chemin As String

    Chemin = ThisWorkbook.Path & "\"

    Set FSO = CreateObject("Scripting.FileSystemObject")

    For Each Dossier In FSO.GetFolder(Chemin).SubFolders

        MsgBox Dossier.Name

    Next Dossier

End Sub

MERCI Theze

Cette macro pourra me servir pleinement dans certaines circonstances.

Mais ici je voudrais ouvrir un sous dossier spécifique. Comment adapter ?