msgbox à fermeture automatique

Question

Bonjour, je suis sous VBA/Access2003, je cherche &#224; faire apparaitre une boite de dialogue genre msgbox "veuillez patienter.." qui s'ouvre au d&#233;but d'une tache et se ferme &#224; la fin automatiquement :

msgbox "Veuillez patienter..."
[code &#224; executer] 'la boite de dialogue reste affich&#233;e
msgbox.close 'la boite se ferme, &#231;a n'existe pas mais je cherche un truc du genre

Remarque : si je peux &#233;viter de cr&#233;er une form pour &#231;a, &#231;a m'arrangerais, sinon je sais faire.

NHenry · Answer

Bonjour

Tu peux utiliser une UserForm perso que tu utilise comme cela :
MaUserForm.Show
'Code
unload MaUserForm

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en priv&#233;
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

cs_JMO · Answer

Bonjour,

Il y a aussi cette possibilit&#233;:

' ################## AFFICHER UNE FENETRE D'INFORMATION  
strComputer = "." 
Set objWMIService = GetObject("Winmgmts:\" & strComputer & "\root\cimv2") 
Set colItems = objWMIService.ExecQuery("Select * From Win32_DesktopMonitor") 
For Each objItem in colItems 
    intHorizontal = objItem.ScreenWidth 
    intVertical = objItem.ScreenHeight 
Next 
Set objExplorer = CreateObject("InternetExplorer.Application") 
objExplorer.Navigate "about:blank"    
objExplorer.ToolBar = 0 
objExplorer.StatusBar = 0 
objExplorer.Left = (intHorizontal - 800) / 2 
objExplorer.Top = (intVertical - 100) / 2 
objExplorer.Width = 500 
objExplorer.Height = 180
objExplorer.Visible = 1              
objExplorer.Document.Body.Style.Cursor = "wait" 
objExplorer.Document.Title = fic & "  -  " & Now 
objExplorer.Document.Body.InnerHTML = "
Cr&#233;ation du fichier
""" &_
 fic & """
en cours , merci de patienter.
" 
'''''''''''''''''''''''''''''''''
' Actions du script
''''''''''''''''''''''''''''''''
' ################## FERMER LA FENETRE  
objExplorer.Document.Body.Style.Cursor = "default" 
objExplorer.Quit 
Set objExplorer = Nothing
Set Set colItems = Nothing
Set objWMIService = Nothing

jean-marc

NHenry · Answer

Bonjour

C'est quand mme bien compliqu&#233; , ma solution est quand mme plus abordable.

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en priv&#233;
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

julien3d · Answer

Je m'attendais &#224; quelque chose de plus simple. Ca me pla&#238;t pas de cr&#233;er une userForm pour juste afficher un "attendez svp" mais bon. J'ai vu des choses sur l'API "Messagebox" mais pas vu si on peut afficher une boite sans bouton que l'on peut fermer avec du code. Quelqu'un sait ?

NHenry · Answer

Bonjour

C'est possible (du moins en VB6 g pense aussi en VBA), il faut mettre la propri&#233;t&#233; de la userform contorlbox &#224; false.

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en priv&#233;
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

zavier666 · Answer

oui je pense pouvoir te r&#233;pondre:

avec l'api findwindow, tu fais une recherche par nom pour obtenir le handle de la boite

avec l'api setfocus, tu lui colles le focus

avec l'api keyb_event, tu envoie la touche "entr&#233;e"

ta boite de dialogue se fermera au bout du temps que tu souhaites:

slts!

API @ la Loupe

BruNews · Answer

Jamais de prog &#224; coups de keyv_event, qui dit que l'utilisateur n'aura pas mis le focus sur un autre prog ?
Solution UserForm de NHenry est &#224; privil&#233;gier.

ciao...
BruNews, MVP VC++

zavier666 · Answer

on s'en fous puisque setfocus te permet de mettre le focus sur la boite de dialogue!!??!!

CTAC · Answer

Bonjour,




Peut être ça :

Sub MsgBoxTmp()
Dim SH As Object
Set SH = CreateObject("WScript.Shell")
SH.Popup "Le message qui disparait aprés 3 secondes", 3, "Spécial julien3d", 48
Set SH = Nothing
End Sub

ctac

cs_JMO · Answer

Bonsoir,

Un Popup n'est pas la solution &#224; la question.

/auteurdetail.aspx?ID=629131 "Bonjour, je suis sous VBA/Access2003, je cherche &#224; faire apparaitre une boite de dialogue genre msgbox "veuillez patienter.." qui s'ouvre au d&#233;but d'une tache et se ferme &#224; la fin automatiquement :

donc, sous-entendu, &#224; la fin de la tache.
Je d&#233;fends "ma" solution WMI   !!!!!

Bonne prog et bonne soir&#233;e.

jean-marc

Msgbox à fermeture automatique

10 réponses

Discussions similaires