Bonjour,
Voici un code qui permet d'ouvrir l'explorateur sur le dossier en paramètre
Macro dans le module principal :
Sub Ouvrir_Explorateur (Emplacement as string)
' Ouvre l'explorateur sur le dossier
' Entrée : Emplacement=Dossier à ouvrir sous la forme Chemin\Dossier
' Exemple : "C:\Users\Mes documents\Toto"
On Error Resume Next ' Au cas où
Shell "explorer /select," & Emplacement, vbNormalFocus
on Error GoTo 0
End Sub
Macro dans l'évènement Bouton_Click
(auparavant, il faut insérer un bouton (ActiveX) dans la feuille de calcul puis bouton droit sur le bouton ...Visualiser le code)
Private Sub Bouton_click()
Dim a$
' Définir le chemin et le dossier :
a$ = "L:\BES-Common\LOGISTIQUE\Décors\" & Range("D11") & "\" & Range("A11")
Call Ouvrir_Explorateur (a$)
' Il faudra peut-être tester la présence du dossier avant
' S'il est absent, l'explorateur s'ouvrira sur la racine
end Sub
J'ai fait ça rapido, mais ça devrait fonctionner.
Bonne journée