Sub SauvegardePlageEnImage() Dim Fd As FileDialog, sPath As String
' Empècher le rafraischissement écran
Application.ScreenUpdating = False
' Copier la plage de donnée de A7 à F27
Sheets(1).Range("A7:F27").CopyPicture
'L'image est collée dans la feuille active
Sheets(1).Paste
' Demander le chemin de sauvegarde
Set Fd = Application.FileDialog(msoFileDialogFolderPicker)
With Fd
If .Show = -1 Then
sPath = .SelectedItems.Item(1) & "\"
End If
End With
If sPath <> "" Then
With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart
.Paste
.Export sPath & "Jour.jpg", "jpg" 'ici je souhaiterais que la boite de dialogue s'ouvre pour me demander ou enregistrer l'image...
End With
ActiveSheet.ChartObjects.Delete
End If
ActiveSheet.Shapes(1).Delete
' Activer le rafraischissement écran
Application.ScreenUpdating = True
End Sub