[VBA-PP]Quelle procédure est appelée au démarrage de PowerPoint [Trucs & Astuces]

[jorge7281]

Bonjour,
j'aimerais écrire dans une macro, le code pour toujours afficher un masque lors de la création d'une nouvelle présentation.

J'ai déjà écrit ce code :

Code :

1
2
3
4
5
6
Sub Auto_Open()
Presentations.Add WithWindow:=msoTrue
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle).SlideIndex
ActiveWindow.Selection.SlideRange.Layout = ppLayoutTitle
ActivePresentation.ApplyTemplate FileName:="C:\Documents and Settings\xxx\Application Data\Microsoft\Modèles\masque.pot"
End Sub

cette procédure est lancée lors du chargement des addins, ce qui veut dire que lorsque j'ouvre powerpoint une première fois, ce code est exécuté, et le masque est bien inséré. Par contre lorsque j'ouvre une deuxième fois powerpoint (donc j'ai 2 session de powerpoint ouverte), ce code n'est pas exécuté, et donc la nouvelle présentation est vierge.

Donc ce que je recherche plutôt, ce serait de savoir quelle procédure est exécutée à chaque lancement d'une nouvelle présentation.

Quelqu'un aurait une solution?

[bbil]

ben il n'y en as pas...

j'avais trouvé une solution, sur le Web... de mémoire c'était une premiére diapo .. ou un èvénement de "mouvement souris" permettait de déclencher un simulis.. de Auto_Open..

[ouskel'n'or]

Je confirme, pas d'auto_open dans ppt mais tu peux lancer une macro PPT depuis une autre appli. Si tu peux faire un petit .exe dans VB6.
Regarde là :
http://www.developpez.net/forums/sho...ht=Power+Point

A+

[jorge7281]

merci des réponses mais j'ai trouvé.
Il y avait bien moyen :

Using Events with the Application Object
To create an event handler for an event of the Application object, you need to complete the following three steps:

1. Declare an object variable in a class module to respond to the events.
2. Write the specific event procedures.
3. Initialize the declared object from another module.

Declare the Object Variable
Before you can write procedures for the events of the Application object, you must create a new class module and declare an object of type Application with events. For example, assume that a new class module is created and called EventClassModule. The new class module contains the following code.
Public WithEvents App As Application Write the Event Procedures
After the new object has been declared with events, it appears in the Object list in the class module, and you can write event procedures for the new object. (When you select the new object in the Object list, the valid events for that object are listed in the Procedure list.) Select an event from the Procedure list; an empty procedure is added to the class module.

Code :

Initializing the Declared Object

Before the procedure will run, you must connect the declared object in the class module (App in this example) with the Application object. You can do this with the following code from any module.

Code :

Run the InitializeApp procedure. After the procedure is run, the App object in the class module points to the Microsoft PowerPoint Application object, and the event procedures in the class module will run when the events occur.

----------------------------------------------------------------------
voilà le code pour pouvoir lancer des morceaux de codes au démarrage de powerpoint. Dans le module "App_NewPresentation", il faut mettre le code qu'on veut exécuter.
Bien à vous.

[ouskel'n'or]

Merci de ta réponse à ta question C'est effectivement le moyen signalé par bbil.
Pour la peine, j'ai mis ta réponse dans les trucs et astuces.

A+

[bbil]

c'est illisible ... ? ça marche au moins ? mais comment lance tu Run the InitializeApp

[jorge7281]

Je l'ai testé et oui ca marche. Il s'agit d'une procédure qui s'exécute automatiquement lors de l'ouverture d'une nouvelle présentation.
Il faut suivre les 3 points comme indiqués et ca marche parfaitement.

La procédure se lance automatiquement bbil.

au fait, qu'est-ce qui est illisible?

[bbil]

Envoyé par jorge7281

au fait, qu'est-ce qui est illisible?

dis merci à AlainTech et ouskel'n'or qui ont repris la mise en forme de ton texte

[ouskel'n'or]

Hello bbil, jorge7281 n'y est pas pour grand chose, un c/c de texte prend parfois ces allures là sur vbulletin. Je pense que ça être réparé...
Ceci dit, tu as bien fait de le signaler... J'avais déjà corrigé dans Word

[AlainTech]

Et moi j'ai mis le texte de la référence en citation...

Comme quoi, en s'y mettant à plusieurs...

Je rêve du jour où les posteurs se rendront compte que leurs messages ne sont pas clairs et les corrigeront eux-mêmes.

Je pourrai, alors peut-être, un peu plus répondre à des questions techniques.

[ouskel'n'or]

Hello Alain,
Donc, et si j'ai bien compris, si on met le texte en citation on n'a plus ces [FONT machin] à toutes les lignes. Bon à savoir
Je verrai à l'usage mais merci.

A+

[AlainTech]

Euh, non...

Je suis juste passé après toi pour fignoler la mise en forme.

Désolé de te décevoir.