Importation automatique image JPEG excel 2016

patator48 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   -
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,

7 réponses

  1.
    patator48 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
     
    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"
    0
  2. Patator48
     
    Merci Mike,

    Par contre dans ta macro, je ne vois pas comment aller récupérer le dossier contenant les photos.
    0
  3. Patator48
     
    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
    0

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

    Posez votre question
  6. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    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
    -1
  7. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    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.
    -1
  8. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    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
    -1