ouvrir sous dossier

[KTM]

Bonsoir Chers tous
J'utilise le code ci- dessous pour ouvrir le sous dossier A depuis un fichier et cela marche très bien.
Ma préoccupation actuelle est que je voudrais que au cas ou le dossier A n'est pas présent dans le dossier parent , ma macro m'envoie ce message: " Dossier Inexistant " et Exit Sub . Merci pour votre aide

Sub Ouvrir_Sous_Dossier A

Dim dossier$
dossier = ThisWorkbook.Path & "\A"
Shell Environ("WINDIR") & "\explorer.exe " & dossier, vbNormalFocus

End Sub

 

[job75]

Bonsoir KTM, Roland_M,

Sub Ouvrir_Sous_Dossier_A()
Dim dossier$
dossier = ThisWorkbook.Path & "\A"
If Dir(dossier, vbDirectory) = "" Then MsgBox "Dossier inexistant !", 48: Exit Sub
Shell Environ("WINDIR") & "\explorer.exe " & dossier, vbNormalFocus
End Sub

A+

 

[KTM]

SUPER Job75