Récupération de l'URL de l'hyperlink d'une cellule

Bonjour ?

Merci ?


Function CibleLienHT(rg As Range)
CibleLienHT = rg.Hyperlinks.Item(1).Address
End Function


Nicolas B.

J'ai dans une colonne une liste de liens hypertexte. Je voudrais dans la
colonne à côté indiquer l'adresse vers lequel ce lien pointe.

Bonjour,

Merci de votre réponse.
J'avais déjà essayer cette fonction, avec la syntaxe :
CibleLienHT = rg.Hyperlinks(1).Address
Hélas sur Mac, avec Office X, cela donne une réponse vide, lorsque la
cellule contient effectivement une adresse Internet et "#VALEUR!" si elle
contient autre chose.
La syntaxe que vous proposé "CibleLienHT = rg.Hyperlinks.Item(1).Address",
la fonction est signalée comme erronée : "Erreur de compilation: Attendu :
fin d'instruction".

AndréCa


"Nicolas B." wrote:

Bonjour ?

Merci ?


Function CibleLienHT(rg As Range)
CibleLienHT = rg.Hyperlinks.Item(1).Address
End Function


Nicolas B.

Peux-tu me donner la formule avec un exemple svp

Bonjour ?

Merci ?


Function CibleLienHT(rg As Range)
CibleLienHT = rg.Hyperlinks.Item(1).Address
End Function


Nicolas B.

J'ai dans une colonne une liste de liens hypertexte. Je voudrais dans la
colonne à côté indiquer l'adresse vers lequel ce lien pointe.