Sub export_images()
Const Chemin = "D:\Mon Dossier" '<--- ici le chemin du dossier où sauvegarder
Dim gr1 As Object, Source1 As Range, nom As Date, fichier$
Application.ScreenUpdating = False
fichier = Chemin & IIf(Right(Chemin, 1) = "\", "", "\")
fichier = fichier & Format(Now(), "ddmmyy_hhmm") & ".png"
Set Source1 = Range("A1:R17")
Source1.CopyPicture xlScreen, xlPicture
With Sheets(1).ChartObjects.Add(0, 0, Source1.Width, Source1.Height)
.Activate:: .Chart.Paste: .Chart.Export fichier: .Delete
End With
End Sub