VBA teste connexion internet

[Résolu/Fermé]
Signaler
Messages postés
4
Date d'inscription
dimanche 26 mai 2013
Statut
Membre
Dernière intervention
30 octobre 2013
-
 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

3 réponses

Messages postés
17580
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
17 octobre 2021
4 771
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.
2
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 41713 internautes nous ont dit merci ce mois-ci

Messages postés
2967
Date d'inscription
mardi 20 janvier 2009
Statut
Contributeur
Dernière intervention
20 décembre 2016
884
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å
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