msgbox qui se ferme aprés 10 sec

[ALex]

Bonjour

Est il possible de réaliser une msgbox qui se ferme automatiquement sa&ns click aprés 10 sec??
Un msgbox sans bouton se fermant aprés 10 sec serait encore mieux

QQN connait il??

Merci

 

[jeromegmc]

Salut,

Le plus simple est d'utiliser un userform à la place du msgbox, en utilisant ce code par exemple, qui ferme le userform après 10 secondes d'ouverture:

Private Sub UserForm_Activate()

Dim NextTemps
NextTemps = Now + TimeValue('00:00:10')
Application.Wait (NextTemps)
UserForm1.Hide

End Sub

A+

 

[MichelXld]

bonjour

ci joint une autre possibilité

Sub msgBoxTemporaire()
CreateObject('Wscript.shell').Popup 'Le Texte', 10, 'Le Titre'
End Sub


bon apres midi
MichelXld

 

[MichelXld]

bonjour

ci joint une autre possibilité

Sub msgBoxTemporaire()
CreateObject('Wscript.shell').Popup 'Le Texte', 10, 'Le Titre'
End Sub


bon apres midi
MichelXld

 

[ALex]

Merci pour vos réponses

Michel j'opterais pour ta solution mais est-il possible de réduire le temps a 0.1sec?
Et aussi peut on supprimer le bonton ok??

Merci d'avance

 

[ALex]

Merci pour vos réponses

Michel j'opterais pour ta solution mais est-il possible de réduire le temps a 0.1sec?
Et aussi peut on supprimer le bonton ok??

Merci d'avance