Bonjour,

Je suis actuellement en train d'essayer de réaliser une macro me permettant d'exporter toutes mes données, que j'ai dans un classeur Excel, dans un fichier Powerpoint.

Ce sont des tableaux simples (donc un ensemble de cellules) que je préfère présenter sous PowerPoint. J'ai déjà trouver quelques codes mais cela ne marche pas et je n'y trouve pas de solution.

J'aimerai également que mon fichier PowerPoint s'actualise si je modifie les entrées dans mon tableur excel.

Je vous poste le code que j'ai effectué pour l'instant en m'aidant d'une discussion trouvée sur ce forum, si une ame charitable peut m'aider à le modifier pour que ca fonctionne

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 
Sub TestPowerPoint()
 
  ' On déclare une variable de type Application PowerPoint
  Dim PPT As PowerPoint.Application
  ' On crée maintenant un objet Presentation
  Dim Pres As PowerPoint.Presentation
  Set PPT = CreateObject("PowerPoint.Application")
  PPT.Visible = True ' Indispensable, sinon il ne peut pas ouvrir de fichier (Erreur)
 
  ' Et on lui dit de quelle présentation il s'agit :
  Set Pres = PPT.Presentations.Open(Filename:="C:\Présentation1.ppt")
 
  ' On active, sélectionne et copie le Graphique Graphique 1 de Excel :
 
  Sheets("Feuille1").Select
  Range("A1:G3").Select
  Selection.Copy
  PPT.Presentations(PPT.Presentations.Count).Slides(1).Shapes.Paste ppPasteMetafilePicture
 
  Sheets("Feuille2").Select
  Range("A1:C4").Select
  Selection.Copy
  PPT.Presentations(PPT.Presentations.Count).Slides(2).Shapes.Paste ppPasteMetafilePicture
 
  Sheets("Feuille3").Select
  Range("A1:D39").Select
  Selection.Copy
  PPT.Presentations(PPT.Presentations.Count).Slides(3).Shapes.Paste ppPasteMetafilePicture
 
  Sheets("Feuille4").Select
  Range("A1:S13").Select
  Selection.Copy
  PPT.Presentations(PPT.Presentations.Count).Slides(4).Shapes.Paste ppPasteMetafilePicture
 
 
 
  ' On enregistre la présentation PowerPoint :
  Pres.Save
 
  ' Et on quitte PowerPoint proprement :
  PPT.Quit
  Set PPT = Nothing
 
End Sub
Avec ce code j'arrive à lancer le programme powerpoint et à copier les cellules de mon premier onglet mais après un message d'erreur s'affiche sur vba :
"Shape range : bad argument type. expected collection index (string or integer)"


enfin quand je remplace le simple Paste par PasteSpecial dans mon code il me fait plus rien du tout et m'afiche comme message d'erreur :"membre de méthode ou de donnée introuvable"

Merci pour votre aide!