Tu ne pourras faire cela sans passer par la conversion. Je t'ai fait un code qui marche très bien pour les jpg et gif mais pas pour les bmp:
Option Explicit
Private Sub CommandButton1_Click()
InserImage
End Sub
Sub InserImage()
Dim chemin
Sheets("Feuil1").Activate
ChDir "C:" '<-- changez pour votre répertoire
chemin = Application.GetOpenFilename _
("Images (*.bmp;*.gif;*.jpg;*.tif),*.bmp;*.gif;*.jpg;*.tif")
If chemin <> False Then
Range("A1").Select
ActiveSheet.Pictures.Insert(chemin).Select 'inserer image
End If
exportimage
End Sub
Sub exportimage()
Application.DisplayAlerts = False
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
If sh.Type = 13 Then
sh.Copy
With ActiveSheet
.ChartObjects.Add(0, 0, sh.Width, sh.Height).Chart.Paste
.ChartObjects(1).Chart.Export Filename:="C:\monimage.gif", FilterName:="gif"
.Shapes(ActiveSheet.Shapes.Count).Delete
End With
End If
Next
Selection.Cut 'supprime l'image
Application.DisplayAlerts = True
End Sub
@+Le Pivert