Importation automatique image JPEG excel 2016

patator48 Messages postés 2 Statut Membre -  
Mike-31 Messages postés 19571 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,
A voir également:

7 réponses

Réponse 1 / 7
patator48 Messages postés 2 Statut Membre
 
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
Réponse 2 / 7
Patator48
 
Merci Mike,

Par contre dans ta macro, je ne vois pas comment aller récupérer le dossier contenant les photos.
0
Réponse 3 / 7
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
Réponse 4 / 7
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318
 
bonjour mike
DOUBLON de patator...
https://forums.commentcamarche.net/forum/affich-24860649-importation-automatique-image-jpeg-excel#p34205246
0
Mike-31 Messages postés 19571 Date d'inscription   Statut Contributeur Dernière intervention   5 137
 
Bonjour Michel,

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

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

Posez votre question
Réponse 5 / 7
Mike-31 Messages postés 19571 Date d'inscription   Statut Contributeur Dernière intervention   5 137
 
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
Réponse 6 / 7
Mike-31 Messages postés 19571 Date d'inscription   Statut Contributeur Dernière intervention   5 137
 
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
Réponse 7 / 7
Mike-31 Messages postés 19571 Date d'inscription   Statut Contributeur Dernière intervention   5 137
 
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

Discussions similaires

PIX
plart -
jordane45 -

1 réponse