Salut Alexbnp et le forum,
A tester !
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
@+