XL 2016 Problème extraction lien hypertext

Netoxa

XLDnaute Nouveau
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
capture
J’espère que je suis clair. Si vous avez des questions n’hésitez pas.
Merci
 

fanch55

XLDnaute Barbatruc
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
 

fanch55

XLDnaute Barbatruc
Bonsoir,
Ce qui est affiché est conforme au lien que vous avez créé :
1649274036455.png
1649273765475.png
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.
 

fanch55

XLDnaute Barbatruc
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.
1649324142596.png
Le chemin est celui du classeur ouvert ...
 

Discussions similaires

Réponses
12
Affichages
225

Statistiques des forums

Discussions
311 725
Messages
2 081 947
Membres
101 849
dernier inscrit
florentMIG