[VBA-PP] execution a la fin d'un diaporama [Fait] [Résolu]

[Pikasacha]

Bonjour,
J'aimerai savoir comment executer des actions quand je ferme un diaporama dans PowerPoint.

J'ai essayer avec l'événement SlideShowEnd en inscrivant dans un module de classe la ligne suivante :

Public WithEvents App As Application

Comme indiqué dans l'aide... auf que cela ne marche pas et surtout que je ne sais pas utiliser les evenements utilisant une application

Merci de votre aide!!

[bbil]

et quelque part tu as fais cela :

Code :

1
2
3
4
5
6
 
 
Dim X As New Classe1
Sub InitializeApp()
    Set X.App = Application
End Sub

Avec Classe1 le nom de ton module de classe...par exemple :

Code :

1
2
3
4
5
6
 
Public WithEvents App As Application
 
Private Sub App_PresentationClose(ByVal Pres As Presentation)
  MsgBox "Au Revoir"
End Sub

[Pikasacha]

Merci beaucoup !