VBA teste connexion internet Résolu

Question

Bonjour,

j'ai essayé plusieurs fonction pour tester la présence de connexion à internet sans succès.

Je vous livre celle qui me parait la plus simple :

    If My.Computer.Network.IsAvailable = True Then
    MsgBox ("Computer is connected.")
Else
    MsgBox ("Computer is not connected.")
End If

Le retour est sans appel : erreur exécution object requis.

Merci de m'aider car j'ai copié cette partie de code trouvé sur le net et je n'ai pas de solution.

Cordialement

Mike-31 · Accepted Answer

Salut,

Regarde avec ce code

Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long
 
Sub TestConnexionInternet()
     If ConnectWeb = True Then
    MsgBox "Computer is connected"
    Else
    MsgBox "Computer is not connected"
    End If
End Sub
 
Public Function ConnectWeb() As Boolean
ConnectWeb = IIf(InternetGetConnectedState(0&, 0&) = 1, True, False)
End Function

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Mytå · Answer

Salut le Forum

Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal lpszConnectionName As String, ByVal dwNameLen As Integer, ByVal dwReserved As Long) As Long
 
Public Function IsInternetConnected() As Boolean
Dim strConnType As String
Dim lngReturnStatus As Long
 
    IsInternetConnected = False
    lngReturnStatus = InternetGetConnectedStateEx(lngReturnStatus, strConnType, 254, 0)
    If lngReturnStatus = 1 Then IsInternetConnected = True
 
End Function 
Mytå

bzx5v5 · Answer

Bonjour,

Je vous remercie des réponses que vous m'avez apportées.

J'ai inclus le code fourni et mon problème est résolu.

Bonne journée et encore merci pour votre aide.

Cordialement

VBA teste connexion internet

3 réponses

Discussions similaires

Newsletters