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
J'ai également essayé quelques collages spéciaux comme
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
Ici je remarque qu'en debuggeur pppastebitmap est vide bizaremment...
Code : Sélectionner tout - Visualiser dans une fenêtre à part PresPpt.Slides(1).Shapes.PasteSpecial (pppastebitmap)
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
Partager