Je vous remercie pour cette référence, elle m'est très utile..
sauf que pour terminer mon exemple je veux dans la procédure qui suit, déterminer le numero de la ligne dont laquel réside l'image.
'-------------------------------------
Sub SauveImages()
Dim pictu As IPictureDisp, Sh As Shape
Dim nomPic As String
With ActiveSheet
For Each Sh In ActiveSheet.Shapes
Sh.CopyPicture xlScreen, xlBitmap
Set pictu = PastePicture(xlBitmap)
'SavePicture pictu, ThisWorkbook.Path & '\\' & Sh.Name & '.bmp'
nomPic = Range('I' & (içi le numero de la ligne)).Value
SavePicture pictu, ThisWorkbook.Path & '\\' & nomPic & '.bmp'
Next Sh
End With
End Sub
'------------------------------------------------------
Votre m'est indisponsable. Merci pour tout.
a+