En VBA garder affiché un MSGBOX même après l'ouverture d'une fenêtre iexplorer

[legolas86]

Bonjour à tous.
Lorsque j'ouvre une fenêtre Iexplorer, je voudrais qu'un MSGBOX s'affiche et reste affiché même si l'on clic sur la fenêtre Iexplorer. Ci dessous mon code permet d'afficher la fenêtre iexplorer mais le MSGBOX ne s'affiche pas. Pouvez-vous m'aider.

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1

Sub cnx_lien_web()
lien_web_tech = "http://www.google.fr/"
login = "toto"
mpas = "test"
ShellExecute vbNull, "open", lien_web_tech, vbNull, vbNull, SW_SHOWNORMAL
MsgBox ("Login: " + login + " Mpas: " + mpas), vbSystemModal, "Login et Mot de passe"
End Sub

 

[Compte Supprimé 979]

Re : En VBA garder affiché un MSGBOX même après l'ouverture d'une fenêtre iexplorer

Salut Legolas86,

Comme c'est une fenètre IE, tu ne pourras pas afficher un MSGBOX (Excel) devant

Sinon il faut intégrer dans ton classeur Excel, un objet web browser 😉

A+

 

[legolas86]

Re : En VBA garder affiché un MSGBOX même après l'ouverture d'une fenêtre iexplorer

Salut BrunoM45, un USF ??? je ne connais pas peux tu m'expliquer

 

[Compte Supprimé 979]

Re : En VBA garder affiché un MSGBOX même après l'ouverture d'une fenêtre iexplorer

Re,

Désolé, j'ai modifié ma réponse car elle ne convenait pas à ton problème

A+

 

[legolas86]

Re : En VBA garder affiché un MSGBOX même après l'ouverture d'une fenêtre iexplorer

J'avais cru comprendre que je devais associer le handle de IE à mon message box mais je ne sais pas comment