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

Signaler
-
 Patator48 -
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

9 réponses


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.
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 60511 internautes nous ont dit merci ce mois-ci

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!
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 60511 internautes nous ont dit merci ce mois-ci

Messages postés
204
Date d'inscription
jeudi 26 janvier 2012
Statut
Membre
Dernière intervention
24 mars 2020
173
Salut
- il y a une possibilité avec un USERFORM.
- Quels champs dois tu renseigner sur la fiche salarié ?

A+
Messages postés
204
Date d'inscription
jeudi 26 janvier 2012
Statut
Membre
Dernière intervention
24 mars 2020
173
Salut
là je suis au boulot
je t'envoie un exemple cet après midi.
A+

Merci beaucoup!
Messages postés
16260
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 octobre 2020
3 051
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
Messages postés
204
Date d'inscription
jeudi 26 janvier 2012
Statut
Membre
Dernière intervention
24 mars 2020
173
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"
Messages postés
16260
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 octobre 2020
3 051
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
16260
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 octobre 2020
3 051
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)

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.
Messages postés
16260
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 octobre 2020
3 051
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
>
Messages postés
16260
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 octobre 2020

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
16260
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 octobre 2020
3 051
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