Bonjour à tous.
En effet, je n'y arrive pas non plus, et après une recherche dans
l'API guide, la seule chose que je peux proposer à l'heure actuelle, c'est un petit test qui dit si on est connecté où pas (code à mettre en tête d'un module)
Private Const FLAG_ICC_FORCE_CONNECTION = &H1
Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long
Private Sub TestConnexion()
If InternetCheckConnection("http://www.excel-downloads.com/", FLAG_ICC_FORCE_CONNECTION, 0&) = 0 Then
MsgBox "Connecté", vbInformation
Else
MsgBox "Non connecté", vbInformation
End If
End Sub
faute de mieux, je vous souhaite une excellente journée.
Laurent.