msgbox temporaire

[STéphane]

un cadeau :

Function Message_Temporaire(Message As String, TpsenSeconde As Integer, TitreMessage As String)
CreateObject("WScript.Shell").PopUp Message, TpsenSeconde, TitreMessage
'temps en secondes. référence dés fois nécessaire à Windows host scripting)
End Function

sub test
nib = Message_Temporaire("J'espère qu'il vous plaira", 2, "Un cadeau pour vous !")
end sub

 

[Celeda]

Stephane
Des cadeaux comme celui-la tous les jours de la semaine meme le week-end, les vacances, les jours de pluie..................
Je l'aime et je vais l'utiliser.
Et en plus on peut lui créer un bouton ? à cette macro ?
Merci