VBA copier un Tableau Croisé Dynamique excel dans Power point

Bonjour,

J'ai un fichier excel dans lequel je créé des graphiques, zone de texte et TCD pour synthétiser des informations chiffrées.
Ensuite je dois copier/coller toutes ces informations dans un power point.
J'ai réussi à trouver sur votre site une macro pour copier les graphiques mais je voulais savoir s'il serait possible d'utiliser la même chose pour les TCD.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

ub copiebdx()   Dim ppt As PowerPoint.Application Dim pptdoc As PowerPoint.Presentation Dim Nbshpe As Byte   Set ppt = CreateObject("Powerpoint.Application") 'creation session PowerPoint ppt.Visible = True Set pptdoc = ppt.Presentations.Open("LIEN SOURCE")   ActiveSheet.ChartObjects("RT").CopyPicture xlScreen, xlBitmap 'copie du "RT" de la feuille active pptdoc.Slides(57).Shapes.Paste 'collage dans le Slide57 du document Power Point   Nbshpe = pptdoc.Slides(57).Shapes.Count   With pptdoc.Slides(57).Shapes(Nbshpe) .Name = "RT" 'personnaliser le nom de l'image insérée .Left = 30 'position horizontale dans le slide .Top = 100 'position verticale dans le slide .Height = 320 'hauteur image .Width = 480 'largeur image End With

---

Par exemple en remplaçant le ChartOjects de ce code.

Merci d'avance :)

J'ai tenté plusieurs choses pour pouvoir copier mes TCD et finalement j'ai tenté ce code en remplaçant ChartObjects par PivotTables.
Mais à cette même ligne j'ai un message d'erreur : "Propriété ou méthode non gérée par cet objet".

Toujours pas de solution?
Merci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Sub X() Dim ppt As PowerPoint.Application Dim pptdoc As PowerPoint.Presentation Dim Nbshpe As Byte Set ppt = CreateObject("Powerpoint.Application") 'creation session PowerPoint ppt.Visible = True Set pptdoc = ppt.Presentations.Open("LIEN SOURCE.pptm") 'ouverture fichier ppt 'Slide16 ActiveSheet.PivotTables("TCDA1").CopyPicture xlScreen, xlBitmap pptdoc.Slides(16).Shapes.Paste Nbshpe = pptdoc.Slides(16).Shapes.Count With pptdoc.Slides(16).Shapes(Nbshpe) .Name = "TCDA1" 'personnaliser le nom de l'image insérée .Left = 30 'position horizontale dans le slide .Top = 100 'position verticale dans le slide .Height = 450 'hauteur image .Width = 600 'largeur image End With End Sub

---