Ouvrir un fichier powerpoint a partir d'Exce&

Sub LancePresentation()
'

Dim FichierPpt, pwpt, presppt
Set pwpt = CreateObject("PowerPoint.Application")
pwpt.Visible = True '

Set presppt = pwpt.presentations.Open(Filename:="L:\Prisca\Tableau de BordPaysdeLoire\PrésentationPower\PresentationDd44.ppt")

pwpt.Visible = True
presppt.SlideShowSettings.Run

End Sub

Voilà un code de macro qui permet d'ouvrir un powerPoint à partir d'une fiche Excell et de l'afficher plein écran .Donc depuis hier mon problème a été en parti mais seulement en partie résoulu . Or, Le powerPoint a été construit avec des liaisons sur de fichier excel. Zt là je me heurte à un problème la mise à jour ne se fait pas .

Peut être l'un d'entre vous a un solution
/Merci d'avance pour vos réponse

Bonjour,
voici un code

Sub TestPowerPoint()
' On déclare une variable de type Application PowerPoint
Dim ppt As PowerPoint.Application
Set ppt = CreateObject("PowerPoint.Application")
ppt.Visible = True ' Indispensable, sinon il ne peut pas ouvrir de fichier (Erreur)
' On crée maintenant un objet Presentation
Dim Pres As PowerPoint.Presentation
' Et on lui dit de quelle présentation il s'agit :
Set Pres = ppt.Presentations.Open(Filename:="C:\Mes Documents\MaPresentation.ppt")
' On active, sélectionne et copie le Graphique Graphique 1 de Excel :
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
' Et on le colle dans la première diapositive de la présentation :
Pres.Slides(1).Shapes.Paste
' On enregistre la présentation PowerPoint :
Pres.Save
' Et on quitte PowerPoint proprement :
ppt.Quit
Set ppt = Nothing
End Sub

Bonjour,

Sinon sans bouton et sans macro tu peux tout simplement mettre un lien hypertexte vers ton (tes) fichier(s)
Clic-droit sur ta cellule puis 'Lien hypertexte'. Tu choisis ton fichier .ppt et en haut tu peux modifier le texte à afficher avant de valider.
Le mieux est que les .ppt soient dans le même répertoire que le .xls

eric