Hello a Tous!
J'ai sur mon site web un fichier qui contient tous les photos de mes produits nommer par le numero de produits.
J'ai sur mon ordinateur un fichier excel qui contient 4 colonnes:
no du produit | description | qty | prix
J'aimerais pouvoir ajouter dans la 5e colonne les images des produits de facon automatique.
Je ne suis pas un pro, j'ai donc essayer quelque chose, mais ca ne fonctionne pas. Pouvez vous m'aider svp...Merci!
J'ai sur mon site web un fichier qui contient tous les photos de mes produits nommer par le numero de produits.
J'ai sur mon ordinateur un fichier excel qui contient 4 colonnes:
no du produit | description | qty | prix
J'aimerais pouvoir ajouter dans la 5e colonne les images des produits de facon automatique.
Je ne suis pas un pro, j'ai donc essayer quelque chose, mais ca ne fonctionne pas. Pouvez vous m'aider svp...Merci!
Code:
Sub InsertionIMage()
Sheets("Trans10Four").Activate
ActiveSheet.DrawingObjects.Delete
On Error Resume Next
Dim i
For i = [A65536].End(xlUp).Row To 1 Step -1
Range(i, 5).Select
ActiveSheet.Pictures.Insert("http://www.monsite.com/images/" & Range(i, 1).Value & ".gif").Select
Selection.ShapeRange.IncrementLeft 0
Selection.ShapeRange.IncrementTop 0
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 145
Next
End Sub