Excel 2003- Joindre fichier en hypertexte VBA

Résolu
simonlagaffe Messages postés 15 Statut Membre -  
simonlagaffe Messages postés 15 Statut Membre -
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
Configuration: Windows XP - Excel 2003
Internet Explorer 7.0

3 réponses

  1.
    gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744
     
    bonjour

    Avec ceci cela devrait fonctionner 
    Dim chemin As String
chemin = Application.GetOpenFilename
   Hyperlinks.Add Anchor:=Range("L2"), Address:=chemin, TextToDisplay:=chemin
    0
  2. 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
  3. simonlagaffe Messages postés 15 Statut Membre
     
    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