Créer un bouton avec un hyperlien

Question

Je souhaiterai créer un bouton "CLiquez ici" qui permettrait d'ouvrir un dossier sur l'exploreur. J'ai réussi à constituer le lien de manière automatique en fonction de deux variables en D11 et A11 =HYPERLINK(CONCATENATE("L:\BES-Common\LOGISTIQUE\Décors\";D11;"\";A11)) Par contre, je ne sais pas créer la macro qui permet de mettre cette formule dans le bouton Je ne sais pas si j'ai été claire dans mes explications. Pouvez-vous m'aider ...

Eric_angers · Answer

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