Bonsoir le forum
sur le net j'ai trouvé ce code
Sub ImportImage()
Image = Application.GetOpenFilename("Fichiers Gif ou Jpg ,*.gif;*.jpg")
If Image <> False Then
a = Split(Image, "\")
nomimage = a(UBound(a))
Set c = ActiveCell
With ActiveSheet
.Pictures.Insert(Image).Name = nomimage
.Shapes(nomimage).Height = c.Height
.Shapes(nomimage).Left = c.Left + (c.Width - .Shapes(nomimage).Width) / 2
.Shapes(nomimage).Top = c.Top
.Shapes(nomimage).LockAspectRatio = msoTrue
End With
End If
End Sub
du coup il serait pas trop mal pour ce que je voudrais faire, mais comment l'adapter pour qu'il insère une image dans la plage suivante ("D9:M19")