Inserer des images Jpeg dans excel en conservant son nom

[maval]

Bonjour

Je recherche le moyen d'inserer des images conservant son nom dans la colonne "J" en sachant que dans la colonne "D" se trouve le même nom que l'image.

Je vous remerci davance

 

[sousou]

Re : Inserer des images Jpeg dans excel en conservant son nom

bonjour maval

voici deux procédures à installer dans un module.

utilisation tu sélectionnes les cellules contenant les noms de tes pays et tu lance inserimg

la procédure efface efface toutes! les images de la feuille (attention si autres images ou graph....)

corrige aussi le nom trinité et tobago le nom dans la cellule et le nom de l'image sont différent.
Sub insertimg()
For Each i In Selection
chemin = ThisWorkbook.Path & "/"
Set img = i.Parent.Pictures.Insert(chemin & i & ".jpg")
With i.Offset(0, 5)
img.Left = .Left + .Width
img.Top = .Top
img.Name = i
End With
Next
End Sub

Sub efface()
For Each i In ActiveSheet.Shapes
i.Delete
Next
End Sub

 

[maval]

Re : Inserer des images Jpeg dans excel en conservant son nom

Bonjour Sousou

Je te remercie et te souhaite un bon WE