VBA Powerpoint Problème avec la fonction application.Quit

Bonjour tout le monde ! J'espère que vous passez un bon début d'année !

Je suis en train de préparer un fichier powerpoint qui se ferme de manière automatique quand le diaporama est terminé.

Problème : Tout est initié, j'ai vérifié les évènement se produise mais la fonction Application.Quit ne fonctionne que si je l'instancie à la main

Module de classe :

Public WithEvents App As Application

'Fin de diapo
Private Sub App_SlideShowEnd(ByVal Pres As Presentation)
Application.Quit
End Sub

'chaque diapo 'juste un test
Private Sub App_SlideShowNextSlide(ByVal Wn As SlideShowWindow)
  MsgBox "App_SlideShowNextSlide"
End Sub

Autre essais :

Module de classe

Public WithEvents App As Application

Private Sub App_SlideShowEnd(ByVal Pres As Presentation)
'MsgBox "App_SlideShowEnd"
fermer
End Sub

' Un autre exemple d'événement :
'
Private Sub App_SlideShowNextSlide(ByVal Wn As SlideShowWindow)
  MsgBox "App_SlideShowNextSlide"
End Sub

'Fonction dans un module
Sub fermer()
    Dim PPApp As PowerPoint.Application
    Dim PPPres As PowerPoint.Presentation
    Dim PPSlide As PowerPoint.Slide

    Set PPApp = CreateObject("Powerpoint.Application")
    PPApp.Visible = True
    Set PPPres = PPApp.Presentations("Test macro2.pptm")

    ' ici tu peux faire qqchose...
    ' PPApp.ActiveWindow.ViewType = ppViewSlide
    ' etc
    ' PPPres.save
    ' PPPres.saveAs "hhkvfg.ppt"

     PPPres.Close
     PPApp.Quit

     Set PPSlide = Nothing
     Set PPPres = Nothing
     Set PPApp = Nothing

End Sub

Résultat :

Comment pourrais t'on faire pour qu'a l'appelle de l'évènement SlideShowEnd le logiciel powerpoint se ferme ?

Merci pour votre aide et attention !

Bonne journée à tous !

Bonjour,
Ça vaut ce que ça vaut, mais si tu enregistres ta présentation au format ppsx et non pptx, elle se ferme automatiquement à la fin de la présentation.

Des fois, au lieu de s'embêter ...

Bonjour JoyeuxNoel ,

J'ai oublier de préciser que le format ppsx adopte bien ce comportement sur mon ordinateur.

Mais j'utilise une liseuse de code-barre sous Windows pour scannez un code barre et ouvrir le mode d'emploi correspondant sous powerPoint. (Lien hypertexte etc)

Le fichier est en .ppsm soit l'affichage de la diapo seule.

Par contre pour une raison que j'ignore malgré le format du fichier et uniquement sur la liseuse le logiciel (Pas mon ordinateur) powerPoint trouve le moyen de s'ouvrir et donc une fois le mode d'emploi lus il faut aussi fermer le logiciel ... , étape que je souhaite supprimer !

D'où mon essai de faire une macro qui ferait le travail.

Merci pour ta réponse

Cordialement

J'ai bien peur de ne pouvoir t'aider alors :(