Re bonsoir,
je viens de tester votre fichier (le dernier) en modifiant le nom de la "feuil1" en "MI" et "MII" et dans les deux cas cela fonctionne, l'image est bien créée...
Voici le code :
Option Explicit
Sub Export_Image_de_PlageA()
Dim ndf As String
Dim Source As Range, Gr As Object
ndf = "D:\TOP5EQA.jpg"
Set Source = Range("MII!C1:E17")
Source.CopyPicture xlScreen, xlPicture
Set Gr = Sheets(1).ChartObjects.Add(0, 0, Source.Width, Source.Height)
Gr.Chart.Paste
Gr.Chart.Export ndf, "jpg"
Gr.Delete
Set Gr = Nothing
Set Source = Nothing
End Sub
Evidemment j'ai modifié les références de plage...
@ bientôt
LouReeD