OUVRIR SOUS DOSSIER

job75 à dit:

Bonjour KTM,

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

Code:

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+

Cliquez pour agrandir...