XL 2019 Récupérer le chemin d'un hypertexte

[loreak]

Bonjour à tous,

Est-il possible de récupérer le chemin d'un lien hypertexte via vba.

Merci pour vos réponses.
Bonne journée

 

[sylvanu]

Bonjour Loreak,
On peut le faire avec une simple fonction perso :

Function AddrHyperTexte(C As Range)
    On Error GoTo FinAddr
    AddrHyperTexte = C.Hyperlinks(1).Address
FinAddr:
    If AddrHyperTexte = 0 Then AddrHyperTexte = ""
End Function

Voir PJ.