Importation automatique image JPEG excel
RésoluA voir également:
- Insérer image automatiquement excel
- Insérer liste déroulante excel - Guide
- Insérer video powerpoint - Guide
- Insérer signature word - Guide
- Comment inserer une image sur word - Guide
- Word et excel gratuit - Guide
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.
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.
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!
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!
Salut
- il y a une possibilité avec un FORM.
- Quels champs dois tu renseigner sur la fiche salarié ?
A+
- il y a une possibilité avec un FORM.
- Quels champs dois tu renseigner sur la fiche salarié ?
A+
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question 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
Michel
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
Tite démo
https://www.ct.com/?3DrpJ4IYn8q
Nota: il n'est pas nécessaire d'agrandir la hauteur de ligne comme dans cette démo
https://www.ct.com/?3DrpJ4IYn8q
Nota: il n'est pas nécessaire d'agrandir la hauteur de ligne comme dans cette démo
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
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
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.ct.com/?3Lii0ytwn3v
mais j'ai d'autres exemples dans mon grenier (trombinoscope par ex)
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.ct.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.
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.