Discussion :

[Savanis]

Bonjour, après avoir passé en revu internet et ne trouvant pas de réponse, je vous sollicite donc...

J'ai un graphique sous Excel que j'ai copié avec liaison sous Powerpoint.
J'ai créer un bouton sous Excel qui lance Powerpoint pour afficher le graphique (d'après ce type de code que j'ai récupéré)...

Code :

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

1
2
3
4
5
6
7
8
sub LancePresentation()
 Dim FichierPpt, pwpt, presppt
 FichierPpt = "D:\Cheni2003\mysql\mysql.ppt" 'à adapter
 Set pwpt = CreateObject("PowerPoint.Application")
 pwpt.Visible = True
 Set presppt = pwpt.presentations.Open(Filename:=FichierPpt)
 presppt.SlideShowSettings.Run
end sub

Le problème est que quand je clic sur le bouton excel, powerpoint s'ouvre bien, affiche le graph, mais ne met pas à jour les liaisons. Obligé de faire un clic droit sur le graphique, puis mise à jour des liaisons).
Si on ouvre le fichier powerpoint tout seul (sans passer par excel), il demande si l'on veut faire la mise à jour, mais powerpoint ne le demande pas avec le code ci-dessus.

Faut-il rajouter au code ci-dessus un paramètre pour forcer la mise à jour?
L'idéale serait que, quand je clic sur mon bouton excel, le graph qui s'affiche sous powerpoint soit à jour.

Est-ce un paramètre à mettre sous excel ou sous powerpoint?

Merci de votre aide.

[Pierre Fauconnier]

Bonjour

Insère la ligne permettant de rafraîchir les liens

Code :

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

1
2
3
 Set presppt = pwpt.presentations.Open(Filename:=FichierPpt)
 presppt.UpdateLinks
 presppt.SlideShowSettings.Run