Importation automatique image JPEG excel 2016

Fermé

patator48 Messages postés 2 Date d'inscription jeudi 22 décembre 2016 Statut Membre Dernière intervention 22 décembre 2016 - 22 déc. 2016 à 14:41
Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 - 23 déc. 2016 à 13:32

Bonjour,

Je souhaiterai un conseil sous EXCEL.

j'ai trouvé dans d'anciens sujets des réponses approchantes mais je coince au niveau de la macro.

Voila mon problème, j'ai essayé d'utiliser une macro de 2012 pour importer automatiquement des photos mais je n'y parviens pas.

Est-ce que cela provient de la structure de mon fichier??

A partir d'un classeur contenant une feuille récapitulative je voudrais que toutes les infos soient incrémentées automatiquement sur une autre feuilles structurée différemment, sous forme de carte professionnelle.

Tout marche mais je bloque au niveau des photos.

Je souhaiterai que la photo du salarié soit importée automatiquement dans la cellule photo mais ça ne marche pas.

Cordialement,

A voir également:

Insérer image automatiquement excel
Insérer liste déroulante excel - Guide
Insérer signature word - Guide
Formule excel - Guide
Image iso - Guide
Insérer une vidéo dans powerpoint - Guide

7 réponses

Réponse 1 / 7

patator48 Messages postés 2 Date d'inscription jeudi 22 décembre 2016 Statut Membre Dernière intervention 22 décembre 2016
22 déc. 2016 à 15:11

Bonjour,

Mes photos sont stockés sur un sous-dossier (il y a 130 photos environ).

Mais le classeur excel se trouve dans le même dossier que j'ai nommé "passeport"

Réponse 2 / 7

Patator48
23 déc. 2016 à 07:18

Merci Mike,

Par contre dans ta macro, je ne vois pas comment aller récupérer le dossier contenant les photos.

Réponse 3 / 7

Patator48
23 déc. 2016 à 07:57

J'ai ce message d'erreur:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Wbk As Workbook
Const Chemin As String = "G:\passeports ETPR\Photos\"
If Target.Column <> 1 Then Exit Sub
Application.ScreenUpdating = False
On Error Resume Next
Set Wbk = Workbooks.Open(Chemin & Target.Value & ".xlsm")
If Err.Number <> 0 Then
Err.Clear
Application.EnableEvents = True
Application.ScreenUpdating = True
MsgBox "Erreur de saisie"
Exit Sub
End If
On Error GoTo 0
Sheets(1).Select
ActiveSheet.Shapes(1).Copy
ThisWorkbook.Activate
Target.Offset(, 1).Select
Application.EnableEvents = False
ActiveSheet.Pictures.Paste.Select
Wbk.Close False
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

Réponse 4 / 7

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
23 déc. 2016 à 13:28

bonjour mike
DOUBLON de patator...
https://forums.commentcamarche.net/forum/affich-24860649-importation-automatique-image-jpeg-excel#p34205246

Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 5 073
23 déc. 2016 à 13:32

Bonjour Michel,

Merci pour l'info, passe de bonnes fêtes
cordialement

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

Posez votre question

Réponse 5 / 7

Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 5 073
22 déc. 2016 à 15:04

Bonjour,

ou sont stocké tes photos

sur un onglet du fichier
dans le même répertoire que ton fichier Excel
ou dans un dossier image, dans ce cas quel est le chemin d'accès à ce dossier

Réponse 6 / 7

Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 5 073
Modifié par Mike-31 le 22/12/2016 à 17:40

Re,

en supposant que ta liste de validation qui te sert d'afficher les noms se trouve en cellule F2
et que par exemple tu désires afficher la photo en cellule B3 surdimensionnée et que tes photos ont l'extension .JPG
colle ce code dans les propriétés de ta feuille (clic droit/visualiser le code)

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Image As Picture
    Dim design As String
    On Error Resume Next
    ActiveSheet.Shapes("TemImag").Delete
    If Intersect(Target, Range("F2")) Is Nothing Then: Exit Sub
    [B3].Select
    design = ThisWorkbook.Path & "\" & [F2].Value & ".jpg"
    Set Image = ActiveSheet.Pictures.Insert(design)
    With Image.ShapeRange
         .Name = "TemImag"
         .Height = [B3].Height
         .Width = [B3].Width
          End With
    [A1].Select
End Sub

A+
Mike-31

Pas savoir n'est pas un échec, l'échec est le refus d'apprendre.

Réponse 7 / 7

Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 5 073
23 déc. 2016 à 08:31

Re,

tes photos qui se trouvent dans le même répertoire que ton fichier Excel et sont nommées au nom de chacun de tes salariés, exemple
André.jpg
Pierre.jpg
etc ....

dans le fichier Excel, dans l'exemple cellule F2 tu crées une liste de validation qui affichera les noms de tes salariés sans l'extension, exemple
André
Pierre
etc ...

il suffit de sélectionner le nom du salarié en F2 dans la validation et la photo s'affiche en B3 cellule surdimensionnée

bien sur les cellules B3 et F2 sont à adapter

Discussions similaires

Retrouver l'image originale après avoir fait des modifications ?

Discussions similaires

Newsletters