Bonjour, j'utilise un code avec un range, je ne comprend pas le pb , ca marche bien pour un range mais pour un graphique j'ai une erreur : ereur 438 propriete ou methode non geré"

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
    graph1 = "graph.gif"
    With ThisWorkbook.Worksheets("HistoPnL")
        .ChartObjects("Graphique 1").Chart.CopyPicture
         With .ChartObjects.Add(0, 0, 400, 200)
              .chart.Paste
              .Chart.Export PathTmp & graph1, "gif"
         End With
        .ChartObjects(.ChartObjects.Count).Delete
    End With
Merci d'avance, le probleme se titue à Paste.

en fait résolu dsl