temporisation en millisecondes dans powerpoint 2010 Résolu/Fermé

Question

Bonjour, 
J'ai fait une petite macro VBA qui incrémente approximativement toutes les 500ms un compteur et l'affiche dans une zone texte d'une diapo et qui prend fin appui sur la touche A ou la barre SPACE.
Bien que n'y connaissant rien, j'ai réussi à faire fonctionner cette macro sous Windows XP et avec PowerPoint 2003.
J'ai un nouvel ordi avec Windows 8 Pro et Office 2010 (famille et étudiant), et bien entendu la macro ne fonctionne plus et à priori c'est la temporisation qui ne fonctionne plus.
J'utilise la fonction sleep de kernel32
Cette fois je ne réussis pas à trouver la solution même en fouillant dans les forums.
Ci dessous la macro écrite sous PowerPoint 2010

'Option Explicit
'Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
'Déclaration pour permettre d'interrompre la boucle avec une touche
Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Long) As Integer

Sub Population()
'
' Macro enregistrée le 03/02/2013 par PRESARIO
'
Dim pop As Double
pop = 7607413001#
ActivePresentation.Slides(5).Shapes("ZoneTexte 2").TextFrame.TextRange.Text = FormatNumber(pop)
ActivePresentation.SlideShowWindow.View.GotoSlide 5
    Do
    pop = pop + 1
    Sleep 436
    ActivePresentation.Slides(6).Shapes("ZoneTexte 2").TextFrame.TextRange.Text = FormatNumber(pop)
    ActivePresentation.SlideShowWindow.View.GotoSlide 6
    pop = pop + 1
    Sleep 436
    ActivePresentation.Slides(5).Shapes("ZoneTexte 2").TextFrame.TextRange.Text = FormatNumber(pop)
    ActivePresentation.SlideShowWindow.View.GotoSlide 5
    'Condition permettant d'interrompre la boucle avec les touches : A, Espace
    If GetAsyncKeyState(vbKeyA) Or GetAsyncKeyState(vbKeySpace) <> 0 Then Exit Do
    Loop
ActivePresentation.SlideShowWindow.View.GotoSlide 7
End Sub


La macro se lance à partir du slide 4, et utilise les slides 5 et 6 pour afficher l'évolution du compteur(ce n'est peut-être pas très élégant mais ça fonctionne sous 2003 et Windos XP. Sous 2010 et Windows 8,  j'ai pu m'assurer que le compteur s'incrémentait, mais la tempo ne fonctionnant pas les slides avec le compteur incrémenté n'ont pas le temps de s'afficher.

Merci si quelqu'un pouvait m'apporter une solution

f894009 · Answer

Bonjour,

a voir:

https://arkham46.developpez.com/articles/office/vba64bits/#LIV

pecaris2 · Answer

Merci f894009 pour cette indication. J'espérais avoir la solution, mais si j'ai bien compris : Ce n'est pas un pb d'office 64bits, vu que que j'ai installé Office 2010 en 32bits (de façon implicite). Par contre Windows 8 est bien en 64bits. Après les différents essais que j'ai fait, je conclue que j'accède bien à l'API kernel32, mais l'instruction sleep est inopérante dans la macro laquelle se déroule comme s'il n'y avait aucune instruction sleep. Je précise que mes connaissances sont très proche de "0" dans ce domaine, alors ... Et le diagnostic apporté par l'inspecteur de compatibilité de code Microsoft Office ne m'éclaire pas Voici la macro inspectée : ' 'Option Explicit 'Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) ' ' ' Contains a Windows 32-bit API call that will need to be updated for 64bit compatibility. ' UPDATED: Declare PtrSafe Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long) ' http://go.microsoft.com/fwlink/?LinkId=177572 ' ' Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'Déclaration pour permettre d'interrompre la boucle avec une touche Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Long) As Integer Sub Population() ' ' Macro enregistrée le 03/02/2013 par PRESARIO ' Dim pop As Double pop = 7607413001# ActivePresentation.Slides(5).Shapes("ZoneTexte 2").TextFrame.TextRange.Text = FormatNumber(pop) ' ' ' Potentially contains deprecated items in the object model ' [mso]IFind.View ' http://go.microsoft.com/fwlink/?LinkID=215358 /URL> ' ' ActivePresentation.SlideShowWindow.View.GotoSlide 5 Do pop = pop + 1 Sleep 436 ActivePresentation.Slides(6).Shapes("ZoneTexte 2").TextFrame.TextRange.Text = FormatNumber(pop) ' ' ' Potentially contains deprecated items in the object model ' [mso]IFind.View ' http://go.microsoft.com/fwlink/?LinkID=215358 /URL> ' ' ActivePresentation.SlideShowWindow.View.GotoSlide 6 pop = pop + 1 Sleep 436 ActivePresentation.Slides(5).Shapes("ZoneTexte 2").TextFrame.TextRange.Text = FormatNumber(pop) ' ' ' Potentially contains deprecated items in the object model ' [mso]IFind.View ' http://go.microsoft.com/fwlink/?LinkID=215358 /URL> ' ' ActivePresentation.SlideShowWindow.View.GotoSlide 5 'Condition permettant d'interrompre la boucle avec les touches : A, Espace If GetAsyncKeyState(vbKeyA) Or GetAsyncKeyState(vbKeySpace) <> 0 Then Exit Do Loop ' ' ' Potentially contains deprecated items in the object model ' [mso]IFind.View ' http://go.microsoft.com/fwlink/?LinkID=215358 /URL> ' '

f894009 · Answer

Bonjour,

Pourriez-vous montrez le code de cette macro, que je puisse le copier et tester

A+

pecaris2 · Answer

Merci de vous  penchez sur le pb.
Je continue à faire des essais .Je tente de me dispenser de faire appel à Kernell32 en introduisant une boucle for qui ferait la tempo et la non plus je n'ai pas la mise à jour des diapos, alors peut-être que ce n'est pas un pb de tempo. Pour l'instant, je ne suis pas sûr de mes conclusions.

En attendant voici la macro.
Donc le slide 4 permet de lancer la macro, les slides 5 et 6 sont identiques avec 2 ZoneTexte dont celui du compteur à incrémenter et la macro est interrompu avec la touche A ou SPACE pour aller sur le slide 7 et ainsi poursuivre le diaporama

Macro telle qu'écrite à l'origine

'Option Explicit
'Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
'Déclaration pour permettre d'interrompre la boucle avec une touche
Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Long) As Integer

Sub Population()
'
' Macro enregistrée le 03/02/2013 par PRESARIO
'
Dim pop As Double
pop = 7607413001#
ActivePresentation.Slides(5).Shapes("ZoneTexte 2").TextFrame.TextRange.Text = FormatNumber(pop)
ActivePresentation.SlideShowWindow.View.GotoSlide 5
Do
pop = pop + 1
Sleep 436
ActivePresentation.Slides(6).Shapes("ZoneTexte 2").TextFrame.TextRange.Text = FormatNumber(pop)
ActivePresentation.SlideShowWindow.View.GotoSlide 6
pop = pop + 1
Sleep 436
ActivePresentation.Slides(5).Shapes("ZoneTexte 2").TextFrame.TextRange.Text = FormatNumber(pop)
ActivePresentation.SlideShowWindow.View.GotoSlide 5
'Condition permettant d'interrompre la boucle avec les touches : A, Espace
If GetAsyncKeyState(vbKeyA) Or GetAsyncKeyState(vbKeySpace) <> 0 Then Exit Do
Loop
ActivePresentation.SlideShowWindow.View.GotoSlide 7
End Sub

f894009 · Answer

Bonjour,

Il y a encore un petit soucis a la fin, demande si sauvegarde

Dossier compresse (pptm et ppsm)
https://www.cjoint.com/c/CCikJIRRQ23

un doc qui explique le fonctionnement du VBA sur evenements
https://www.cjoint.com/c/CCikLTHgFkp

lancez le diaporama (.ppsm) et regardez.

A+

pécaris2 · Answer

Bonsoir,
Je suis très heureux, le compteur tourne dans le diaporama.
J'ai un peu triché, je me suis contenté de jouer du copier/coller sans tout comprendre (tout est presque de trop). J'ai du pain sur la planche pour assimiler cette gestion d'évènements.
Il me semble que dans mes recherches, j'étais tombés sur la doc expliquant la gestion des évènements, mais je n'avais pas compris l'intérêt, surtout que peu après javais réussi à faire tourné mon compteur avec Office 2003 bien sûr.
Pour des premiers pas en VBA, je trouve la pente un peu raide.
En tout cas grand merci f894009, vous me rendez un grand service, le PowerPoint sera présenté le 16 mars, il était temps....
Merci.

Temporisation en millisecondes dans powerpoint 2010

6 réponses

Discussions similaires