Bonjour,

J'ai un classeur Excel avec des données à l'intérieur.
J'ai un slide ppt, avec une feuille de calcul dedans. J'aimerais copier mes données Excel à l'intérieur du ppt. (collage spécial objet feuille de calcul microsoft excel).
J'arrive à copier mes données dans ppt mais pas dans la feuille Excel de ppt.

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
 
Sub TestPowerPoint()
  Dim Xlwkb As Excel.Workbook
  Dim Xlwks As Excel.Worksheet
 
  Dim ppt As PowerPoint.Application
  Dim Pres As PowerPoint.Presentation
 
  Set ppt = CreateObject("PowerPoint.Application")
  ppt.Visible = True  
  Set Pres = ppt.Presentations.Open(Filename:="L:\Presentation1.ppt")
 
  Set Xlwkb = ThisWorkbook
  Set Xlwks = Xlwkb.ActiveSheet
 
  Xlwks.Range(Xlwks.Cells(1, 1), Xlwks.Cells(20, 9)).Copy
 
  Pres.Slides(1).Shapes.Paste ppPasteMetafilePicture
  Pres.SaveAs ("L:\test.ppt")
  ppt.Quit
  Set ppt = Nothing
End Sub
J'ai beau chercher je ne trouve pas comment faire.
Merci de votre aide