Debranchement internet dans un module

Bonjour,

Je voudrais me debrancher sur Internet après consultation d'un msgbox. Sur une forme quelconque pas de Pb mais lorsque ce msgbox vient d'un module cela me pose pb. Voici le code insere dans le module.

Code:

---

1 2 3 4 5 6 7

If DateTime.Date > DateFinEssai Then reponse = MsgBox("blablabla", vbOKOnly + vbInformation, " Informations") If reponse = vbOK Then 'ShellExecute Me.hwnd, "open", http://www.kafeo.com/pages/acquerir.htm", vbNullString, vbNullString, sw_shownormal End If end End if

---

J'ai bien entendu déclaré mon API en haut du module comme ceci

Code:

---

1 2 3 4

Public 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

---

En fait, je fais une serie de tests dans le module, dont un test sur une date, et pour ce test, je voudrai automatiquement après avoir informé (blablabla) me debrancher sur une page web.

J'obtiens une erreur "hwnd inconnu" !:(
Qu'il y a t-il de mauvais ? peut-on réellement se debrancher sur Internet dans ce cas précis ? j'ai le même cas mais sur une form 'normale' et là, pas de pb, ca marche.

Merci de vos lumières ;)

Mon module s'appelle mdl1, et j'obtiens le message d'erreur:
sur "ShellExecute Mdl1.hwnd"
Methode ou membre de données introuvable...

Si la procédure qui contient ce code

Code:

---

1 2 3 4 5 6 7

If DateTime.Date > DateFinEssai Then reponse = MsgBox("blablabla", vbOKOnly + vbInformation, " Informations") If reponse = vbOK Then 'ShellExecute Me.hwnd, "open", http://www.kafeo.com/pages/acquerir.htm", vbNullString, vbNullString, sw_shownormal End If end End if

---

est dans un module, le problème vient du Me.hWnd puisque Me représente une fenêtre de type Form. Tu devrait passer ta fenêtre en paramètre dans ta procédure. Exemple (j'invente le nom de la procédure puisque nous n'avons pas cette partie de ton code) :

Code:

---

1 2 3 4 5 6 7 8 9

Public Sub taProcedure(fenetre As Form) ' [...] ton code qui vient avant, s'il y en a... If DateTime.Date > DateFinEssai Then reponse = MsgBox("blablabla", vbOKOnly + vbInformation, " Informations") If reponse = vbOK Then 'ShellExecute fenetre.hwnd, "open", http://www.kafeo.com/pages/acquerir.htm", vbNullString, vbNullString, sw_shownormal End If end End if

---

Dans l'appel de ta procédure, tu pousse le Me de tout à l'heure

Code:

---

1 2 3

Private Sub UnQuelconqueBouton_Click() taProcedure Me End Sub

---

Si ça ne résout pas le problème, tu dis.