Insérer un gif animé dans un Usf
S
Bonsoir ,
Dans le fichier ci-joint une Usf dans laquelle un webbrowser , pouvez -vous m'indiquez le bout de code pour que cela fonctionne
merci de votre expertise
J'ai trouvé ce code mais je n'arrive pas à l'adaper
Private sub UserForm_Initialize()
WebBrowser1.Navigate _
"about:" & _
""
' attention ! indiquez le chemin d'un gif animé sur votre PC !
DoEvents
end sub
Bonjour
Le code adapté (Excel 2003)
Auteur : Frédéric Sigonneau
Private Sub UserForm_Activate()
Do
DoEvents
i = i + 1
Loop Until i = 575000
Unload Me
End Sub
Private Sub UserForm_Initialize()
WebBrowser1.Navigate _
"about:<html><body scroll='no'>" & _
"<img src='Le chemin et le nom du fichier'></img></body></html>"
DoEvents
End SubA toi d'adapter Le chemin et le nom du fichier