powerpoint et macro automatique à l'ouverture

[FredC]

Bonjour à tous,

J'ai trouvé quelques messages sur ce forum ressemblant à celui-ci, mais je n'ai malheureusement pas la réponse à mon problème...

En fait j'ai une créé une macro (sous forme de fonction) permettant la création d'une barre d'outil perso et je souhaite l'activer à l'ouverture d'un fichier ppt (et de la même façon lancer la macro de suppression de barre d'outil à la femeture du ppt).

J'ai cru comprendre qu'il fallait créer un module de classe pour cela, mais je n'arrive pas à appeler la fonction dans ce module de classe (pourtant si je l'appelle à partir d'un autre module, ça marche).
Voilà le code qu j'ai pour le moment:

Public WithEvents App As Application

Private Sub App_PresentationOpen(ByVal Pres As Presentation)

    Call Pres.AutoOpenToolBox

End Sub

Private Sub App_PresentationClose(ByVal Pres As Presentation)

    Call Pres.AutoCloseToolBox

End Sub

Je pensais que cela pouvait provenir du lien avec la présentation en cours, mais c'est la 1ère fois que j'utilise un module de classe, je ne m'y connais pas trop. J'ai essayé plusieurs trucs du genre:

Call Pres.nom_fonction
Call App.nom_fonction
Call nom_fonction

mais sans succès...

Merci d'avance,

FredC