XL 2019 [Résolu] VBA récupérer liens hypertext d'une celulle dans une variable

[Fredox]

Bonjour à tous,

Pas évident à expliquer, je ne suis pas sur d'utiliser le bon vocabulaire.
Dans la cellule A1, je dispose d'un texte ayant un lien HyperText (le texte n'est pas le lien).

Je voudrais récupérer ce lien dans une variable type "Chemin = ..."


Je sèche littéralement, une idée ?

Merci à vous.

 

[Dranreb]

Bonsoir.
Récupérez le dans une variable HLk As HyperLink plutôt, comme ça vous pouvez chercher la propriété qui vous intéresse parmi toutes celles qu'il possède.
Un Range, lui est muni d'une collection HyperLinks
Donc: Set HLk = ActiveSheet.[A1].Hyperlinks(1)
MsgBox HLk.Address

 

[Phil69970]

Bonjour @Fredox
Edit Bonjour Bernard pas vu ta réponse

Je te propose

Sub MonLien()
Dim Lien As String
Lien = Sheets("Feuil1").Cells(1, 1).Hyperlinks(1).Address
MsgBox Lien
End Sub

Merci de ton retour

@Phil69970

 

[Fredox]

Merci Dranreb, merci Phil69970
Génial !