Importer des photos du disque dur dans excel

Résolu/Fermé
Wonderchoux Messages postés 4 Date d'inscription mercredi 13 janvier 2016 Statut Membre Dernière intervention 17 mars 2017 - 13 janv. 2016 à 21:13
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 29 janv. 2016 à 11:43
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 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
28 janv. 2016 à 16:32
Bonjour,

Voici un exemple:

http://www.cjoint.com/c/FACpGdCtDrQ
1
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 jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
29 janv. 2016 à 11:43
0
tribun Messages postés 64861 Date d'inscription vendredi 24 août 2007 Statut Membre Dernière intervention 20 février 2020 12 525
14 janv. 2016 à 07:24
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 mercredi 13 janvier 2016 Statut Membre Dernière intervention 17 mars 2017
14 janv. 2016 à 07:37
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 vendredi 24 août 2007 Statut Membre Dernière intervention 20 février 2020 12 525
14 janv. 2016 à 07:40
Je ne sais ! je ne peut te dire oui ou non hélas.
0
Wonderchoux Messages postés 4 Date d'inscription mercredi 13 janvier 2016 Statut Membre Dernière intervention 17 mars 2017
27 janv. 2016 à 15:36
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