Problème extraction lien hypertext

Bonjour,

Je veux extraire l'adresse d'un lien Hypertext. J'ai fait une macro pour cela :

Sub ExtraireAddressHypertext()

Dim hLink As Hyperlink
Dim wSheet As Worksheet

For Each wSheet In Worksheets
For Each hLink In wSheet.Hyperlinks
MsgBox hLink.Address
Next hLink
Next

End Sub

Mais il extrait la description de l’hypertexte mais pas l'adresse

J’espère que je suis clair. Si vous avez des questions n’hésitez pas.

Merci

Bonjour,

Il manque un petit bout:

MsgBox hLink.Parent.Address

Cdlt

Bonjour,

J'ai essayé votre solution mais cela montre la case où est le lien hypertext :

Merci

Cordialement

Bonjour,
@Netoxa,
Mon résultat avec ta procédure.

Bonjour à tous,

de quel type de lien s'agit-il ?
Sur un document, j'obtiens bien son adresse comme Jean-Eric.
eric

Mon adresse commence par \\FMFRLAFILE02\ et il ne le prends pas en compte. C'est un chemin absolue.