Lancer une macro à la fermeture d'un PPT

Bonjour au Forum,

J'ai un quiz PPT, je voudrais qu'a la fermeture du fichier les boutons qui ont été coché soient tous décochés.

J'ai consigné toute ces instructions dans une Macro mais je n'arrive pas à l'exécuter automatiquement avec la fermeture du fichier.

J'ai essayé ceci (pris sur internet):

Public WithEvents App As Application
'
' L'événement traité sur la sortie de powerpoint
'
Private Sub App_PresentationClose(ByVal Pres As Presentation)
    ActivePresentation.Slides(2).Shapes(4).TextFrame.TextRange.Font.Color.RGB = RGB(0, 0, 0)
ActivePresentation.Slides(2).Shapes(5).TextFrame.TextRange.Font.Color.RGB = RGB(0, 0, 0)
 With Slide131
          .CheckBox1 = False
          .CheckBox2 = False
          .CheckBox3 = False
          .CheckBox4 = False
          .CheckBox5 = False
          .CheckBox6 = False
     End With
End Sub

Mais cela ne fonctionne pas, je ne comprend pas pourquoi.

Quelqu'un pourrait-il m'aider svp ?

Merci d'avance.

Bonjour,

Un exemple dans ce fichier. Cependant, il vous faudra cliquer sur le bouton vert dans la barre d'accès rapide pour lancer les événements, sinon il vous faudra créer un complément Power Point qui n'est pas développé ici.

Merci Eric Kergresse,

ça marche très bien.

Une astuce pour contourner le problème de l'initialisation avec le bouton exécuter est de faire exécuter la macro via un bouton présent sur le slide d'ouverture du diaporama. un bouton "commencer le quiz" par exemple. Je pense que c'est ce que je vais mettre en place.

Merci,