Discussion :

[harald78]

Bonjour,

Je me permet de vous écrire car j'ai besoin d'éclairages de personnes maitrisant VBA (que je ne maitrise absolument pas).

Dans le cadre de mon travail, j'ai des données à réactualiser sous ppt de manière récurrente, à partir d'excel.

J'ai bidouillé quelques trucs sous VBA. Mais mon souci est le suivant :

A partir du tableau excel, je dois actualiser la Feuille de données d'un Graph ppt.
Les données de la Feuille de données ppt ont été copiées avec liaison au fichier excel.
Mais au moment où la macro se termine les données ne réactualisent pas dans le ppt.

En faisant un tour sur ce forum, j'ai trouvé les lignes suivantes mais ça ne marche pas.

quelqu'un aurait une idée ?

Code :

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

1
2
3
4
5
6
Set ppt = CreateObject("PowerPoint.Application")
ppt.Visible = True
Set Pres = ppt.Presentations.Open(Filename:="xxx")
Pres.UpdateLinks
Pres.Save
ppt.Quit

Merci beaucoup de votre aide

[Chris50]

Bonsoir,

Si je comprends bien, tu as un document Powerpoint dont les données sont liées à des données Excel.
Lorsque les données Excel changent, tu aimerais actualiser ton document Powerpoint par du code VBA, écrit dans ton classeur Excel.
Tu peux essayer le code VBA suivant que tu mets dans un module de ton classeur Excel :

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
Sub Actual_pptx()
'Actualisation des graphiques dont les données sont issues d'un classeur Excel lié à la présentation Powerpoint
 
Dim Pwt As PowerPoint.Application
Dim Présen As PowerPoint.Presentation
Dim Chemin_Présentation As String
Dim dName As String
Dim Diapo As PowerPoint.Slide
 
Chemin_Présentation = ThisWorkbook.Path & "\Enquête de satisfaction.pptx"
Set Pwt = CreateObject("PowerPoint.Application")
Set Présen = Pwt.Presentations.Open(Chemin_Présentation, WithWindow:=msoFalse)
'ce dernier parametre WithWindow:=msoFalse permet de masquer Powerpoint pendant l'exécution du code
'Boucle sur les Slides de la présentation
For Each Diapo In Présen.Slides
    dName = Diapo.Name              'nom du Slide
    'actualisation du graphique par les données issues d'Excel
    If Diapo.Shapes.Placeholders(1).PlaceholderFormat.Type = 7 Then
        Diapo.Shapes.Placeholders(1).LinkFormat.Update
    End If
    If Diapo.Shapes.Placeholders(2).PlaceholderFormat.Type = 7 Then
        Diapo.Shapes.Placeholders(2).LinkFormat.Update
    End If
Next
'sauvegarde la nouvelle version de la présentation
Présen.Save
'ferme la présentation
Présen.Close
'ferme powerpoint
Pwt.Quit
End Sub

[halaster08]

Bonjour,

Un petit coup d'oeil par ici quelques sujets en dessous du tien.
http://www.developpez.net/forums/d16...int-excel-vba/

PS: @Chris50 utilise la balise code sinon c'est illisible