XL 2019 Erreur sur Export Image

[carlos]

Bonjour,

J'ai cette erreur qui apparait avec ce code et je ne vois pas pourquoi:

Feuil11.Range("A16:J42").CopyPicture
Feuil11.Paste
With Feuil11.ChartObjects.Add(0, 0, Cells(16, 1).Left, Cells(42, 10).Top).Chart
.Paste
.Export "D:\monImage.jpg", "JPG"
End With
Gerer.Image1.Picture = LoadPicture("D:\graphique.gif")
With Feuil11
.ChartObjects(Feuil1.ChartObjects.Count).Delete
.Shapes(Feuil11.Shapes.Count).Delete
End With
Merci et bonne journée

 

[carlos]

La macro bloque sur .Export "D:\monImage.jpg", "JPG"

 

[carlos]

L'mage est bien enregistrée sous D mais à son ouverture j'ai ce message de windows: