Importation automatique image JPEG excel

Résolu/Fermé
chouchou91190 - 4 avril 2012 à 15:23
 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

9 réponses

chouchou91190
17 avril 2012 à 11:52
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.
2
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
lynyrd1960
Messages postés
204
Date d'inscription
jeudi 26 janvier 2012
Statut
Membre
Dernière intervention
24 mars 2020
225
10 avril 2012 à 21:47
Salut
- il y a une possibilité avec un USERFORM.
- Quels champs dois tu renseigner sur la fiche salarié ?

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

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
chouchou91190
17 avril 2012 à 14:44
Merci beaucoup!
0
michel_m
Messages postés
16569
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 mai 2022
3 280
Modifié par michel_m le 17/04/2012 à 15:39
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
0
michel_m
Messages postés
16569
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 mai 2022
3 280
Modifié par michel_m le 17/04/2012 à 15:43
Tite démo
https://www.cjoint.com/?3DrpJ4IYn8q

Nota: il n'est pas nécessaire d'agrandir la hauteur de ligne comme dans cette démo
0
chouchou91190
17 avril 2012 à 17:10
Merci je vais tenter, et vous tiens au courant.
0
lynyrd1960
Messages postés
204
Date d'inscription
jeudi 26 janvier 2012
Statut
Membre
Dernière intervention
24 mars 2020
225
Modifié le 12 juil. 2019 à 19:26
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
0
chouchou91190
17 avril 2012 à 17:39
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"
0
michel_m
Messages postés
16569
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 mai 2022
3 280
17 avril 2012 à 18:26
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
0
michel_m
Messages postés
16569
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 mai 2022
3 280
8 déc. 2014 à 08:46
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)

0
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.
0
michel_m
Messages postés
16569
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 mai 2022
3 280
20 mars 2015 à 11:17
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
0
Patator48 > michel_m
Messages postés
16569
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 mai 2022

23 déc. 2016 à 07:20
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
0
michel_m
Messages postés
16569
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 mai 2022
3 280
Modifié par michel_m le 23/12/2016 à 08:18
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