Discussion :

[jamelie]

Bonjour à tous,

j'ai un problème avec une animation que j'ai placé dans une userform. Je ne sais pas si le problème vient de la userform ou du programme lancé derrière. J'utilise une userform pour renvoyer une animation pendant qu'une macro s'execute sur le fichier excel. Lorsque je lance la userform toute seule l'animation fonctionne correctement. Mais lorsque je lance l'ensemble du programme l'animation apparait à l'écran mais l'image est figée.

Voici mon code de la Userform (il provient de vos tutoriels sur ShockwaveFlash)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Private Sub UserForm_Initialize()
 
  Dim hwnd As Long
  hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", _
    "X", "D") & "Frame", Me.Caption)
  SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF
 
ShockwaveFlash1.Movie = "M:\Whitebird1.swf"
ShockwaveFlash1.Menu = False
MsgBox ShockwaveFlash1.ReadyState
 
ShockwaveFlash1.Play
MsgBox ShockwaveFlash1.Playing
ShockwaveFlash1.Loop = True
End Sub

Y a t-il une solution ou est-il impossible de mettre une image animée si le programme de la macro est trop conséquent?

D'avance merci

Jamelie

[LeForestier]

Er en mettant des DoEvent aux endroits stratégiques de ta macro ?
A+

[jamelie]

C'est plutot lent mais ca fonctionne. c'est l'essentiel.
Merci beaucoup

Bonne journée