Sub LancePresentation()
Dim FichierPpt, pwpt, presppt
Set pwpt = CreateObject("PowerPoint.Application")
pwpt.Visible = True '
Set presppt = pwpt.presentations.Open(Filename:="L:\Mes Documents\Tableau de BordPaysdeLoire\PrésentationPower\PresentationDd44.ppt")
pwpt.Visible = True
presppt.SlideShowSettings.Run
End Sub