comment puis-je afficher une photo par son nom

[ExcelDZ]

Bonjour,
comment puis-je afficher une photo par son nom

 

[Lone-wolf]

Re : comment puis-je afficher une photo par son nom

Bonjour katib,

Code à modifier selon ton choix.

Dim sh, img, repertoire, nf

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False

 suppression
  repertoire = "D:\Dossiers Excel\Importation Images\" 'Répertoire à modifier
    nf = repertoire & Range("B3") & ".jpg"  'En B3 le nom de l'image
   
    On Error Resume Next
      With Range("B3")
    If Dir(nf) <> "" Then
      Set img = ActiveSheet.Pictures.Insert(nf)
      img.Name = .Value
      img.Top = .Top
      img.Left = .Left
    End If
Range("B2").Value = .Value
End With
Application.EnableEvents = True
End Sub


Sub suppression()
  For Each sh In ActiveSheet.Shapes
    If sh.Type <> 8 Then sh.Delete
  Next sh
End Sub

A+

 

[ExcelDZ]

Re : comment puis-je afficher une photo par son nom

bonjour
merci pour votre intervention..
désolé mais je ne peux pas installer le code

 

[Lone-wolf]

Re : comment puis-je afficher une photo par son nom

Re Katib,

normal. Tu à mis un fichier en .xlsx qui ne prend pas en charge les macros. Enregistre le fichier en .xlsm Classeur Excel (prenant en charge les macros).



A+

 

[R@chid]

Re : comment puis-je afficher une photo par son nom

Bonjour @ tous,
avec un champ nommé Photo.
Voir PJ



@ + +

 

[ExcelDZ]

Re : comment puis-je afficher une photo par son nom

bonjour:
merci beaucoup pour ce merveilleux travail
Il fonctionne bien
merci une autre fois