VBA insertion image dans une cellule depuis un hyperlien

Bonjour à tous,

Je me creuse la tête sur différents forums pour trouver un code VBA qui permettrait de récupérer une image depuis hyperlien présent dans une cellule et de l'insérer dans une autre cellule fusionnée (A12).

L'hyperlien se trouve en cellule K12 (et provient de la fonction

=LIEN_HYPERTEXTE(RECHERCHEV($D$45;'Listes produits'!$1:$1048576;83;FAUX))).

Quand je clique, excel ouvre bien la photo.

Si besoin de détails supplémentaires, n'hésitez pas à demander.

Un tout grand merci pour votre aide,

Bonjour,

Une piste à tester :

Sub Test()

    Dim S As Shape
    Dim Plage As Range

    Set Plage = Range("A12").MergeArea

    With Plage

        Set S = ActiveSheet.Shapes.AddPicture(Range("K12").Hyperlinks(1).Address, 0, 1, .Left, .Top, .Width, .Height)

    End With

End Sub

Bonjour Theze,

Merci.

Excel indique un message d'erreur sur la ligne "Set S = ..." : L'indice n'appartient pas à la sélection