Programation d'un événement en VBA PwP [Résolu]

[Harry Covair]

Bonjour,
Dans une présentation PwP 2007 (.ppsm), un objet doit apparaître dans la diapositive active à une heure précise. Par exemple, si à 10 h 30 la dia 15 est active, un clipart "tasse de café" doit apparaître.
Quelqu'un aurait-il des pistes de réflexion pour:
exécuter un code pendant la présentation et déclencher un événement à une heure précise?
connaître la dia active à ce moment?
D'avance merci pour vos suggestions

Harry Covair

[Philippe JOCHMANS]

Bonjour

Une piste de départ dans ce post http://www.developpez.net/forums/sho...d.php?t=569227, il faut tester l'heure dans la boucle.

Mais je t'avoue qu'une boucle qui tourne en permanence ce n'est pas le top.

Starec

[Joachim49]

Bonjour,

Il y a-t-il une autre solution que la boucle si l'on veut faire quelque chose dans ce style ?

Merci d'avance.

Salutations

JOachim

[Philippe JOCHMANS]

Bonjour

Je ne pense pas, car il faut une boucle pour interroger régulièrement, cela ne se fera pas tout seul.

S'il faut déclencher quelque chose, on peut aussi utiliser les tâches planifiées de Windows qui lance un fichier PPT.

Starec

[Harry Covair]

Bonjour,
La piste suggérée m'a aidé dans la résolution du problème.
Voici le code:
Module classique

Code :

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

Module de classe

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
Public WithEvents App As Application
Private Sub App_SlideShowNextSlide(ByVal Wn As SlideShowWindow) 
    ' housekeeping
    Dim sldw As SlideShowWindow
    Dim t As Date
    Set sldw = Wn   
    ' procedure
        t = Timer + 3600
        Do Until Timer > t
           DoEvents
       Loop
       UFcoffeecup.Show
End Sub

Après une heure, le userform apparaît à l'écran comme souhaité.
Il me reste un problème à résoudre: après la fermeture du UF, le pointeur souris n'est plus disponible.
Encore merci pour l'aide.
Harry

[Harry Covair]

Bonjour,

• La tâche de fond dans un module de classe affiche l'image à l'heure voulue mais rend la présentation instable (clic gauche souris inactif). Peut-être le code n'est-il pas optimal?
• La tâche planifiée démarrant un fichier pptx ne convient pas. Apparament, la présentation active empêche la présentation planifiée d'apparaître à l'écran; cette dernière n'apparaît qu'en arrêtant la présentation active.
• Solution retenue: j'ai téléchargé Microsoft Visual Basic 2008 Express Edition. Une application toute simple planifiée à l'heure souhaitée affiche l'image pendant la présentation PwP.

Encore merci pour les conseils et remarques

Harry