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