XL 2019 Excel vers PPT par VBA

[Ericfourm]

Bonjour à tous,

Je cherche à automatiser l'édition d'un reporting (x50 tous les mois) qui serait exporté à la fois sous ppt et word.

je dispose de 6 groupes d'objets nommés, GRP1 à GRP6 que je souhaite exporter vers ppt.
tous se trouvent dans l'onglet "GRAPHIQUES"
j'ai activé les librairies ppt & word, pourtant la macro que je construis (voir plus bas) m'envoie chaque fois le même message d'erreur

Type défini par l'utilisateur non défini

L'aide Office étant ce qu'elle est, je ne parviens pas à m'en sortir. Si d'aventure quelqu'un venait à avoir une idée, merci d'avance

Eric
-----------------------------------------------

Sub Reporting()

Dim PptApp As PowerPoint.Application
Dim PptDoc As PowerPoint.Presentation
Dim pptSlide As Slide
Dim pptLayout As CustomLayout
Dim i, n, s, j, k As Integer

Set PptApp = CreateObject("Powerpoint.Application")
PptApp.Visible = True

'------ > Chemin d'accès au fichier template - A modifier si le fichier est déplacé ou partagé

Set PptDoc = PptApp.Presentations.Open("C:\Users\Eric\Desktop\CARRE\TEST.pptx")

'Créer la slide et y coller les infos Excel'
Sheets("GRAPHIQUES").Shapes.Range(Array("GRP1")).Select
Selection.Copy
PptDoc.Slides.Add i, 2

PptDoc.Slides(i).Shapes.PasteSpecial ppPasteBitmap

'ajouter titre de la slide

PptDoc.Slides(i).Shapes.Title.TextFrame.TextRange.Text = Sheets("GRAPHIQUES").Range("C3").Value

End Sub

 

[Ericfourm]

Je précise par ailleurs le format idéal de restitution

6 slides distinctes
sur chacune des slides
1 titre (qui est déjà mentionné dans une cellule)
Un groupe d'objets (de GRP1 à 6)