Discussion :

[pontoise]

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

[ouskel'n'or]

Tu as la possibilité de lier le tableau Excel à ta diapo dans ppt au moment où tu le colles dans la diapo
Menu Edition -> Collage spécial -> cocher "Coller avec liaison".
Toutes les modifs de la feuille de calculs seront répercutées dans le fichier.
Sans cela, tu peux supprimer le tableau si tu as son nom (Objet numéro...)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    PptDoc.Slides(1).Shapes("Objet (N°)").Delete

Pour avoir le nom des objets que tu as dans ta diapo tu peux le connaître ainsi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For Each objet In ActivePresentation.Slides(1).Shapes
    MsgBox objet.Name
Next

A+

[pontoise]

Super,
Les 2 solutions fonctionnent.............
Merci beaucoup.