Importation automatique image JPEG excel [Résolu/Fermé]

- - Dernière réponse :  Patator48 - 23 déc. 2016 à 10:31
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
Afficher la suite 

9 réponses

Messages postés
200
Date d'inscription
jeudi 26 janvier 2012
Statut
Membre
Dernière intervention
12 juillet 2019
116
0
Merci
Salut
- il y a une possibilité avec un USERFORM.
- Quels champs dois tu renseigner sur la fiche salarié ?

A+
0
Merci
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.
Messages postés
200
Date d'inscription
jeudi 26 janvier 2012
Statut
Membre
Dernière intervention
12 juillet 2019
116
0
Merci
Salut
là je suis au boulot
je t'envoie un exemple cet après midi.
A+
0
Merci
Merci beaucoup!
Messages postés
15934
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 octobre 2019
2810
0
Merci
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
lynyrd1960
Messages postés
200
Date d'inscription
jeudi 26 janvier 2012
Statut
Membre
Dernière intervention
12 juillet 2019
116 -
j'ai l'impression que mes messages ne passent pas sur le forum
A+
voila mon e-mail
Adresse mail supprimée Modération CCM
-
Ok la macro fonctionne! C'est génial
Mais, serait-il possible qu'elle s'exécute automatiquement lorsque je rentre le nom de la personne. Actuellement, je dois faire "Macro - Macro exécuter"
michel_m
Messages postés
15934
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 octobre 2019
2810 -
oui, mais il faudrait prendre en compte que le matricule soit bien inscrit (en A1 sur la démo) lorsqu'on écrit le nom (en B1 par ex). c'est faisable sans trop de problèmes mais il faudrait me dire le nom des feuilles non concernées; feuilles accueil et/ou recap par ex

je n'avais pas prévu de déclenchement automatique car on va coller la photo du salarié une bonne fois pour toutes
A ce propos, il serait profitable de baisser le "poids" des photos

Dans l'attente
-
Merci c'est tout bon, nous avons créé un bouton de commande pour activer la macro, du coup, nous rentrons le nom de la personne puis nous cliquons sur le bouton commande "rechercher". Merci encore
Bonjour Michel...

Je ne sais pas si je vais avoir une réponse, car je suis deux ans plus tard dans les maritimes! En fait, je tente de bien comprendre le code pour l'adapter à mon projet. En gros, j'ai une case qui correspond au numéro de dossier d'un client. On a la photo de tous les clients. La photo est nommé par le numéro de dossier. Exemple: "abc-123456-12.jpg" J'aimerais que la photo se place automatiquement dans ma cellule " W1" lorsque que j'écris le numéro de dossier dans la case en "E7" ... Est-ce qu'il y a une solution?

Merci beaucoup! J'apprécie déjà votre aide!
Messages postés
15934
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 octobre 2019
2810
0
Merci
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

http://cjoint.com/?3Lii0ytwn3v

mais j'ai d'autres exemples dans mon grenier (trombinoscope par ex)

0
Merci
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
Messages postés
15934
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 octobre 2019
2810 -
Bonjour,
Il y a plusieurs possibilités avec à chaque fois des programmes VBA différents
Dis ce que tu souhaiterais et on verra ce qu'on peut faire
dans cette attente, merci
> michel_m
Messages postés
15934
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 octobre 2019
-
Bonjour,

Suite à ce sujet de 2015, je te sollicite à nouveau, je n'arrive pas à régler mon problème d'incorporation de photo d'un salarié.
Merci d'avance
Messages postés
15934
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 octobre 2019
2810
0
Merci
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
0
Merci
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!