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

Valeur
Lien

Iama Messages postés 324 Statut Membre -
Iama Messages postés 324 Statut Membre - 17 juin 2011 à 18:46

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

excel 2007

Afficher la suite

4 réponses

Réponse 1 / 4

Meilleure réponse
La meilleure réponse est la réponse qui a été validée par nos équipes.
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention 2 773
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
```
2
1. Iama Messages postés 324 Statut Membre 14
  
  Bonjour pijaku
  
  J vais essayere de ce pas
  
  Merci
  
  0
2. Iama Messages postés 324 Statut Membre 14
  
  pijaku
  
  Je viens de tester, j'ai ajouté à ta solution
  j = Range("A1").Hyperlinks.Count
  La varable j est égale à 0 pourtant quand je clck sur cette cellule j'a bien un dossier qui s'ouvre
  
  Je ne comprend pas. As-tu une idée? SVP
  Iama
  
  0
Réponse 2 / 4
lucas06150 Messages postés 147 Date d'inscription Statut Membre Dernière intervention 11

Au lieu de passer par des méthodes, pourquoi ne pas récupérer le texte de la cellule ?
0
1. Iama Messages postés 324 Statut Membre 14
  
  Bonjour lucas
  
  je viens d'essayer Range("B1").Text
  Mais je récupére que la Value de la cellule et non le lien
  
  Il doit y avoir qq choe d'autre
  
  Iama
  
  0
Réponse 3 / 4
melanie1324 Messages postés 1561 Statut Membre 156

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.
0
Réponse 4 / 4
Iama Messages postés 324 Statut Membre 14

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
0
1. pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention 2 773
  
  As tu essayé la procédure que je t'ai indiqué ici...........
  
  0
2. Iama Messages postés 324 Statut Membre 14
  
  Iama - 31 mai 2011 à 13:43
  pijaku
  
  Je viens de tester, j'ai ajouté à ta solution
  j = Range("A1").Hyperlinks.Count
  La varable j est égale à 0 pourtant quand je clck sur cette cellule j'a bien un dossier qui s'ouvre
  
  Je ne comprend pas. As-tu une idée? SVP
  Iama
  
  0
3. Iama Messages postés 324 Statut Membre 14
  
  pijaku
  
  d'autrepart ta solution revient à utiliser
  Selection.Hyperlinks(1).Address
  
  qui le donne une adresse incompéte => "..\..\06-Papera \Chiffre\03-Compte "
  
  Iama
  
  0
4. melanie1324 Messages postés 1561 Statut Membre 156
  
  bonjour,
  
  essaie ca :
  sheets("Feuiloutuastonlien").select
  range("celluleoutuastonlien"). select exemple range("A1").select
  Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
  
  0
5. Iama Messages postés 324 Statut Membre 14
  
  Bonjour melini13
  
  Je te remerci, mais ouverture du dossier cela je l'ai réussi.
  C'est remplacer la variable "DOSSIER" de mon fichier par le lien de la cellule B1 qui me pose probléme
  
  Iama
  
  0

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

4 réponses

Discussions similaires

Newsletters