OUVRIR SOUS DOSSIER

[KTM]

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

 

[job75]

Bonjour KTM,

Pour ouvrir un dossier ou sous-dossier il faut utiliser Windows Explorer :

Sub OuvrirDossier()
Dim dossier$
dossier = ThisWorkbook.Path & "\Fichiers" 'à adapter
Shell Environ("WINDIR") & "\explorer.exe " & dossier, vbNormalFocus
End Sub

Fichier et sous-dossier zippés joints.

A+

 

[KTM]

Bonjour KTM,

Pour ouvrir un dossier ou sous-dossier il faut utiliser Windows Explorer :

Sub OuvrirDossier()
Dim dossier$
dossier = ThisWorkbook.Path & "\Fichiers" 'à adapter
Shell Environ("WINDIR") & "\explorer.exe " & dossier, vbNormalFocus
End Sub

Fichier et sous-dossier zippés joints.

A+

Merci !!! c'est justement ce que je cherchais