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
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
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
bonjour Didier,
remplace l'événement
Label3_MouseMove
par
UserForm_MouseMove
isabelleBonjour
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
bonjour Didier,
remplace l'événement
Label3_MouseMove
par
UserForm_MouseMove
isabelle
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
bonjour Didier,
remplace l'événement
Label3_MouseMove
par
UserForm_MouseMove
isabelleBonjour
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
Bonjour Isabelle
Je suis interessé par le même sujet, j'ai donc fait un essai dans un fichier
d'Excelabo dans lequel j'ai inséré un de mes Userform où j'ai 7 images, dans
l'image 7 j'ai mis un gif animé nommé Amicalement.gif.
J'ai modifié la macro dont on parle dans le module 2 en mettant :
Private Sub UserForm1_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") & "ExcelaboAmicalement.gif")
If hCursor > 0 Then SetCursor hCursor
End Sub
Mon gif animé est dans le répertoire Excelabo, quant j'ouvre le Userform1
l'image7 n'est pas animée, où est l'erreur.
http://cjoint.com/?fxjWVay4ro
@+ j'espèrebonjour Didier,
remplace l'événement
Label3_MouseMove
par
UserForm_MouseMove
isabelleBonjour
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
Bonjour Isabelle
Je suis interessé par le même sujet, j'ai donc fait un essai dans un fichier
d'Excelabo dans lequel j'ai inséré un de mes Userform où j'ai 7 images, dans
l'image 7 j'ai mis un gif animé nommé Amicalement.gif.
J'ai modifié la macro dont on parle dans le module 2 en mettant :
Private Sub UserForm1_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") & "ExcelaboAmicalement.gif")
If hCursor > 0 Then SetCursor hCursor
End Sub
Mon gif animé est dans le répertoire Excelabo, quant j'ouvre le Userform1
l'image7 n'est pas animée, où est l'erreur.
http://cjoint.com/?fxjWVay4ro
@+ j'espère
bonjour Didier,
remplace l'événement
Label3_MouseMove
par
UserForm_MouseMove
isabelle
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
Bonjour Isabelle
Je suis interessé par le même sujet, j'ai donc fait un essai dans un fichier
d'Excelabo dans lequel j'ai inséré un de mes Userform où j'ai 7 images, dans
l'image 7 j'ai mis un gif animé nommé Amicalement.gif.
J'ai modifié la macro dont on parle dans le module 2 en mettant :
Private Sub UserForm1_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") & "ExcelaboAmicalement.gif")
If hCursor > 0 Then SetCursor hCursor
End Sub
Mon gif animé est dans le répertoire Excelabo, quant j'ouvre le Userform1
l'image7 n'est pas animée, où est l'erreur.
http://cjoint.com/?fxjWVay4ro
@+ j'espèrebonjour Didier,
remplace l'événement
Label3_MouseMove
par
UserForm_MouseMove
isabelleBonjour
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
bonjour Jean Paul,
est ce que le gif est dans le répertoire
C:winntExcelaboAmicalement.gif
ou
C:AutreWinSelonLaVersionExcelaboAmicalement.gif
dépendamment de ce que donne
MaVersion = Environ("Windir")
isabelleBonjour Isabelle
Je suis interessé par le même sujet, j'ai donc fait un essai dans un fichier
d'Excelabo dans lequel j'ai inséré un de mes Userform où j'ai 7 images, dans
l'image 7 j'ai mis un gif animé nommé Amicalement.gif.
J'ai modifié la macro dont on parle dans le module 2 en mettant :
Private Sub UserForm1_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") & "ExcelaboAmicalement.gif")
If hCursor > 0 Then SetCursor hCursor
End Sub
Mon gif animé est dans le répertoire Excelabo, quant j'ouvre le Userform1
l'image7 n'est pas animée, où est l'erreur.
http://cjoint.com/?fxjWVay4ro
@+ j'espèrebonjour Didier,
remplace l'événement
Label3_MouseMove
par
UserForm_MouseMove
isabelleBonjour
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
bonjour Jean Paul,
est ce que le gif est dans le répertoire
C:winntExcelaboAmicalement.gif
ou
C:AutreWinSelonLaVersionExcelaboAmicalement.gif
dépendamment de ce que donne
MaVersion = Environ("Windir")
isabelle
Bonjour Isabelle
Je suis interessé par le même sujet, j'ai donc fait un essai dans un fichier
d'Excelabo dans lequel j'ai inséré un de mes Userform où j'ai 7 images, dans
l'image 7 j'ai mis un gif animé nommé Amicalement.gif.
J'ai modifié la macro dont on parle dans le module 2 en mettant :
Private Sub UserForm1_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") & "ExcelaboAmicalement.gif")
If hCursor > 0 Then SetCursor hCursor
End Sub
Mon gif animé est dans le répertoire Excelabo, quant j'ouvre le Userform1
l'image7 n'est pas animée, où est l'erreur.
http://cjoint.com/?fxjWVay4ro
@+ j'espère
bonjour Didier,
remplace l'événement
Label3_MouseMove
par
UserForm_MouseMove
isabelle
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
bonjour Jean Paul,
est ce que le gif est dans le répertoire
C:winntExcelaboAmicalement.gif
ou
C:AutreWinSelonLaVersionExcelaboAmicalement.gif
dépendamment de ce que donne
MaVersion = Environ("Windir")
isabelleBonjour Isabelle
Je suis interessé par le même sujet, j'ai donc fait un essai dans un fichier
d'Excelabo dans lequel j'ai inséré un de mes Userform où j'ai 7 images, dans
l'image 7 j'ai mis un gif animé nommé Amicalement.gif.
J'ai modifié la macro dont on parle dans le module 2 en mettant :
Private Sub UserForm1_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") & "ExcelaboAmicalement.gif")
If hCursor > 0 Then SetCursor hCursor
End Sub
Mon gif animé est dans le répertoire Excelabo, quant j'ouvre le Userform1
l'image7 n'est pas animée, où est l'erreur.
http://cjoint.com/?fxjWVay4ro
@+ j'espèrebonjour Didier,
remplace l'événement
Label3_MouseMove
par
UserForm_MouseMove
isabelleBonjour
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
J'ai cherché, je n'ai pas ces répertoires
Mon Amicalement.gif est dans le même répertoire que mon fichier excel et ce
répertoire je l'ai appelé EXCELABO.
donc dans C:DOCEXCELABO
Y-a-t-il des contraintes particulières pour les Userform?
@+ j'espèrebonjour Jean Paul,
est ce que le gif est dans le répertoire
C:winntExcelaboAmicalement.gif
ou
C:AutreWinSelonLaVersionExcelaboAmicalement.gif
dépendamment de ce que donne
MaVersion = Environ("Windir")
isabelleBonjour Isabelle
Je suis interessé par le même sujet, j'ai donc fait un essai dans un fichier
d'Excelabo dans lequel j'ai inséré un de mes Userform où j'ai 7 images, dans
l'image 7 j'ai mis un gif animé nommé Amicalement.gif.
J'ai modifié la macro dont on parle dans le module 2 en mettant :
Private Sub UserForm1_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") & "ExcelaboAmicalement.gif")
If hCursor > 0 Then SetCursor hCursor
End Sub
Mon gif animé est dans le répertoire Excelabo, quant j'ouvre le Userform1
l'image7 n'est pas animée, où est l'erreur.
http://cjoint.com/?fxjWVay4ro
@+ j'espèrebonjour Didier,
remplace l'événement
Label3_MouseMove
par
UserForm_MouseMove
isabelleBonjour
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
J'ai cherché, je n'ai pas ces répertoires
Mon Amicalement.gif est dans le même répertoire que mon fichier excel et ce
répertoire je l'ai appelé EXCELABO.
donc dans C:DOCEXCELABO
Y-a-t-il des contraintes particulières pour les Userform?
@+ j'espère
bonjour Jean Paul,
est ce que le gif est dans le répertoire
C:winntExcelaboAmicalement.gif
ou
C:AutreWinSelonLaVersionExcelaboAmicalement.gif
dépendamment de ce que donne
MaVersion = Environ("Windir")
isabelle
Bonjour Isabelle
Je suis interessé par le même sujet, j'ai donc fait un essai dans un fichier
d'Excelabo dans lequel j'ai inséré un de mes Userform où j'ai 7 images, dans
l'image 7 j'ai mis un gif animé nommé Amicalement.gif.
J'ai modifié la macro dont on parle dans le module 2 en mettant :
Private Sub UserForm1_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") & "ExcelaboAmicalement.gif")
If hCursor > 0 Then SetCursor hCursor
End Sub
Mon gif animé est dans le répertoire Excelabo, quant j'ouvre le Userform1
l'image7 n'est pas animée, où est l'erreur.
http://cjoint.com/?fxjWVay4ro
@+ j'espère
bonjour Didier,
remplace l'événement
Label3_MouseMove
par
UserForm_MouseMove
isabelle
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
J'ai cherché, je n'ai pas ces répertoires
Mon Amicalement.gif est dans le même répertoire que mon fichier excel et ce
répertoire je l'ai appelé EXCELABO.
donc dans C:DOCEXCELABO
Y-a-t-il des contraintes particulières pour les Userform?
@+ j'espèrebonjour Jean Paul,
est ce que le gif est dans le répertoire
C:winntExcelaboAmicalement.gif
ou
C:AutreWinSelonLaVersionExcelaboAmicalement.gif
dépendamment de ce que donne
MaVersion = Environ("Windir")
isabelleBonjour Isabelle
Je suis interessé par le même sujet, j'ai donc fait un essai dans un fichier
d'Excelabo dans lequel j'ai inséré un de mes Userform où j'ai 7 images, dans
l'image 7 j'ai mis un gif animé nommé Amicalement.gif.
J'ai modifié la macro dont on parle dans le module 2 en mettant :
Private Sub UserForm1_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") & "ExcelaboAmicalement.gif")
If hCursor > 0 Then SetCursor hCursor
End Sub
Mon gif animé est dans le répertoire Excelabo, quant j'ouvre le Userform1
l'image7 n'est pas animée, où est l'erreur.
http://cjoint.com/?fxjWVay4ro
@+ j'espèrebonjour Didier,
remplace l'événement
Label3_MouseMove
par
UserForm_MouseMove
isabelleBonjour
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
refait un essaie en modifient cette ligne :
hCursor = LoadCursorFromFile _
(Environ("Windir") & "ExcelaboAmicalement.gif")
par:
hCursor = LoadCursorFromFile("C:DOCExcelaboAmicalement.gif")
isabelleJ'ai cherché, je n'ai pas ces répertoires
Mon Amicalement.gif est dans le même répertoire que mon fichier excel et ce
répertoire je l'ai appelé EXCELABO.
donc dans C:DOCEXCELABO
Y-a-t-il des contraintes particulières pour les Userform?
@+ j'espèrebonjour Jean Paul,
est ce que le gif est dans le répertoire
C:winntExcelaboAmicalement.gif
ou
C:AutreWinSelonLaVersionExcelaboAmicalement.gif
dépendamment de ce que donne
MaVersion = Environ("Windir")
isabelleBonjour Isabelle
Je suis interessé par le même sujet, j'ai donc fait un essai dans un fichier
d'Excelabo dans lequel j'ai inséré un de mes Userform où j'ai 7 images, dans
l'image 7 j'ai mis un gif animé nommé Amicalement.gif.
J'ai modifié la macro dont on parle dans le module 2 en mettant :
Private Sub UserForm1_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") & "ExcelaboAmicalement.gif")
If hCursor > 0 Then SetCursor hCursor
End Sub
Mon gif animé est dans le répertoire Excelabo, quant j'ouvre le Userform1
l'image7 n'est pas animée, où est l'erreur.
http://cjoint.com/?fxjWVay4ro
@+ j'espèrebonjour Didier,
remplace l'événement
Label3_MouseMove
par
UserForm_MouseMove
isabelleBonjour
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
refait un essaie en modifient cette ligne :
hCursor = LoadCursorFromFile _
(Environ("Windir") & "ExcelaboAmicalement.gif")
par:
hCursor = LoadCursorFromFile("C:DOCExcelaboAmicalement.gif")
isabelle
J'ai cherché, je n'ai pas ces répertoires
Mon Amicalement.gif est dans le même répertoire que mon fichier excel et ce
répertoire je l'ai appelé EXCELABO.
donc dans C:DOCEXCELABO
Y-a-t-il des contraintes particulières pour les Userform?
@+ j'espère
bonjour Jean Paul,
est ce que le gif est dans le répertoire
C:winntExcelaboAmicalement.gif
ou
C:AutreWinSelonLaVersionExcelaboAmicalement.gif
dépendamment de ce que donne
MaVersion = Environ("Windir")
isabelle
Bonjour Isabelle
Je suis interessé par le même sujet, j'ai donc fait un essai dans un fichier
d'Excelabo dans lequel j'ai inséré un de mes Userform où j'ai 7 images, dans
l'image 7 j'ai mis un gif animé nommé Amicalement.gif.
J'ai modifié la macro dont on parle dans le module 2 en mettant :
Private Sub UserForm1_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") & "ExcelaboAmicalement.gif")
If hCursor > 0 Then SetCursor hCursor
End Sub
Mon gif animé est dans le répertoire Excelabo, quant j'ouvre le Userform1
l'image7 n'est pas animée, où est l'erreur.
http://cjoint.com/?fxjWVay4ro
@+ j'espère
bonjour Didier,
remplace l'événement
Label3_MouseMove
par
UserForm_MouseMove
isabelle
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
refait un essaie en modifient cette ligne :
hCursor = LoadCursorFromFile _
(Environ("Windir") & "ExcelaboAmicalement.gif")
par:
hCursor = LoadCursorFromFile("C:DOCExcelaboAmicalement.gif")
isabelleJ'ai cherché, je n'ai pas ces répertoires
Mon Amicalement.gif est dans le même répertoire que mon fichier excel et ce
répertoire je l'ai appelé EXCELABO.
donc dans C:DOCEXCELABO
Y-a-t-il des contraintes particulières pour les Userform?
@+ j'espèrebonjour Jean Paul,
est ce que le gif est dans le répertoire
C:winntExcelaboAmicalement.gif
ou
C:AutreWinSelonLaVersionExcelaboAmicalement.gif
dépendamment de ce que donne
MaVersion = Environ("Windir")
isabelleBonjour Isabelle
Je suis interessé par le même sujet, j'ai donc fait un essai dans un fichier
d'Excelabo dans lequel j'ai inséré un de mes Userform où j'ai 7 images, dans
l'image 7 j'ai mis un gif animé nommé Amicalement.gif.
J'ai modifié la macro dont on parle dans le module 2 en mettant :
Private Sub UserForm1_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") & "ExcelaboAmicalement.gif")
If hCursor > 0 Then SetCursor hCursor
End Sub
Mon gif animé est dans le répertoire Excelabo, quant j'ouvre le Userform1
l'image7 n'est pas animée, où est l'erreur.
http://cjoint.com/?fxjWVay4ro
@+ j'espèrebonjour Didier,
remplace l'événement
Label3_MouseMove
par
UserForm_MouseMove
isabelleBonjour
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
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èrerefait un essaie en modifient cette ligne :
hCursor = LoadCursorFromFile _
(Environ("Windir") & "ExcelaboAmicalement.gif")
par:
hCursor = LoadCursorFromFile("C:DOCExcelaboAmicalement.gif")
isabelleJ'ai cherché, je n'ai pas ces répertoires
Mon Amicalement.gif est dans le même répertoire que mon fichier excel et ce
répertoire je l'ai appelé EXCELABO.
donc dans C:DOCEXCELABO
Y-a-t-il des contraintes particulières pour les Userform?
@+ j'espèrebonjour Jean Paul,
est ce que le gif est dans le répertoire
C:winntExcelaboAmicalement.gif
ou
C:AutreWinSelonLaVersionExcelaboAmicalement.gif
dépendamment de ce que donne
MaVersion = Environ("Windir")
isabelleBonjour Isabelle
Je suis interessé par le même sujet, j'ai donc fait un essai dans un fichier
d'Excelabo dans lequel j'ai inséré un de mes Userform où j'ai 7 images, dans
l'image 7 j'ai mis un gif animé nommé Amicalement.gif.
J'ai modifié la macro dont on parle dans le module 2 en mettant :
Private Sub UserForm1_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") & "ExcelaboAmicalement.gif")
If hCursor > 0 Then SetCursor hCursor
End Sub
Mon gif animé est dans le répertoire Excelabo, quant j'ouvre le Userform1
l'image7 n'est pas animée, où est l'erreur.
http://cjoint.com/?fxjWVay4ro
@+ j'espèrebonjour Didier,
remplace l'événement
Label3_MouseMove
par
UserForm_MouseMove
isabelleBonjour
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
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
J'ai cherché, je n'ai pas ces répertoires
Mon Amicalement.gif est dans le même répertoire que mon fichier excel et ce
répertoire je l'ai appelé EXCELABO.
donc dans C:DOCEXCELABO
Y-a-t-il des contraintes particulières pour les Userform?
@+ j'espère
bonjour Jean Paul,
est ce que le gif est dans le répertoire
C:winntExcelaboAmicalement.gif
ou
C:AutreWinSelonLaVersionExcelaboAmicalement.gif
dépendamment de ce que donne
MaVersion = Environ("Windir")
isabelle
Bonjour Isabelle
Je suis interessé par le même sujet, j'ai donc fait un essai dans un fichier
d'Excelabo dans lequel j'ai inséré un de mes Userform où j'ai 7 images, dans
l'image 7 j'ai mis un gif animé nommé Amicalement.gif.
J'ai modifié la macro dont on parle dans le module 2 en mettant :
Private Sub UserForm1_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") & "ExcelaboAmicalement.gif")
If hCursor > 0 Then SetCursor hCursor
End Sub
Mon gif animé est dans le répertoire Excelabo, quant j'ouvre le Userform1
l'image7 n'est pas animée, où est l'erreur.
http://cjoint.com/?fxjWVay4ro
@+ j'espère
bonjour Didier,
remplace l'événement
Label3_MouseMove
par
UserForm_MouseMove
isabelle
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
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èrerefait un essaie en modifient cette ligne :
hCursor = LoadCursorFromFile _
(Environ("Windir") & "ExcelaboAmicalement.gif")
par:
hCursor = LoadCursorFromFile("C:DOCExcelaboAmicalement.gif")
isabelleJ'ai cherché, je n'ai pas ces répertoires
Mon Amicalement.gif est dans le même répertoire que mon fichier excel et ce
répertoire je l'ai appelé EXCELABO.
donc dans C:DOCEXCELABO
Y-a-t-il des contraintes particulières pour les Userform?
@+ j'espèrebonjour Jean Paul,
est ce que le gif est dans le répertoire
C:winntExcelaboAmicalement.gif
ou
C:AutreWinSelonLaVersionExcelaboAmicalement.gif
dépendamment de ce que donne
MaVersion = Environ("Windir")
isabelleBonjour Isabelle
Je suis interessé par le même sujet, j'ai donc fait un essai dans un fichier
d'Excelabo dans lequel j'ai inséré un de mes Userform où j'ai 7 images, dans
l'image 7 j'ai mis un gif animé nommé Amicalement.gif.
J'ai modifié la macro dont on parle dans le module 2 en mettant :
Private Sub UserForm1_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") & "ExcelaboAmicalement.gif")
If hCursor > 0 Then SetCursor hCursor
End Sub
Mon gif animé est dans le répertoire Excelabo, quant j'ouvre le Userform1
l'image7 n'est pas animée, où est l'erreur.
http://cjoint.com/?fxjWVay4ro
@+ j'espèrebonjour Didier,
remplace l'événement
Label3_MouseMove
par
UserForm_MouseMove
isabelleBonjour
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
bonjour Didier,
remplace l'événement
Label3_MouseMove
par
UserForm_MouseMove
isabelleBonjour
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
bonjour Didier,
remplace l'événement
Label3_MouseMove
par
UserForm_MouseMove
isabelle
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
bonjour Didier,
remplace l'événement
Label3_MouseMove
par
UserForm_MouseMove
isabelleBonjour
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
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èrerefait un essaie en modifient cette ligne :
hCursor = LoadCursorFromFile _
(Environ("Windir") & "ExcelaboAmicalement.gif")
par:
hCursor = LoadCursorFromFile("C:DOCExcelaboAmicalement.gif")
isabelle
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
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èrerefait un essaie en modifient cette ligne :
hCursor = LoadCursorFromFile _
(Environ("Windir") & "ExcelaboAmicalement.gif")
par:
hCursor = LoadCursorFromFile("C:DOCExcelaboAmicalement.gif")
isabelle
j'avais de mit de coté une procédure pour animer un gif dans le cadre
image, je vais essayer de la retrouver.
j'avais de mit de coté une procédure pour animer un gif dans le cadre
image, je vais essayer de la retrouver.
j'avais de mit de coté une procédure pour animer un gif dans le cadre
image, je vais essayer de la retrouver.