Copier-Coller Excel vers PowerPoint

[Gérôme]

Bonjour

Je suis en train d'automatiser un process par une macro sous Excel.
Mais j'ai un problème pour copier un graphique depuis Excel sous Powerpoint. J'arrive à ouvrir PowerPoint grâce à ma macro à copier, mais je ne peux pas coller, car je ne connais pas la syntaxe exacte sous PowerPoint.
Pourriez vous m'aider??

 

[ASR]

Bonjour Gérôme,
essaie ce code




sub collage()
Dim ppt As PowerPoint.Application
Dim Slides1 As PowerPoint.Slide

Sheets("nom de la feuille").Select
ActiveSheet.ChartObjects("nom du graphique").Activate
ActiveChart.ChartArea.Copy
' Et on le colle dans la première diapositive de la présentation :
ppt.ActivePresentation.Slides(1).Select
ppt.ActivePresentation.Slides(1).Shapes.PasteSpecial (ppPasteBitmap)