Récupérer une adresse de lien en VBA excel

Question

Bonjour à tous

J'ai dans une cellule un lien vers un dossier
« C:\Users\Iama\Documents\Adobe\Armoire\06-Papera \Chiffre\03-Compte »

Je désire dans une macro récupérer ce lien pour ouvrir un fichier.

Avec la fonction :  .Address  j'obtiens=>  "..\..\06-Papera \Chiffre\03-Compte  "
Une adresse incomplète qui ne fonctionnement pas 

En utilisant :    .Application.defaultFilePath  j'obtiens => "C:\Users\Iama\Documents"

Mais je n'arrive pas à récupérer : « \Adobe\Armoire\ »

Quelqu'un pourrait-il me renseigner SVP ?

Iama


Configuration: Windows Vista / Internet Explorer 8.0 excel 2007

pijaku · Accepted Answer

Bonjour tout le monde,
Essayez cette procédure :
Dim lien As String
If Range("A1").Hyperlinks.Count > 0 Then
    lien = Range("A1").Hyperlinks(1).Address
End If
MsgBox lien

lucas06150 · Answer

Au lieu de passer par des méthodes, pourquoi ne pas récupérer le texte de la cellule ?

melanie1324 · Answer

Bonjour,

Qu'est-ce que tu veux faire avec ce dossier???

Si c'est ouvrir un fichier, tu peux faire comme ca :
a = range("A1"). value   'si ton adresse est dans la cellule A1

workbooks.open (a & "\Classeur1.xls")


mets ta cellule dans une variable et fais en ce que tu as envie de faire.

Iama · Answer

Bonjour

J'ai du mal m'exprimer

Ma cellule contient un lien qui me sert à ouvrir un dossier en utilisation sans macro.

Et quand j'utilise ma macro je veux pouvoir récupérer ce lien permettre à la macro ouvrir un fichier et de copier de données.

La cellule avec le lien me permet d'utiliser pour chaque feuille de différents classeurs un lien différent et rapide à créer

Est-ce mieux expliqué SVP? 
Iama

Récupérer une adresse de lien en VBA excel

4 réponses

Discussions similaires

Newsletters