VBA teste connexion internet
Résolu
bzx5v5
Messages postés
5
Statut
Membre
-
bzx5v5 -
bzx5v5 -
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
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
A voir également:
- VBA teste connexion internet
- Gmail connexion - Guide
- D'où peut venir un problème de connexion internet sur un ordinateur ? - Guide
- Teste performance pc - Guide
- Arcep ma connexion internet - Accueil - Box & Connexion Internet
- Comment savoir si quelqu'un utilise ma connexion internet - Guide
3 réponses
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.
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.
Salut le Forum
Mytå
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å
