Powerpoint, exécution auto à l'ouverture diapo

Question

Bonjour,

J'ai créé une présentation powerpoint (.pps) et je veux exécuter automatiquement une macro à l'ouverture de cette présentation.
Sous Excel, il suffit d'avoir une macro de nom "Workbook_Open" qui est exécutée automatiquement à l'ouverture du classeur.

La doc Microsoft donne une méthode mais elle ne n'a pas été d'une grande aide :

Dans un module de classe 'class1' :

Public WithEvents appevent As Application

Private Sub appevent_SlideShowBegin(ByVal Wn As SlideShowWindow)

   MsgBox "you started a slideshow"

End Sub


Dans un module général :

Dim myobject As New Class1

Sub StartEvents()
   Set myobject.appevent = Application
End Sub


Il suffit ensuite d'exécuter 'StarEvents' et le tour est joué, enfin presque.
Effectivement aprés ces manips, l'exécution du diaporama fait bien appel à 'appevent_SlideShowBegin' mais seulement s'est temporaire. Aprés la fermeture de powerpoint, il faut re-exécuter 'StarEvents'

Ce n'est pas ce que je veux.
Je veux exécuter mon diaporama depuis l'explorateur par un double-clic et qu'automatiquement 'appevent_SlideShowBegin' soit appellé.

Quelqu'un peux t il me venir en aide ?
D'avance merci pour tous vos commentaires.

Cordialement,
Jean Pierre.

cs_dragon · Answer

si tu nomme ta macro autoexec, elle devrasi démarrer en même temps, en tout cas, sous access ça fonctionne

aigles224 · Answer

Cela ne fonctionne pas... a mon plus grand regret.
Autoexec pour Access est l'équivalent de Workbook_Open pour Excel. 
Pour Powerpoint je n'ai rien vue d'équivalant dans la doc.

cs_dragon · Answer

désoler, peut pas faire plus

Powerpoint, exécution auto à l'ouverture diapo

3 réponses

Discussions similaires