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.

3 réponses

  1.
    cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    Bonjour,

    Voici un exemple:

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

      Merci beaucoup
      Donc deux solutions :-)

      merci
      0
  2. tribun Messages postés 64900 Date d'inscription   Statut Membre Dernière intervention   12 686
     
    Bonjour
    Tu clic sur une case dans la colonne et via Insertion tu va chercher l'image ou la photo.
    Essaie.
    0
    1. 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
    2. tribun Messages postés 64900 Date d'inscription   Statut Membre Dernière intervention   12 686
       
      Je ne sais ! je ne peut te dire oui ou non hélas.
      0
  3. 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