XL 2016 Problème extraction lien hypertext

[Netoxa]

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

 

[fanch55]

Bonjour,
Lien vers un fichier, une adresse web ou une adresse mail ==> hlink.address
Lien vers une cellule ou un nom du classeur ==> hlink.subaddress

Vous pouvez vérifier avec : MsgBox hLink.Address & hLink.SubAddress

 

[Netoxa]

Bonjour,
J'ai essayé votre solution mais le résultat est le même.
Merci

 

[fanch55]

Vérifiez avec le classeur ci-joint.

Si l'erreur persiste sur votre Classeur, pouvez-vous en joindre une copie exemple, merci .

 

[Netoxa]

Voici mon classeur :

 

[fanch55]

Bonsoir,
Ce qui est affiché est conforme au lien que vous avez créé :

l'adresse n'ayant pas de http en entête ou ne contenant pas un @,
elle est considérée comme étant un fichier résidant dans le même dossier que le Classeur.

 

[Netoxa]

Comment je peux avoir le chemin qui est affiché quand je survole le lien hypertext alors ?

 

[fanch55]

Comment je peux avoir le chemin qui est affiché quand je survole le lien hypertext alors ?

C'est ce que je vous ai expliqué au post précédent:

l'adresse n'ayant pas de http en entête ou ne contenant pas un @,
elle est considérée comme étant un fichier résidant dans le même dossier que le Classeur.

Le chemin est celui du classeur ouvert ...