Importation automatique image JPEG excel Résolu/Fermé

Question

Bonjour, 

Nous avons créé une macro qui nous permet de renseigner automatiquement une fiche salarié sur excel en saisissant uniquement le numéro d'identification du salarié. 
Nous n'arrivons cependant pas à importer automatiquement les photos de ces salariés qui sont stockées dans un fichier sur le disque dur. 
Ces photos sont au format JPEG et le nom de la photo correspond au numéro d'identification du salarié. D'autre part, nous souhaiterions que ces photos s'ajustent automatiquement à la taille de la cellule.

Je ne sais pas si je suis très clair.
Je vous remercie par avance

Bien cordialement,

Clément

chouchou91190 · Accepted Answer

Merci pour ta réponse,
J'ai déjà une macro qui me permet de récupérer des informations concernant un salarié (les différents postes occupés, l'année d'entrée, l'âge, la situation familiale...). Toutes ces données sont stockées dans un autre fichier excel. Chaque fiche est constituée de la même manière, je n'ai qu'à renseigner le nom et prénom du salarié, et la fiche est alimentée automatiquement.
Il ne me manque plus que la photo. Pour cette dernière, je dois encore faire une insertion manuelle. Alors je souhaitais trouver une macro me permettant, d'aller récupérer la photo (format JPEG) automatiquement en même temps que les autres données.

lynyrd1960 · Answer

Salut
- il y a une possibilité avec un USERFORM.
- Quels champs dois tu renseigner sur la fiche salarié ?

A+

lynyrd1960 · Answer

Salut
là je suis au boulot
je t'envoie un exemple cet après midi.
A+

chouchou91190 · Answer

Merci beaucoup!

michel_m · Answer

Bonjour

Macro à appeler dans la feuille de l'incorporation d'un salarié
accepte les format jpg, jpeg, png, gif
données à adapter inscrites en constantes

Const Ss_dossier As String = "photo_staff" 'nom du sous dossier contenant les images 
Const ref_cell As String = "$A$1" 'emplacement de la photo 
' Michel_M Avril 2012 

Sub incorporer_photo() 
Dim design As String, cellule As Range 
Dim image As Object 
    
     design = ThisWorkbook.Path & "\" & Ss_dossier & "\" & ActiveSheet.Range(ref_cell) 
     'prend en compte le format de la photo 
     If Dir(design & ".png") <> "" Then design = design & ".png" 
     If Dir(design & ".jpg") <> "" Then design = design & ".jpg" 
     If Dir(design & ".jpeg") <> "" Then design = design & ".jpeg" 
     If Dir(design & ".gif") <> "" Then design = design & ".gif" 
           
      'mémorise la photo à afficher 
      Set cellule = ActiveSheet.Range(ref_cell) 
     On Error GoTo absence 'photo non disponible 
     Set image = ActiveSheet.Pictures.Insert(design) 
     'insere la photo dans la fiche 
     With image.ShapeRange 
          .Top = cellule.Top + 2 
          .Left = cellule.Left + 1 
          .Name = "numphoto" 
         .Height = cellule.Height - 3 
          .Width = cellule.Width - 2 
          .LockAspectRatio = msoFalse 'garde les proportions de l'original 
     End With 
     Exit Sub 
      
absence: 
    cellule = "photo non disponible" 
      
End Sub

Michel

michel_m · Answer

Bonjour,

Peut-^tre ceci ?

a adapter cellule ( ici A1) ou tu marques le nom de la photo sans extension "abc-123456-12" car la macro reconnait plusieurs formats (jpg, png...)
et l'emplacement(ici B1) de la photo

https://www.cjoint.com/?3Lii0ytwn3v

mais j'ai d'autres exemples dans mon grenier (trombinoscope par ex)

Mimi27 · Answer

Bonjour,

Etant débutant sur VBA je suis moi aussi intéressé pour importer des images et votre solution me semble adéquate. Mais je ne comprend pas où stocker les images pour que votre programme les retrouvent.

Peut être que si je pouvais accéder aux fichiers données en exemple, cela m'aiderai, mais les liens ne sont plus valides.

Merci de l'aide fourni sur cette page et merci d'avance de votre réponse.

michel_m · Answer

Bonjour,
Voir
https://mon-partage.fr/f/e7o7IMNq/ 
le code se trouve dans le module feuil3 (machin max)
edit 8:18h
DOUBLON !!!!
http://www.commentcamarche.net/forum/affich-34203185-importation-automatique-image-jpeg-excel-2016
TRES TRES SYMPA de prendre les bénévoles pour des C...
 Michel

Patator48 · Answer

Re,
Je n'ai pas fais attention...Désolé j'avais les deux conversations ouvertes sur mon bureau!
Je ne voulais pas froisser quiconque et encore moins prendre qui que se soit pour un c...!
 Merci de vos réponses et joyeux Noël à tous!