Mise à jour d'un fichier ppt par Excel VBA [Fermé]

Signaler
Messages postés
2
Date d'inscription
jeudi 19 juillet 2012
Statut
Membre
Dernière intervention
3 janvier 2013
-
 Not that brillant -
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



2 réponses

Messages postés
3
Date d'inscription
samedi 21 juillet 2012
Statut
Membre
Dernière intervention
25 septembre 2014

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 ... :-)

Merci Locura7623 ,
A vrai dire je travaille sur ce projet lors de mon stage ,et on m a exigée d'utiliser une macro pour développer cette application par VBa . Je n y suis pas vraiment experte ...et là je me bloque vraiment
Messages postés
15739
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
21 avril 2021
1 483
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

Bonjour ,

Merci infiniment pour votre code, ça m'a permis de modifier quelques lignes du mien .
le problème qui me reste à résoudre maintenant c'est comment insérer 2 graphiques en un seul slide contenant le titre de la présentation ?

Merci d'avance