Inserer une image d'aprés référence produit sous excel

oui mais : j'ai une liste de 1600 code a lier avec 1600 photos ;( je ne pense pas que la methode qui se trouve sur ce topic fonctionne en masse ;( en tout cas je ne trouve pas ;(

bon j'ai deja trouvé comment les déposer dans la bonne colonne MAIS : les photos ne sont pas au bout de chaque ligne mais toutes les unes au dessus des autres en haut de la colonne (au début j'ai meme cru qu'il n'y en avais qu'une mais les autres sont disposées en dessous de celle-ci) voici ce que j'ai utilisé comme formules : port d'images
Les noms des images à importer sont dans la colonne A
On suppose que les images .jpg sont dans le répertoire c:\mesdoc\

Sub ImportImages()
répertoirePhoto = "D:\PRODUITS\"
suppression
Range("P2").Select
For Each c In [A2:A400]
nf = répertoirePhoto& c & ".jpg"
If Dir(nf) <> "" Then
Set img = ActiveSheet.Pictures.Insert(nf)
img.Left = [P2].Left
img.Top = [P2],Top
c.EntireRow.RowHeight = img.Height
End If
Next
End Sub

Sub suppression()
For Each i In ActiveSheet.Shapes
If i.Type = 13 Then i.Delete
Next i

Tu aurais précisé dès le début que tu souhaitais une solution par macro, que je me serais abstenu d'intervenir !

merci ;) testé ca marche en partie ;) sauf que les photos sont insérés au début des colonnes et non en colonne P (derriere les produits et j'ai des photos jpg et gif dans le dossier photos, comment modifier ceci nf = répertoirePhoto& c & ".jpg"
pour faire en sorte que les photos sous format GIF soient elles aussi selectionnées ? en tout cas merci beaucoup du coup de main : ca avance ;)

donc me reste a faire en sorte que chaque photos soient en face de leurs référence en bout de ligne et non pas tt en vrac en haut de la colonne P ;) derniere version de la commande macro : Sub ImportImages()
chemin = ThisWorkbook.Path & "\photosproduits\"
suppression
Range ("P2:P")select
For Each c In [A2:A400]
nf = répertoirePhoto& c & ".jpg"
If Dir(nf) <> "" Then
Set img = ActiveSheet.Pictures.Insert(nf)
img.Left = [P2],Left
img.Top = [P2],Top
c.EntireRow.RowHeight = img.Height
End If
Next
End Sub

Sub suppression()
For Each i In ActiveSheet.Shapes
If i.Type = 13 Then i.Delete
Next i
End Sub

merci beaucoup je vais voir ca et tester ;)

j'ai trouvé grace a votre aide ;) mais juste un dernier point ou je bloque : comment faire en sorte que la macro selectionne les formats d'images sous .jpeg ET .gif , car j'ai les deux dans mon dossier photos : la commande actuelle est nf = répertoirePhoto& c & ".jpg"
une fois ceci trouvé c'est bon ;) merci encore pour votre aide ;)