Mise à jour d'un fichier ppt par Excel VBA

Question

Bonjour, 

  J'ai un projet qui consiste à mettre à jour automatique d' un fichier PowerPoint tout en modifiant les données dans le fichier Excel en se servant d'une macro .à Vrai dire ,j ai effectué un programme qui permet d'ouvrir une  présentation ppt existante et qui copie chaque graphe du fichier excel dans une diapositive du ppt , Mon problème c'est qu'a chaque exécution les graphiques se recopient à nouveau et ne se modifient pas .comment faire pour les modifier ??

merci pour toute aide ou indication



Configuration: Windows Vista / Safari 536.11

locura7623 · Answer

bonjour,

je ne suis pas sur d'avoir bien compris ton problème.
Mais il n'y a pas besoin de faire une macro pour ça...  Il me semble que tu peux copier ton graphique sur excel et le copier (avec le clic droit) "en liaison". Le lien permettra donc la mise a jour de la données d'excel vers ppt..

ps : desole si c t pas la question ... :-)

f894009 · Answer

Bonjour,

Est ce que ceci pourrait vous aidez??

Comment mettre à jour les données d'un graphique Excel incorporé dans une présentation ?	
Créé le 18/11/2008[haut]
auteur : SilkyRoad
Vba


Sub MAJ_graphiqueDansPresentation()
Dim appPPT As PowerPoint.Application
Dim Sh As PowerPoint.Shape
Dim Gr As Workbook
   
Set appPPT = CreateObject("PowerPoint.Application")
appPPT.Visible = msoTrue
appPPT.Presentations.Open "C:\maPresentation.ppt"
 
'Copie une plage de cellules dans la feuille active
'Ces données vont être collées dans le classeur incorporé, dans ppt, servant
'de source pour le graphique.
ActiveSheet.Range("A1:G10").Copy
   
'Le classeur incorporé est dans le 1er Slide
With appPPT.ActivePresentation.Slides(1)
    'Boucle sur les formes pour retrouver l'objet Excel
    For Each Sh In .Shapes
        'Verifié s'il s'agit d'un objet incorporé
        If Sh.Type = msoEmbeddedOLEObject Then
            'Vérifie s'il s'agit d'une feuille graphique
            If Sh.OLEFormat.progID = "Excel.Chart.8" Then
                Set Gr = Sh.OLEFormat.Object
                'Colle les données dans la Feuil1 du classeur incorporé
                'La feuil1 contient la source de données pour le graphique
                Gr.Sheets("Feuil1").Range("A1").PasteSpecial
                'réactive la première feuille du classeur incorporé
                '(Le graphique est situé dans ce 1er onglet)
                Gr.Sheets(1).Activate
            End If
        End If
    Next Sh
End With
End Sub


Bon courage

Mise à jour d'un fichier ppt par Excel VBA

2 réponses

Votre réponse

Discussions similaires

Newsletters