Excel 2003- Joindre fichier en hypertexte VBA

Résolu
simonlagaffe Messages postés 13 Date d'inscription   Statut Membre Dernière intervention   -  
simonlagaffe Messages postés 13 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

3 réponses

Réponse 1 / 3
gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   4 724
 
bonjour

Avec ceci cela devrait fonctionner 
Dim chemin As String
chemin = Application.GetOpenFilename
   Hyperlinks.Add Anchor:=Range("L2"), Address:=chemin, TextToDisplay:=chemin
0
Réponse 2 / 3
onesdf Messages postés 375 Date d'inscription   Statut Membre Dernière intervention   120
 
Salut,

Regarde le code que génère l'enregistreur de macro et essaye de l'adapter à ton formulaire.
0
Réponse 3 / 3
simonlagaffe Messages postés 13 Date d'inscription   Statut Membre Dernière intervention  
 
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é!
0