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
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