Bonjour à tous je souhaite copier coller un graphique sous forme d'image, j'ai une erreur à la dernière ligne : Impossible de lire la propriété paste de la classe Pictures.

Est ce que quelqu'un peut me donner un coup de main svp ?

Merci !

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
Sheets("ResearchTool").ChartObjects("Graphique 4").Activate
    Sheets("ResearchTool").ChartObjects("Graphique 4").Select
    Application.CutCopyMode = False
    ActiveChart.ChartArea.Copy
 
    Sheets("GRAPH").Select
    k = ((n - 3) * 10) + 10
    Range("A" & k).Select
 
    ActiveSheet.Pictures.Paste.Select