Savoir si Powerpoint est ouvert et si une presentation est ouverte ?

[Creepy]

Bonjour à toutes & tous,

Je voudrais améliorer un fichier Excel qui me génére des graphiques. Normalement je copie/colle à la main vers PowerPoint ces graphiques.

Je voudrais automatiser cette tache.

Je voudrais savoir en VBA :

1 - Comment tester si PPT est ouvert ou pas ?
2 - Si non ouvert comment l'ouvrir ?
3 - Savoir si une presentation est ouverte ?
4 - Si pas de presentation en ouvrir une ?

Merci de votre aide

++

Creepy

 

[Zon]

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+++