Copier une plage et l'enregistrer au format jpg

[Mic]

Bonjour à tous
Est-il possible en vba de séléctionner une plage de cellules et de l'enregistrer en tant qu'image au format jpg?

Merci de vos renseignement.

 

[myDearFriend]

Bonsoir Mic,


Ci-dessous une procédure basée sur un morceau de code trouvé sur le Net et dont je ne me rappelle plus l'auteur :

Sub ExportRangeGif()
Dim R As Range
Application.ScreenUpdating = False
Set R = ActiveSheet.Range("A1:F15")
R.CopyPicture
ActiveSheet.Paste
Selection.Name = "Temp"
With ActiveSheet.ChartObjects
With .Add(0, 0, Selection.Width, Selection.Height).Chart
.Paste
.Export "C:\Image.gif", "gif"
End With
.Delete
End With
ActiveSheet.Shapes("Temp").Delete
Application.ScreenUpdating = True
End Sub



Cordialement,
Didier_mDF

 

[Mic]

Super ça marche. Mille merci Didier.