Piloter l'ouverture et la fermeture d'un PPS via Excel

Bonjour

je viens vers vous car j'ai un petit soucis

j'ai besoin pour automatiser un fichier excel , qu'une macro puisse ouvrir et fermer un .pps

pour l'ouvrir j'ai trouvé ceci :

Sub LancerPPT()

Dim Cible

Cible = Shell("POWERPNT.EXE ""C:\Mes documents\flux prod maint compta.pps""", 1)

End Sub

par contre je n'arrive pas a trouver comment faire pour le fermer

quelqu'un peu t'il m'aider?

Public Function KillProcess(ByVal ProcessName As String) As Boolean
    Dim svc As Object
    Dim sQuery As String
    Dim oproc
    Set svc = GetObject("winmgmts:root\cimv2")
    sQuery = "select * from win32_process where name='" & ProcessName & "'"
    For Each oproc In svc.execquery(sQuery)
        oproc.Terminate
    Next
    Set svc = Nothing
End Function
'il suffira dexecuter:
Killprocess "POWERPNT.EXE"

Par contre utiliser du shell pour ouvrir ou fermer un ppt c'est pour les barbares.. Tu peux très bien piloter ppt depuis vba avec les references ppt

Dim pptApp As PowerPoint.Application
Set pptApp = New PowerPoint.Application
pptApp.Presentations.Open "C:\Mes documents\flux prod maint compta.pps"

Pour fermer il suffira de faire

pptapp.close

je te remercie de ta réponse

je vais essayer cela dés ce soir , avec la méthode "non barabre"