Salut,
Sub ExcutePowerpontdepuisExcel()
Dim App As Object
On Error Resume Next
'On reegarde si 'il yb a une instance
Set App = GetObject(, "Powerpoint.Application")
'Si il y en a pas on en crée une
If Err <> 0 Then Set App = CreateObject("Powerpoint.Application")
With App
.Visible = True 'Or False
.Presentations.Open "C:\LenomduFichier.ppt" ' à adapter
'ensuite bon courage avec le VBA Powerpoint
End With
Set App = Nothing
End Sub
A+++