Importer des photos du disque dur dans excel

Résolu
Wonderchoux Messages postés 4 Date d'inscription   Statut Membre Dernière intervention   -  
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   -
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

Réponse 1 / 3
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   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 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Si tu veux aller plus loin en vba, voir ceci:

https://codes-sources.commentcamarche.net/source/101340-redimensionner-les-images-d-un-repertoire-en-centimetres

@+ Le Pivert
0
Réponse 2 / 3
tribun Messages postés 64861 Date d'inscription   Statut Membre Dernière intervention   12 547
 
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 Date d'inscription   Statut Membre Dernière intervention  
 
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 64861 Date d'inscription   Statut Membre Dernière intervention   12 547
 
Je ne sais ! je ne peut te dire oui ou non hélas.
0
Réponse 3 / 3
Wonderchoux Messages postés 4 Date d'inscription   Statut Membre Dernière intervention  
 
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