Mettre à jour les liens des graphiques d'Excel dans Powerpoint

Bonjour,

j'ai un petit souci :mrgreen:

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:

---

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

Citation:

---

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:

---

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.

Je me répond a moi meme :mrgreen:

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

Code:

---

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

---