Discussion :

[amandinee31]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[amandinee31]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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