Discussion :

[othmanepf]

Bonjour tout le monde,
J'essaye d'ouvrir un dossier à la fin de mon code mais ça ne semble pas fonctionner

Je ne veux ouvrir que le dossier et non un fichier dedans.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
        Const CHEMIN As String = "\\fermat\echange\Entretien_r01\Méthodes Maintenance\Gammes\"
        dblSuccess = Shell(CHEMIN, vbMaximizedFocus)

Mon code ne fonctionne donc pas.

Je vous remercie pour votre aide

[Ric500]

Bonjour,

Tu peux essayer:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    Dim ret As Long
    ret = Shell("explorer.exe /root, " & CHEMIN, vbNormalFocus)

Bonne continuation

[othmanepf]

Merci Ric, ça marche nickel!