Bonjour,
J'aurais voulu mettre à jour automatiquement un tableau Power point, depuis Excel. Autrement dit, dès que je mets à jour mon tableau Excel, je voudrais que le même tableau (dans power point) se mette à jour à l'aide d'une macro VBA.
Grâce à ce site, j'ai pu récupérer le code qui va bien (voir ci-dessous). Par contre, ce code fait seulement di "copier/coller" sans écraser l'ancien tableau de mon power point.
Pourriez vous me dire SVP comment faire pour supprimer d'abord le tableau power point avant la copie du nouveau, ou au moins vider ses cellules avant mise à jour parce que la structure ne change pas.
D'avance merci.

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
Sub ModifierPresentationExistante()
Dim PptApp As PowerPoint.Application
Dim PptDoc As PowerPoint.Presentation
 
Set PptApp = CreateObject("Powerpoint.Application")
PptApp.Visible = True
Set PptDoc = PptApp.Presentations.Open("C:\LaPresentation.ppt")
 
With PptDoc
    'copie la plage de cellules dans la feuille Excel active
    Feuil1.Range("B1:H5").Copy
    'Effectue un collage dans la 2eme diapositive
    .Slides(2).Shapes.Paste
 
 
    With .Slides(2).Shapes(.Slides(2).Shapes.Count)
 
         .Name = "monTableau" 'Renomme l'objet collé
         .Left = 150 'position horizontale dans le slide
         .Top = 100 'position verticale dans le slide
         .Height = 300 'hauteur
         .Width = 400 'largeur
   End With
 
    'insère le contenu de la cellule A1 dans la deuxième zone de texte,
    'du 3eme slide
'    .Slides(3).Shapes(2).TextFrame.TextRange.Text = Range("A1")
 
    'sauvegarde la présentation
    .Save
End With
 
'ferme la présentation
PptDoc.Close
'ferme powerpoint
PptApp.Quit
 
End Sub