Importer des photos du disque dur dans excel

Résolu
Wonderchoux Messages postés 4 Statut Membre -  
cs_Le Pivert Messages postés 8437 Statut Contributeur -
Salut les pros.
Je cherche un moyen d'importer des photos dans une colonne excel.
voici le scénario:
colonne A: des numéro / références d'articles (objets) ex. 151542
Colonne B: des codes Ean des références d'articles
Colonne C: j'ai besoin d'importer les photos de chaque référence article de la colonne A.

J'ai une base de donnée de photos de chaque article.
Chaque photo porte le nom de l'article ex: 151542.jpg

Comment est ce que je peux importer ces photos en taille 4X4cm?

Merci pour un coup de main.
A voir également:

3 réponses

cs_Le Pivert Messages postés 8437 Statut Contributeur 729
 
Bonjour,

Voici un exemple:

http://www.cjoint.com/c/FACpGdCtDrQ
1
Wonderchoux
 
je sais pas comment tu as fait, mais ça marche :-)

Merci beaucoup
Donc deux solutions :-)

merci
0
cs_Le Pivert Messages postés 8437 Statut Contributeur 729
 
0
tribun Messages postés 73052 Statut Membre 12 550
 
Bonjour
Tu clic sur une case dans la colonne et via Insertion tu va chercher l'image ou la photo.
Essaie.
0
Wonderchoux Messages postés 4 Statut Membre
 
Oui ça fonctionne pour 10 Photos...
Malheureusement j'ai 500 Photos....:-)
Y a t'il pas une façon autimatique avec un Script?

Merci pour l'aide
0
tribun Messages postés 73052 Statut Membre 12 550
 
Je ne sais ! je ne peut te dire oui ou non hélas.
0
Wonderchoux Messages postés 4 Statut Membre
 
Sub machin()
For Each c In Selection
fich = c.Offset(0, 1).Value
ligne = c.Row
ActiveSheet.Pictures.Insert(fich).Select 'ouverture image
With Selection.ShapeRange
.LockAspectRatio = msoTrue 'conserver les proportion
.Height = 72 'hauteur de l'image - un tit qcq chose pour qu'elle soient séparée
.Left = 0 'à gauche colonne A (sinon tu calcules avec la largeur de colonne des colonnes
.Top = 75 * (ligne - 1) 'et positionner verticalement
End With
Next c
End Sub





Mettre la colonne A en hauteur de 75
placer le lien de l'image dans le colonne B H:\DATA\...\16400260.jpg

pour ne pa devoir écrire tout le lien en B:
en colonne C le lien vers le dossier
en Colonne D le nom de l'image (le référence)
en colonne E ".jpg"
puis rassembler en colonne B : =C1&D1&E1


marquer A
"alt-F8"
Exécuter
0