Discussion :

[illight]

Bonjour,

j'ai un petit souci

J'essaye de mettre à jour des graphiques de Powerpoint, que j'ai copier/coller a partir d'Excel (donc normalement il y a les liens)

Je voudrais maintenant mettre à jour ces graphiques.
Pour cela, j'ai pris une macro qu'avais écrit bbil :

Code :

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

1
2
3
4
5
6
7
Sub UpdatePpt()
Dim ppt As PowerPoint.Application
Set ppt = CreateObject("PowerPoint.Application")
Dim Pres As PowerPoint.Presentation
Set Pres = ppt.Presentations.Open(Filename:="C:\SR Handling.ppt")
Pres.UpdateLinks
End Sub

Le problème est que la macro déja s'arrete sur la ligne en gras, en me disant

presentations(unknown number) : invalid request.

Déja je comprend pas trop d'ou ça vient, mais je me dis qu'il faut peut etre que je sélectionne une Slide, meme si je pense pas qu ele fond vienne de la.
Pour info, j'ai bien activé les bibliothèques de Powerpoint hein

Pour la suite, pour les mettre à jour les graphiques, j'ai trouvé cette macro :

Code :

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

1
2
3
4
5
6
7
For Each sh In ActivePresentation.Slides(1).Shapes
    If sh.Type = msoLinkedOLEObject Then
        With sh.LinkFormat
            .Update
        End With
    End If
Next

qui permet de mettre à jour les graphique dans le premier slide

Le soucis pour moi est que ma présentation contient 21 Slides, donc ma question c'est : comment boucler sur les slides ?

Merci beaucoup pour votre aide, par avance.

[illight]

Je me répond a moi meme

J'ai trouvé cette macro, qui marche parfaitement :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub UpdatePpt()
Dim PPT As PowerPoint.Application
Dim PptDoc As PowerPoint.Presentation
Set PPT = CreateObject("Powerpoint.Application") 'creation session PowerPoint
PPT.Visible = True 'l'application sera visible
Set PptDoc = PPT.Presentations.Open("C:\Pres.ppt")
For Each sld In PptDoc.Slides
    For Each Forme In sld.Shapes
        If Forme.Type = msoLinkedOLEObject Then
            Forme.LinkFormat.Update
        End If
    Next
Next
End Sub