Ouvrir Sous/Dossier

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

Bonjour,

Si le dossier n'existe pas, la macro génère-t-elle une erreur ? Si oui, il suffit de rajouter une gestion d'erreur, par exemple :

Sub Ouvrir_Sous_Dossier A
   Dim dossier$
    On Error GoTo Erreur
   dossier = ThisWorkbook.Path & "\A" 
   Shell Environ("WINDIR") & "\explorer.exe " & dossier, vbNormalFocus
Exit Sub
Erreur:
   MsgBox "Dossier Inexistant !"
End Sub

Au Fait il se produit pas d'Erreur ; il se trouve que si le dossier est inexistant c'est plus tot "Documents" du Pc qui s'ouvre. ce que je veux pas Merci.

Bonsoir KTM,

Une proposition :

Sub Ouvrir_Sous_Dossier()
    Dim dossier$
    Dim oFS As Object

    Set oFS = CreateObject("Scripting.FileSystemObject")
    dossier = ThisWorkbook.Path & "\A"

    If oFS.FolderExists(dossier) Then
        Shell Environ("WINDIR") & "\explorer.exe " & dossier, vbNormalFocus
    Else
        MsgBox "Dossier '" & dossier & "' inexistant!"
    End If

    Set oFS = Nothing
End Sub

C'est Cool Merci.