Récuperer le lien hypertexte d'une celllue??

[jojo2006]

bonjour à tous je voudrais faire une fonction qui me retourne le lien hypertexte
d'une cellule.

Ps: en mode enregistrement cela ne marche pas ("copier le lien hypertexte")

merci à tous

 

[ODVJ]

Re : Récuperer le lien hypertexte d'une celllue??

Bonjour

voici un code (2 en fait)

Function AdrHyperlien(cell As Range)
' restitue l'adresse du lien
AdrHyperlien = cell.Hyperlinks(1).Address
End Function

Function SubAdrHyperlien(cell As Range)
'restitue le signet du lien
AdrHyperlien = cell.Hyperlinks(1).SubAddress
End Function

cordialement

 

[jojo2006]

Re : Récuperer le lien hypertexte d'une celllue??

merci pour le code mais je ne comprend pas la syntaxe.

exemple comment connaitre le lien hyper de la cellule A1.

Function SubAdrHyperlien(cell As Range)
'restitue le signet du lien
AdrHyperlien = cell.Hyperlinks(1).SubAddress
End Function


ou dois je introduire le cells(1,1)?
ou est stocker le lien hyper?

en fait je veux recuperer le lien dans une variable string appelé par exemple lien-hyper

désolé de ne pas saisir la syntaxe

merci

 

[ODVJ]

Re : Récuperer le lien hypertexte d'une celllue??

Bonsoir,

ça devrait être quelque chose du genre lien-hyper=cells(1,1).Hyperlinks(1).SubAddress

au passage, mon retour de fonction pour le signet n'est pas bon. il faut lire SubAdrHyperlien au lieu de AdrHyperlien.

A+

 

[jojo2006]

Re : Récuperer le lien hypertexte d'une celllue??

Bonjour,

désolé mais cela ne marche pas. pourtant pour vous ca a l'air mais pas pour moi🙁

merci de m'aider

 

[jojo2006]

Re : Récuperer le lien hypertexte d'une celllue??

je me suis aider d'une réponse déja donné mais un truc n'est pas en clair



la macro ci dessous extrait les liens hypertextes de la colonne A et les affiche dans la colonne B

Sub ExtractionLiensHypertextes()
Dim Cell As Range
On Error Resume Next
For Each Cell In Range("A1:A" & Range("A65536").End(xlUp).Row)
Cell.Offset(0, 1) = Cell.Hyperlinks(1).Address
Next Cell
End Sub


moi je veux récuperer le lien de la cellue A1
si je crée une variable dim lien as string puis:

lien=cells(1,1).Hyperlinks(1).Address ou lien=cells(1,1).Hyperlinks(1).SubAddress


la variable Lien n'affiche rien,pourquoi?

Quel est la bonne syntaxe, je ne vois ou je fais une erreur et pourtant ce n'est pas correct, merci à vous de m'aider

 

[MichelXld]

Re : Récuperer le lien hypertexte d'une celllue??

bonsoir

cette synthaxe fonctionne chez moi

Dim Lien As String
Lien = Sheets("Feuil1").Cells(1, 1).Hyperlinks(1).Address
MsgBox Lien

tu es sur qu'il y a un lien hypertexte dans la cellule ?


bonne soiree
Ce lien n'existe plus

 

[jojo2006]

Re : Récuperer le lien hypertexte d'une celllue??

ca marche! Merci Michel

juste pour ma gouverne difference entre Adress etr SubAdress??

Merci beaucoup