Salut les gars,
Je désire faire apparaitre une msgbox pendant seulement quelques seconde mais le seul code que j'ai trouver ne semble fonctionner que sur le classeur que j'ai telecharger sur ce lien:
Ce site n'existe plus
et ca donne ca:
---------------------------------------------
Private Function EndTimer() As Boolean
If TimerId Then
TimerId = KillTimer(0&, TimerId)
TimerId = 0
EndTimer = True
End If
End Function
Sub MsgBox_Timed()
If Not okVersion Then Exit Sub
TitleMsgBox = 'Self Closing MsgBox'
StartTimer1 2000
MsgBox 'This message will be displayed for 2 seconds', 64, TitleMsgBox
EndTimer
End Sub
Private Sub StartTimer1(Interval&)
If TimerId Then EndTimer
TimerId = SetTimer(0&, 0&, ByVal Interval, AddressOf CloseMsgBox)
End Sub
Private Sub CloseMsgBox(ByVal lHwnd&, ByVal lMsg&, ByVal lIDEvent&, ByVal lTime&)
Const WM_CLOSE = &H10
hWndMsgBox = FindWindow(vbNullString, TitleMsgBox) ' Find the Msgbox
Call SendMessage(hWndMsgBox, WM_CLOSE, 0, ByVal 0&) ' Close Msgbox
End Sub
Private Function okVersion() As Boolean
If Val(Application.Version) < 9 Then
MsgBox 'Cette application nécessite Excel2000 ou plus !', 48
Exit Function
End If
okVersion = True
End Function
--------------------------------------------
malheureusement il semble y avoir une erreur de compilation avec la fonction addressof
S'il vous plait aider moi....j'ai épuisez toutes mes ressources..
merci