Comment extraire le lien Hypertexte d'une image

Salut à tous.

J'ai un fichier de 675 lignes. Sur chacune des lignes, il y a le dessin d'une petite loupe auquel est associé un lien hypertexte. Quand je clique sur la loupe, Excel m'envoie sur le site pointé par l'URL.

Question : Comment puis-je extraire l'URL de cette image pour la recopier en claire dans la colonne d'à coté ?

Merci.

bonjour

joins quelques lignes de ton fichier

Dans l'exemple ci-joint, je voudrais récupérer le texte de l'URL liée à la loupe dans la colonne F

Bonjour,

p'tite démonstration à coller dans le module de la feuille de calculs :

Sub Demo()
     Dim Sh As Shape
For Each Sh In Me.Shapes
         Sh.TopLeftCell.Offset(, 1).Value = Sh.Hyperlink.Address
Next
End Sub

Chapeau bas Ô Maestro ! Marche nickel !

Mille mercis.

Merci ! Mais il n'y a rien d'extraordinaire, tout est documenté dans l'aide VBA …