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

Valeur
Lien

Iama Messages postés 319 Date d'inscription Statut Membre Dernière intervention -
Iama Messages postés 319 Date d'inscription Statut Membre Dernière intervention - 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

A voir également:

Excel récupérer lien hypertexte d'une cellule
Lien copié - Forum Téléphones & tablettes Android
Récupérer au terminal de fret - Forum Consommation & Internet
Lien url - Guide
Excel cellule couleur si condition texte - Guide
Créer un lien pour partager des photos - Guide

4 réponses

Réponse 1 / 4

pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention 2 762

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

Iama Messages postés 319 Date d'inscription Statut Membre Dernière intervention 14

Bonjour pijaku

J vais essayere de ce pas

Merci

Iama Messages postés 319 Date d'inscription Statut Membre Dernière intervention 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

Réponse 2 / 4

lucas06150 Messages postés 151 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 ?

Iama Messages postés 319 Date d'inscription Statut Membre Dernière intervention 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

Réponse 4 / 4

Iama Messages postés 319 Date d'inscription Statut Membre Dernière intervention 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

pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention 2 762

As tu essayé la procédure que je t'ai indiqué ici...........

Iama Messages postés 319 Date d'inscription Statut Membre Dernière intervention 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

Iama Messages postés 319 Date d'inscription Statut Membre Dernière intervention 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

melanie1324 Messages postés 1504 Date d'inscription Statut Membre Dernière intervention 155

bonjour,

essaie ca :
sheets("Feuiloutuastonlien").select
range("celluleoutuastonlien"). select exemple range("A1").select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

Iama Messages postés 319 Date d'inscription Statut Membre Dernière intervention 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

Discussions similaires

valeur cellule dans lien hypertexte excel

récupérer liens hypertexte et la valeur d'une cellule

Comment extraire les liens hypertextes ?

Macro recherche dans une colonne excel

chercher une valeur dans un tableau excel

Forum VB / VBA