ouvrir sous dossier

KTM · 28 Janvier 2019

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 · 28 Janvier 2019

Bonsoir KTM, Roland_M,

Code:

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 · 28 Janvier 2019

SUPER Job75

ouvrir sous dossier

KTM

XLDnaute Impliqué

job75

XLDnaute Barbatruc

KTM

XLDnaute Impliqué

Discussions similaires