extraire lien hypertexte

[palou41]

bonjour je recherche le code qui me permettrait de connaitre l'adresse d'un lien hypertexte d'une cellule de mon classeur....


Du genre pour A5

MonAdresse=Range ("A5").Hyperlinks.address
msgbox(MonAdresse)

merci

 

[Pierrot93]

Re : extraire lien hypertexte

Bonjour Palou

essaye comme suit :

Dim monadresse As String
monadresse = Range("A1").Hyperlinks(1).Address
MsgBox monadresse

ou bien, plus court :

MsgBox Range("A1").Hyperlinks(1).Address

bonne fin d'après midi.
@+

 

[palou41]

Re : extraire lien hypertexte

Un grand merci Pierrot ca fontionne à merveille