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

Dranreb

XLDnaute Barbatruc

• 23 Décembre 2022

• #2

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

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 23 Décembre 2022

• #3

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

Je te propose

VB:

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

Merci de ton retour

@Phil69970

 

Vote positif 0 Vote négatif

Fredox

XLDnaute Occasionnel

• 23 Décembre 2022

• #4

Merci Dranreb, merci Phil69970
Génial !

 

Vote positif 0 Vote négatif