Tout point d'amélioration est le bienvenue .Le besoin est de pouvoir fournir une photo de faible dimension au format CI pour des licences de pétanques (entre autre)
Sub Export_Image_de_Plage(Zone As String, Ndf As String)
Dim Source As Range, Gr As Object
Dim Dossier As String
Dossier = ActiveWorkbook.Path & "\Photo"
If Dir(Dossier, 16) = "" Then MkDir Dossier
Ndf = Dossier & "\" & Ndf & ".gif"
Set Source = Range(Zone)
Source.CopyPicture xlScreen, xlPicture
Set Gr = Sheets(1).ChartObjects.Add(0, 0, Source.Width, Source.Height)
Gr.Activate ' <<<<<<<<<<<<< ajouté
Gr.Chart.Paste
Gr.Chart.Export Ndf, "GIF"
Gr.Delete
Set Gr = Nothing
Set Source = Nothing
End Sub