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

Fermé

Valeur
Lien

Iama Messages postés 319 Date d'inscription mercredi 13 janvier 2010 Statut Membre Dernière intervention 27 mars 2020 - 31 mai 2011 à 12:56
Iama Messages postés 319 Date d'inscription mercredi 13 janvier 2010 Statut Membre Dernière intervention 27 mars 2020 - 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

A voir également:

Excel récupérer lien hypertexte d'une cellule
Excel cellule couleur si condition texte - Guide
Aller à la ligne dans une cellule excel - Guide
Lien url - Guide
Liste déroulante excel - Guide
Recuperer message whatsapp supprimé - Guide

4 réponses

Réponse 1 / 4

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 753
31 mai 2011 à 13:27

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 mercredi 13 janvier 2010 Statut Membre Dernière intervention 27 mars 2020 14
31 mai 2011 à 13:35

Bonjour pijaku

J vais essayere de ce pas

Merci

Iama Messages postés 319 Date d'inscription mercredi 13 janvier 2010 Statut Membre Dernière intervention 27 mars 2020 14
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

Réponse 2 / 4

lucas06150 Messages postés 151 Date d'inscription jeudi 17 décembre 2009 Statut Membre Dernière intervention 19 juillet 2012 11
31 mai 2011 à 13:03

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 mercredi 13 janvier 2010 Statut Membre Dernière intervention 27 mars 2020 14
31 mai 2011 à 13:18

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 mercredi 13 janvier 2010 Statut Membre Dernière intervention 27 mars 2020 14
31 mai 2011 à 13:32

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 jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 753
31 mai 2011 à 13:34

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

Iama Messages postés 319 Date d'inscription mercredi 13 janvier 2010 Statut Membre Dernière intervention 27 mars 2020 14
31 mai 2011 à 13:45

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 mercredi 13 janvier 2010 Statut Membre Dernière intervention 27 mars 2020 14
31 mai 2011 à 13:51

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 vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 154
31 mai 2011 à 14:04

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 mercredi 13 janvier 2010 Statut Membre Dernière intervention 27 mars 2020 14
31 mai 2011 à 14:40

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 ?

Excel - Affecter valeur vide à une cellule

lien hypertexte en fonction valeur cellule

Comparer trois colonnes sur excel