Sub LancePPT()
Dim FichierPpt, pwpt, presppt
Set pwpt = CreateObject("PowerPoint.Application")
pwpt.Visible = True '
Set presppt = pwpt.presentations.Open(Filename:="M:\A-FORUM\2016\Lizz\TOTO.pptx")
pwpt.Visible = True
presppt.SlideShowSettings.Run
End Sub