VBA; récupérer le lien hypertexte d'une cellule

turnoff · 27 Novembre 2013

Débutant, je m'empêtre dans la récupération du lien hypertexte d'une cellule.
Dans la feuille "Collection", la cellule "K174" possède en lien hypertexte le chemin de données que je souhaite récupérer. Si j'écris ça :
Range("I20") = ThisWorkbook.Worksheets("Collection").Cell(174, 11).Hyperlinks
J'obtiens le message d'erreur:
erreur d'exécution 438
Propriété ou méthode non gérée par cet objet

Comment obtenir ce lien pour l'utiliser ensuite et aller y chercher des photos...

Merci de m'apporter un peu d'aide

JCGL · 27 Novembre 2013

Re : VBA; récupérer le lien hypertexte d'une cellule

Bonjour à tous,

Sur ce portail, merci de ponctuer tes messages d'un Bonjour ou autres civilités...

Peux-tu essayer avec :

Range("I20") = ThisWorkbook.Worksheets("Collection").Cells(174, 11)

A+ à tous

turnoff · 27 Novembre 2013

Re : VBA; récupérer le lien hypertexte d'une cellule

Bonsoir JC
Désolé, mais votre réponse ne fonctionne pas?
Je m'attensais à une leçon d'informatique, il est vrai que la frustration me rends maladroit; veuillez acceptez monsieur JC GL mes plus plates excuses.
A vous lire

JCGL · 27 Novembre 2013

Re : VBA; récupérer le lien hypertexte d'une cellule

Bonjour à tous,

Peux-tu joindre un fichier anonymisé ?

A+ à tous

turnoff · 28 Novembre 2013

Re : VBA; récupérer le lien hypertexte d'une cellule

Public sub: Bonjour à tous,

Entretemps j'ai pu me débrouiller:
Range("I20") = ThisWorkbook.Worksheets("Collection").Range("K174").Hyperlinks(1).Address
Merci pour le don de temps, ce n'est jamais perdu.
A bientôt, car je ne suis qu'au début de mon projet.
Je gaffe la syntaxe...

End sub A+ à tous

VBA; récupérer le lien hypertexte d'une cellule

turnoff

XLDnaute Nouveau

JCGL

XLDnaute Barbatruc

turnoff

XLDnaute Nouveau

JCGL

XLDnaute Barbatruc

turnoff

XLDnaute Nouveau

Discussions similaires