Bonjour,
Voici le code en question par Laurent Longre :
Sub ExportRangeAsImage()
'd'après LL
Dim Plage As Range
Dim Extension$, FichierImage$
Extension = "JPG"
FichierImage = "d:\Test_JPG.jpg" 'par exemple
Set Plage = ActiveSheet.UsedRange
Application.ScreenUpdating = False
Workbooks.Add
Plage.CopyPicture
ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, _
Selection.Width, Selection.Height).Chart
.Paste
.Export FichierImage, Extension
End With
ActiveWorkbook.Close False
End Sub
(le code est à recopier dans un module standard du classeur dont la ou les
feuilles sont à exporter en images).
Mais il y avait peut-être un code similaire dans le grenier de XLD.
Celeda