Animer une icône au lancement du userform

Bonsour® Jean-Paul V avec ferveur ;o))) vous nous disiez :

C'est bien domage, que cela ne marche pas dans un userform alors que cela
marche dans le fichier Excel de Michel Pierron ( mais ce n'est pas dans un
Userform).Et j'avouerais que je ne comprends rien à ces macros.J'espèrais
qu'on pouvait les bricoler...

Un autre exemple ....
http://excelabo.net/moteurs/compteclic.php?nom=cm-gifanimes

Je ne vois pas comment cela pourrait marcher chez toi si tu gardes cette
ligne, à moins que sur C: tu aies un dossier intitulé !docFlo avec un
sous dossier disci3... et un fichier gif qui s'appelle misange.gif !
Dans cette ligne que tu indiques, tu remplaces
C:!DocFlodisci3ds-gifmisange.gif
par l'adresse de ton image gif (qui n'a aucunement besoin de s'appeller
misange) sur ton PC, avec le chemin complet.
par exemple
F:Mondossiermonsousdossiermeszouliesimagesmongifamoi.gif

Le ! devant le nom d'un fichier ou d'un dossier n'est pas du tout
genant. Bien au contraire, j'utilise très souvent ceci pour que le
dossier s'affiche en tête de liste alphabétique (le code asci du ! est
le premier dans la liste)

Reviens si ça va pas

Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net

Misange

J'ai trouvé l'erreur du fichier:
Il faut remplacer :
"<img src='C:!DocFlodisci3ds-gifmisange.gif'></img></body></html>"
par

"<img src='C:DocFlodisci3ds-gifmisange.gif'></img></body></html>"

Je ne suis pas très bon mais ce ! me choquait

La solution de Frédéric Signneau fonctionne très bien dans un userform.
Télécharge l'exemple et dans le code de la macro indique le chemin d'un
gif animé sur ton PC
http://www.excelabo.net/excel/controlesimages.php#gifanime

Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net

C'est bien domage, que cela ne marche pas dans un userform alors que cela
marche dans le fichier Excel de Michel Pierron ( mais ce n'est pas dans un
Userform).Et j'avouerais que je ne comprends rien à ces macros.J'espèrais
qu'on pouvait les bricoler...

Merci pour toutes ces explications

Bonjour,

l'API LoadCursorFromFile ne gère que les format .cur et .ani spécifiques
aux curseur de la souris :

http://msdn2.microsoft.com/en-us/library/ms648392.aspx

et donc pas les gifs animés.

Par ailleurs ces gifs animés, pour de sombres raisons de brevet
d'algorithme de compression LZW, ont toujours été très mal gérés par MS

J'ai essayé, ça marche pas.

Je ne comprends pas ces instructions car même si je supprime les gifs ils
restent bien dans mes 7 images.Rappel le gif animé est dans l'image7 du
Userform1 et le gif n'est pas supprimé.

@+ j'espère

refait un essaie en modifient cette ligne :

hCursor = LoadCursorFromFile _
(Environ("Windir") & "ExcelaboAmicalement.gif")

par:

hCursor = LoadCursorFromFile("C:DOCExcelaboAmicalement.gif")

isabelle

--
Cordialement,

Jacques.

Bonjour Misange,

Je crois qu'il y a un mélange entre plusieurs objets, ce qui pourrait
prêter à confusion :-)

Au départ, dans un fil précédent, il s'agissait d'afficher le curseur de
souris en forme de main (comme sur les liens hypertextes), ce qui concerne
les propriétés MouseIcon et MousePointer des contrôles, et cette main
n'étant pas dans les curseurs de souris par défaut, passage par les API et
un fichier .cur (ou les resources de user32.dll)

Ensuite on est passé à un curseur animé (.ani), animé certes, mais qui
suit les mouvements de la souris, ce qui n'est pas du tout le cas des Gifs
animés, qui sont très utiles, mais pour un usage différent ;-)

en plus de la solution d'Isabelle tu as aussi celle-ci de Frédéric
Sigonneau qui fonctionne ma foi très bien
http://www.excelabo.net/excel/controlesimages.php#gifanime

Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net

Bonjour
Grâce à Jacques93, j'ai une procédure qui me permet d'animer une icône
Je souhaite en fait que celle-ci s'anime au lancement du userform
Je vous remercie
Didier

Private Declare Function LoadCursorFromFile Lib "user32" Alias _
"LoadCursorFromFileA" (ByVal lpFileName As String) As Long

Private Declare Function SetCursor Lib "user32" _
(ByVal hCursor As Long) As Long

Private Sub Label3_MouseMove(ByVal Button As Integer, _
ByVal Shift As Integer, _
ByVal X As Single, _
ByVal Y As Single)
Dim hCursor As Long

hCursor = LoadCursorFromFile _
(Environ("Windir") & "Cursorsdrum.ani")
If hCursor > 0 Then SetCursor hCursor
End Sub

--
Cordialement,

Jacques.