Ouvrir un dossier

[Rubis57]

Bonjour tout le monde,

je n’arrive pas à faire fonctionner le code ci-dessous.
Il devrait m’ouvrir le dossier OUVRAGES qui se trouve sur le support externe (clé) nommé P.
J’espère que le code seul vous suffira.

Sub CHOISIR_OUVRAGE() ' ouvrir le dossier OUVRAGES
    Dim chemin As String
    chemin = "P:\PILOTE 10\OUVRAGES"
    Shell "C:\windows\explorer.exe " & chemin, vbMaximizedFocus
End Sub

Merci d’avance pour votre aide

[Rubis57]

Re à tout le monde,

je laisse comme c’était avant donc pas besoin de vba sinon trop compliqué pour les utilisateurs.

Merci

Rubis