Discussion :

[lhonolulu]

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

[Invité]

Bonjour

Personnellement j'utiliserais un tableau plutôt qu'une feuille dans le slide, dans ce cas c'est plus simple et il y a des exemples sur le forum et la FAQ PPT.

Philippe

[lhonolulu]

Merci de cette réponse rapide.
Le soucis, c'est le client désire qu'on automatise la création du ppt avec des feuilles de calcul Excel à l'intérieur.
Pour l'instant j'ai la solution de copier les données "normalement" mais cette solution ne satisfait pas le client.