XL 2016 Problème de compatibilité Excel sur export

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?


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
 
Haut Bas