Il y a quelques jours on ma fait part d'un exemple de fichier avec une boîte
de dialogue qui s'affiche à l'ouverture dudit fichier.
ici :
http://cjoint.com/data/dDpGyGTJOF.htm
C'était la solution à mes attentes, sauf que je voudrais maintenant ajouter
un bouton de commande ("Quitter") et qu'apparaisse sur cette boîte un
message du style "cette boîte de fermera dans xxx secondes".
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
lSteph
Bonjour,
Private Sub Btn_quitter_Click() Label1.Caption = "Fermeture dans 3s" Application.ScreenUpdating = False
Application.Wait Now + TimeValue("00:00:03") Application.ScreenUpdating = True Unload Me End Sub
Private Sub UserForm_Initialize() Label1.Caption = "Salut" End Sub
'lSteph
"Xavier Kaécouter" a écrit dans le message de news: %23TFg1W$
Bonjour,
Il y a quelques jours on ma fait part d'un exemple de fichier avec une boîte de dialogue qui s'affiche à l'ouverture dudit fichier.
ici : http://cjoint.com/data/dDpGyGTJOF.htm
C'était la solution à mes attentes, sauf que je voudrais maintenant ajouter un bouton de commande ("Quitter") et qu'apparaisse sur cette boîte un message du style "cette boîte de fermera dans xxx secondes".
Auriez vous une idée ?
Merci d'avance
Fred
Bonjour,
Private Sub Btn_quitter_Click()
Label1.Caption = "Fermeture dans 3s"
Application.ScreenUpdating = False
Application.Wait Now + TimeValue("00:00:03")
Application.ScreenUpdating = True
Unload Me
End Sub
Private Sub UserForm_Initialize()
Label1.Caption = "Salut"
End Sub
'lSteph
"Xavier Kaécouter" <koukou40_pas_une_poubelle@free.fr> a écrit dans le
message de news: %23TFg1W$UGHA.1204@TK2MSFTNGP12.phx.gbl...
Bonjour,
Il y a quelques jours on ma fait part d'un exemple de fichier avec une
boîte
de dialogue qui s'affiche à l'ouverture dudit fichier.
ici :
http://cjoint.com/data/dDpGyGTJOF.htm
C'était la solution à mes attentes, sauf que je voudrais maintenant
ajouter
un bouton de commande ("Quitter") et qu'apparaisse sur cette boîte un
message du style "cette boîte de fermera dans xxx secondes".
Private Sub Btn_quitter_Click() Label1.Caption = "Fermeture dans 3s" Application.ScreenUpdating = False
Application.Wait Now + TimeValue("00:00:03") Application.ScreenUpdating = True Unload Me End Sub
Private Sub UserForm_Initialize() Label1.Caption = "Salut" End Sub
'lSteph
"Xavier Kaécouter" a écrit dans le message de news: %23TFg1W$
Bonjour,
Il y a quelques jours on ma fait part d'un exemple de fichier avec une boîte de dialogue qui s'affiche à l'ouverture dudit fichier.
ici : http://cjoint.com/data/dDpGyGTJOF.htm
C'était la solution à mes attentes, sauf que je voudrais maintenant ajouter un bouton de commande ("Quitter") et qu'apparaisse sur cette boîte un message du style "cette boîte de fermera dans xxx secondes".
Auriez vous une idée ?
Merci d'avance
Fred
Xavier Kaécouter
Merci bien !
"lSteph" a écrit dans le message de news:
Bonjour,
Private Sub Btn_quitter_Click() Label1.Caption = "Fermeture dans 3s" Application.ScreenUpdating = False
Application.Wait Now + TimeValue("00:00:03") Application.ScreenUpdating = True Unload Me End Sub
Private Sub UserForm_Initialize() Label1.Caption = "Salut" End Sub
'lSteph
"Xavier Kaécouter" a écrit dans le message de news: %23TFg1W$
Bonjour,
Il y a quelques jours on ma fait part d'un exemple de fichier avec une boîte de dialogue qui s'affiche à l'ouverture dudit fichier.
ici : http://cjoint.com/data/dDpGyGTJOF.htm
C'était la solution à mes attentes, sauf que je voudrais maintenant ajouter un bouton de commande ("Quitter") et qu'apparaisse sur cette boîte un message du style "cette boîte de fermera dans xxx secondes".
Auriez vous une idée ?
Merci d'avance
Fred
Merci bien !
"lSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
OUnOmGAVGHA.4608@tk2msftngp13.phx.gbl...
Bonjour,
Private Sub Btn_quitter_Click()
Label1.Caption = "Fermeture dans 3s"
Application.ScreenUpdating = False
Application.Wait Now + TimeValue("00:00:03")
Application.ScreenUpdating = True
Unload Me
End Sub
Private Sub UserForm_Initialize()
Label1.Caption = "Salut"
End Sub
'lSteph
"Xavier Kaécouter" <koukou40_pas_une_poubelle@free.fr> a écrit dans le
message de news: %23TFg1W$UGHA.1204@TK2MSFTNGP12.phx.gbl...
Bonjour,
Il y a quelques jours on ma fait part d'un exemple de fichier avec une
boîte
de dialogue qui s'affiche à l'ouverture dudit fichier.
ici :
http://cjoint.com/data/dDpGyGTJOF.htm
C'était la solution à mes attentes, sauf que je voudrais maintenant
ajouter
un bouton de commande ("Quitter") et qu'apparaisse sur cette boîte un
message du style "cette boîte de fermera dans xxx secondes".
Private Sub Btn_quitter_Click() Label1.Caption = "Fermeture dans 3s" Application.ScreenUpdating = False
Application.Wait Now + TimeValue("00:00:03") Application.ScreenUpdating = True Unload Me End Sub
Private Sub UserForm_Initialize() Label1.Caption = "Salut" End Sub
'lSteph
"Xavier Kaécouter" a écrit dans le message de news: %23TFg1W$
Bonjour,
Il y a quelques jours on ma fait part d'un exemple de fichier avec une boîte de dialogue qui s'affiche à l'ouverture dudit fichier.
ici : http://cjoint.com/data/dDpGyGTJOF.htm
C'était la solution à mes attentes, sauf que je voudrais maintenant ajouter un bouton de commande ("Quitter") et qu'apparaisse sur cette boîte un message du style "cette boîte de fermera dans xxx secondes".
