De Excel à PowerPoint

Bonjour,

Je souhaiterais envoyer des graphiques et des tableaux de excel vers powerpoint. J'ai trouvé et testé cette macro, mais dès le première ligne, ce message s'affiche : "Type défini par l'utilisateur non défini"

Sub ppt()

' On déclare une variable de type Application PowerPoint

Dim ppt As PowerPoint.Application

Set ppt = CreateObject("PowerPoint.Application")

ppt.Visible = True ' Indispensable, sinon il ne peut pas ouvrir de fichier

' On crée maintenant un objet Presentation

Dim Pres As PowerPoint.Presentation

' Et on lui dit de quelle présentation il s'agit :

Set Pres = ppt.Presentations.Open(Filename:="Essai.ppt")

' On active, sélectionne et copie le Graphique Graphique 1 de Excel :

ChartObjects("Graph 1").Activate

ActiveChart.ChartArea.Select

ActiveChart.ChartArea.Copy

' Et on le colle dans la première diapositive de la présentation :

Pres.Slides(1).Shapes.PasteSpecial ppPasteMetafilePicture

ChartObjects("Graph 1").Activate

' On enregistre la présentation PowerPoint :

Application.DisplayAlerts = False

nomsave = "Presentation"

Pres.SaveCopyAs nomsave

' Et on quitte PowerPoint proprement :

ppt.Quit

Set ppt = Nothing

End Sub

End Sub

Merci des solutions que vous pourrez m'apporter.

BOnjour

Pas détaillé le code mais coche déjà la référence Powerpoint dans ton éditeur >VBA

Okay merci, ça marche très bien.