JONEY76
XLDnaute Occasionnel
Bonsoir à tous,
J'ai ici un code qui fonctionne très bien sur Excel 2007, mais qui plante sur Excel 2016.
Ce code permet de créer une image temporaire d'une plage de cellules d'une feuille puis de l'exporter dans un dossier.
Le code plante à : .paste
Mais pourquoi ce plantage uniquement sur 2016?
J'ai ici un code qui fonctionne très bien sur Excel 2007, mais qui plante sur Excel 2016.
Ce code permet de créer une image temporaire d'une plage de cellules d'une feuille puis de l'exporter dans un dossier.
Le code plante à : .paste
Mais pourquoi ce plantage uniquement sur 2016?
Code:
Sub CelluleToJpeg()
With Feuil1
'Copie la cellule en tant qu'image
.Range("A25:d31").Select
Selection.CopyPicture
'Créer un graphique temporaire
With .ChartObjects.Add(Cells(1, 1).Left, Cells(1, 1).Top, Cells(1, 1).Width + 250, Cells(1, 1).Height + 100).Chart
'Y passe l'image
.Paste
'Export dans le répertoire du fichier xl
.Export ThisWorkbook.Path & "\paint\Sans titre.jpg", "JPG"
End With
'Supprimer le graphique temporaire
.ChartObjects(Feuil1.ChartObjects.Count).Delete
End With
End Sub