Discussion :

[vincedu74]

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

[a_diard]

essaye avec ceci sur te dernière ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 ActiveSheet.Paste

Bonne journée.

[vincedu74]

J'ai essayé et il y a toujours une erreur.

"La méthode paste de la classe Worksheet a échoué."

[Menhir]

A lire : https://msdn.microsoft.com/fr-fr/lib.../ff841052.aspx

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sheets("ResearchTool").ChartObjects("Graphique 4").CopyPicture
Sheets("GRAPH").Range("A" & ((n - 3) * 10) + 10).Select
Sheets("GRAPH").Paste