Bonjour,

J'essai d'utiliser webbrowser afin de réaliser pendant l'exécution de mon code un petit défilement d'un gif animé.
Le problème est :
Quand mon userform1 se lance il affiche une case blanche sans le gif.
Le programme se déroule mais aucun gif.
Et a la fin de l'exécution de mon code le gif animé s'anime

J'aimerais si cela est possible avoir le gif animé pendant l'execution de mon code

merci d'avance

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
17
18
19
20
21
22
Private Sub UserForm_Activate()
Dim var As String
 
var = "d:\test.gif"
 
UserForm1.Repaint
 
'Version pour afficher l'image à sa taille réelle:
WebBrowser1.Navigate "ABOUT:<HTML><CENTER><HEAD><body scroll='no' LEFTMARGIN=0 TOPMARGIN=0><IMG " & " SRC='" & var & "'</IMG></BODY></CENTER></HTML>"
 
 
 
 
deb:
Do While i <> 10000
Range("a1").Formula = "=" + CStr(i)
UserForm1.Caption = "test" + CStr(i)
i = i + 1
Loop
 
 
ENd Sub