Excel 2003- Joindre fichier en hypertexte VBA

Résolu/Fermé
simonlagaffe Messages postés 13 Date d'inscription mardi 13 mai 2008 Statut Membre Dernière intervention 20 juillet 2009 - 25 juin 2008 à 22:21
simonlagaffe Messages postés 13 Date d'inscription mardi 13 mai 2008 Statut Membre Dernière intervention 20 juillet 2009 - 25 juin 2008 à 22:59
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

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
25 juin 2008 à 22:55
bonjour

Avec ceci cela devrait fonctionner
Dim chemin As String
chemin = Application.GetOpenFilename
   Hyperlinks.Add Anchor:=Range("L2"), Address:=chemin, TextToDisplay:=chemin
0
onesdf Messages postés 375 Date d'inscription mercredi 21 mai 2008 Statut Membre Dernière intervention 17 octobre 2008 120
25 juin 2008 à 22:57
Salut,

Regarde le code que génère l'enregistreur de macro et essaye de l'adapter à ton formulaire.
0
simonlagaffe Messages postés 13 Date d'inscription mardi 13 mai 2008 Statut Membre Dernière intervention 20 juillet 2009
25 juin 2008 à 22:59
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