Inserer une image d'aprés référence produit sous excel
hibou57
-
hiboucop Messages postés 12 Statut Membre -
hiboucop Messages postés 12 Statut Membre -
Bonjour,
je suis actuellement en train de faire un listing produits et j'ai d'un coté les référence produits sur excel (fichier exemple joint) et de l'autre un dossier avec les photos en jpg ou gif qui ont le meme nom que les références produits (exemple un produit référence 13002 a sa photo sous : 13002.jpg OU 13002.gif)
j'aurais aimé savoir si quelqu'un pouvais m'aider a inserer sur la derniere colonne du tableau (photo du produit) les photos en rapports au référence des cellules de la colone A. Merci vraiment beaucoup pour votre aide car je commencais a les entrer une par une mais le fichier final aura environs 1480 lignes de produits et autant de photos ;(
merci encore pour votre aide
je suis actuellement en train de faire un listing produits et j'ai d'un coté les référence produits sur excel (fichier exemple joint) et de l'autre un dossier avec les photos en jpg ou gif qui ont le meme nom que les références produits (exemple un produit référence 13002 a sa photo sous : 13002.jpg OU 13002.gif)
j'aurais aimé savoir si quelqu'un pouvais m'aider a inserer sur la derniere colonne du tableau (photo du produit) les photos en rapports au référence des cellules de la colone A. Merci vraiment beaucoup pour votre aide car je commencais a les entrer une par une mais le fichier final aura environs 1480 lignes de produits et autant de photos ;(
merci encore pour votre aide
A voir également:
- Inserer une image d'aprés référence produit sous excel
- Clé de produit windows 10 gratuit - Guide
- Insérer liste déroulante excel - Guide
- Insérer une vidéo dans powerpoint - Guide
- Déplacer une colonne excel - Guide
- Insérer signature word - Guide
4 réponses
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
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
Bonjour,
http://boisgontierjacques.free.fr/fichiers/Images/ImportPhoto3.xls
Jacques Boisgontier
http://boisgontierjacques.free.fr/fichiers/Images/ImportPhoto3.xls
Jacques Boisgontier
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 ;)
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
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
Bonjour,
Voici un exemple:
http://www.cjoint.com/data3/3Efswk3ddBv.htm
Voici un exemple:
http://www.cjoint.com/data3/3Efswk3ddBv.htm
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 ;)
une fois ceci trouvé c'est bon ;) merci encore pour votre aide ;)
