VBA afficher une photo jpg

 Bonjour
J'ai un tableau excel avec des petites images (icones) dans la colonne A et en regard le no de produit en colonne B
J'aimerai en cliquant sur l'icone afficher une image jpg plus grande pour mieux voir le produit choisi.
Je dispose dans un repertoire de toutes les images jpg dont le nom est formé du no article.jpg-
un bout de code serait le bienvenu
Merci d'avance

JLDANCET

Je pense que le plus simple est de mettre un contrôle Image sur ta feuille. Mets sa propriété Autosize = True
Tu sélectionnes le nom d'une image, disons en colonne A, puis sur click de l'image, tu charges  celle-ci avec un code comme suit

Private Sub Image1_Click()  ' ou DblClick
    If Range("A" & ActiveCell.Row) <> "" Then
        Image1.Picture = LoadPicture(Chemin & "\" & Range("A" & ActiveCell.Row))
    End If
End Sub

Attention toutefois si tes images sont grandes
Si la cellule contient tout le chemin, tu n'auras qu'à mettre le Range dans LoadPicture

MPi

Merci pour la réponse rapide, mais probleme : au moment de l'execution
il y a tiltage sur "LoadPicture" en disant que ce n'est pas défini, il doit y a voir une magouille à rajouter au début pour
définir, si tu peux rajouter cela au code ce sera parfait
merci
JLDANCET

Bonjour
Voici mon code :

Private Sub Image1_Click()  ' ou DblClick
           Image1.Picture = LoadPicture("D:\image\338609.jpg")
End Sub

LOADPICTURE est marqué en noir et le message est :
erreur de compilation SUB ou FONCTION non définie
le controle s'appelle bien "image1"

Encore merci

JLDANCET

Tout est bon, j'ai essayé avec un document EXCEL différent ou j'ai déja fait du développement
et le loadpicture marche correctement.

encore merci