Excel 2003- Joindre fichier en hypertexte VBA Résolu/Fermé

Question

Bonjour,
J'ai créer un tableau excel dans lequel est recencé différent défauts.
Pour faciliter la tache aux utilisateurs, j'ai créer en VBA un formulaire, dans lequel j'ai ajouter un bouton permettant d'y joindre un fichier (celluel dédié à cette effet)
Mon problème est le suivant:
Le chemin d'accés ce met bine dans la cellule dédiéé, mais je souhaiterai qu'il se mette en liens hypertexte afin de pouvoir l'ouvrir directement du tableau.
Voici les lignes qui m'ont permis de faire celà:

Private Sub Joindre_Click()
   Dim chemin As String          
   chemin = Application.GetOpenFilename
   Range("L2").Value = chemin

A savoir que chaque nouveau défaut est ajouté en ligne 2 de mon tableau
Quelqu'un serait-il m'aider?
Merci d'avance
PS: je préfère vous préciser que je suis novice dans le VBA

gbinforme · Answer

bonjour

Avec ceci cela devrait fonctionner
Dim chemin As String
chemin = Application.GetOpenFilename
   Hyperlinks.Add Anchor:=Range("L2"), Address:=chemin, TextToDisplay:=chemin

onesdf · Answer

Salut,

Regarde le code que génère l'enregistreur de macro et essaye de l'adapter à ton formulaire.

simonlagaffe · Answer

Un grand merci à vous!!
J'ai essayer ton code gbinforme, et ça marche impeccable! Tout ce que je voulais!
Encore merci pour votre efficacité et rapidité!