Discussion :

[jnauche]

Bonjour,

Je cherche désespérément à coller des tableaux Excel dans une présentation PowerPoint.
L'ensemble des forums que j'ai pu consulté et les solutions qui ont été apportées ne me permettent pas de résoudre mon problème.

Je n'arrive pas à Coller : que ce soit en collage simple (PASTE) ou collage spécial (SPECIALPASTE).

J'ai simplifié au maximum mon code pour essayer de trouver l'origine mais rien n'y fait. Le voici

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Chemin = Workbooks(ActiveWorkbook.Name).Path
Fichier = Chemin & "\testcollage.pptx"
 
Set Pwpt = CreateObject("PowerPoint.Application")
Pwpt.Visible = True
Set PresPpt = Pwpt.presentations.Open(Filename:=Fichier)
 
Sheets("V2").Activate
Sheets("V2").Cells(2, 2) = "Juillet"
Range("C9").Select
 
Selection.Copy
PresPpt.Slides(1).Shapes.Paste

J'ai également essayé quelques collages spéciaux comme

Code :

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

PresPpt.Slides(1).Shapes.PasteSpecial (pppastebitmap)

Ici je remarque qu'en debuggeur pppastebitmap est vide bizaremment...

Et pour finir mon message d'erreur


Je vous remercie par avance pour votre aide précieuse!!!
Je ne suis pas fermé à faire le copier depuis le powerpoint si cela peut être une issue (même si ca complexifie un peu la solution).

Cordialement,
Julien