Discussion :

[Teddy7]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[zazaraignée]

Si la procédure qui contient ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub UnQuelconqueBouton_Click()
    taProcedure Me
End Sub

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