Userform tempo

A rajouter dans Le code de l'UserForm:

Private Declare Sub _
Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub UserForm_Activate()

Me.Repaint
'NOTES : Repaint
'Met à jour l'affichage en redessinant la feuille ou la page.

Call Sleep(1000)
Unload Me
End Sub


@+



Paulo a exposé le 17/09/2004 :

Bonjour,

Comment faire pour ouvrir puis refermer un userform à
l'ouverture d'un classeur pendant 10secondes par
exemple ???

merci