Afficher une boite de dialogue au premier planRésolu

Question

Bonjour,
En fait j'utilise une macro VBA access pour "piloter" une application et je voudrai y afficher une boite de dialogue. Le probl&#232;me c'est que quand j'utilise message box elle s'affiche sous exel.


<HR width="100%" SIZE=2>

PCPT · Accepted Answer

ok. utilise l'API MessageBox et attache la au handle désiré. VB6 : Const MB_DEFBUTTON1 = &H0& Const MB_DEFBUTTON2 = &H100& Const MB_DEFBUTTON3 = &H200& Const MB_ICONASTERISK = &H40& Const MB_ICONEXCLAMATION = &H30& Const MB_ICONHAND = &H10& Const MB_ICONINFORMATION = MB_ICONASTERISK Const MB_ICONQUESTION = &H20& Const MB_ICONSTOP = MB_ICONHAND Const MB_OK = &H0& Const MB_OKCANCEL = &H1& Const MB_YESNO = &H4& Const MB_YESNOCANCEL = &H3& Const MB_ABORTRETRYIGNORE = &H2& Const MB_RETRYCANCEL = &H5& Private Declare Function MessageBox Lib "user32" Alias "MessageBoxA" _ (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, _ ByVal wType As Long) As Long Private Sub Form_Load() 'KPD-Team 1998 'URL: http://www.allapi.net/ 'E-Mail: KPDTeam@Allapi.net 'Show a messagebox MessageBox 0&, "KPD-Team 1998", App.Title, MB_OK Unload Me End Sub Coloration syntaxique automatique [AFCK]

PCPT · Answer

salut,

fais-toi une feuille personnalis&#233;e

MaForm.show vbmodal

Albadeath · Answer

Je crois que je me suis mal exprim&#233; d&#233;sol&#233;. Quand je dit 'sous excel' c'est pas dessous mais c'est que &#231;a s'affiche sur une feuille. Ce que je veux c'est par exemple activer Internet Explorer avec 'appactivate' et afficher une boite de dialogue au premier plan devant IE (ou n'importe quelle autre application). J'ai d&#233;j&#224; essayer avec une feuille personnalis&#233;e mais merci quand m&#234;me.

Albadeath · Answer

Merci beaucoup &#231;a fonctionne d&#233;j&#224; mieux. Il se lance une bo&#238;te de dialogue mais celle ci reste r&#233;duite alors que je voudrai l'afficher directement. D'ailleurs je croyait que appactivate agrandissait la fen&#234;tre appel&#233;e mais ce n'est pas le cas. Je vien d'essayer des trucs mais &#231;a marche pas.

PCPT · Answer

&#231;&#224; fonctionne "mieux", mieux que rien? &#231;&#224; aide pas &#231;&#224;.

"essay&#233; des trucs mais &#231;&#224; marche pas", tu peux &#234;tre encore moins pr&#233;cis stp?

Albadeath · Answer

J'ai dit ce qu'il se passait : "Il se lance une bo&#238;te de dialogue mais celle ci reste r&#233;duite alors que je voudrai l'afficher directement". En gros la boite n'arrive plus sous exel, &#231;a c'est la bonne nouvelle, mais elle reste r&#233;duite dans la "barre windows en bas". Je vois pas comment &#234;tre plus clair...
J'ai essay&#233; ceci mais non...

MessageBox 0&, "Voulez-vous enregistrer?", "Validation", MB_YESNO 
AppActivate "Validation", True

Le appactivate ne fonctionne pas sur un messagebox (ce qui est logique finalement).

PCPT · Answer

ouaip, et je t'ai indiqu&#233; qu'il fallait l'attacher au handle d&#233;sir&#233;, avec 0& en rouge pour voir quelle valeur changer ;)

Albadeath · Answer

Ok mais c'est quoi le handle? Je suis un d&#233;butant moi d&#233;sol&#233;. Ca fait qu'une semaine que je bosse sur VB pour mon stage.
En tout cas merci pour les infos.

PCPT · Answer

c'est l'identifiant de ta fen&#234;tre (fourni et g&#233;n&#233;r&#233; par l'OS)

Albadeath · Answer

D'accord mais comment je peut le r&#233;cup&#233;rer cet identifiant? C'est toujours le m&#234;me ou il est variant?

PCPT · Answer

le handle change &#224;  chaque fois.

r&#233;cup&#233;rer l'identifiant du MessageBox? tu ne peux pas (pas facilement en tout cas). de ta macro /
feuille-excel? j'ai mis l'exemple en VB6 parce que je ne touche pas &#224;
VBA. d&#233;sol&#233;.



essaie de voir dans les sources existantes...

Albadeath · Answer

Ok bah merci quand m&#234;me je vais continuer de chercher.

zavier666 · Answer

utilise la fonction setwindowpos et fait une fen^^etre always ont top pour qu'elle reste au dessus de toute les autres

tu peux essayer d'aller sur mon site dans la rubrique user32dll pour savoir comment r&#233;cup&#233;rer les handle des fen&#234;tre et savoir comment agir sur ta fe^n&#234;tre:

http//xav.prog.power.free.fr

Albadeath · Answer

Ok merci Zavier666 pour ton aide mais j'ai r&#233;ussi &#224; r&#233;soudre mon probl&#232;me en utilisant justement les API. J'utilise FindWindow pour avoir le handle (&#231;a marche super sauf qu'il faut connaitre la classe de l'appli) puis ShowWindow et enfin SetForegroundWindow. C'est imparrable.

Je vais tout de m&#234;me aller jeter un oeuil sur ton site vu que j'ai encore d'autre chose &#224; faire.

Voila

Albadeath · Answer

Ok donc il est impossible de faire afficher une boite de dialogue sur une appli et que l'accès à cette dernière soit possible, dommage...

Afficher une boite de dialogue au premier plan

15 réponses

Discussions similaires