XL 2019 Excel vers PPT par VBA

Ericfourm

XLDnaute Nouveau
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
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 910
Membres
101 837
dernier inscrit
Ugo