Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Connection internet

Connection internet

3 réponses
Avatar
IMER09
Bonjour a tous

Est il possible par V BA de verifier si le PC est connecter ou pas, afin
d'effectuer un code ou un autre
j'ai eu des pb avec ma box c'est dernier jour et donc des bug du fait de la
non connection

Merci

Rémi
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
michdenis
Bonjour,

Cette façon de faire est déjà parue sous la plus de M. Perron
dans ce groupe de discussion.

'Déclaration de l'API dans le haut d'un module standard
Private Declare Function InetIsOffline Lib "url.dll" (ByVal dwFlags As Long) As Long

'--------------------
Sub Test()
MsgBox IIf(InetIsOffline(0), "Non connecté !", "Connecté !"), 64
End Sub
'--------------------



"IMER09" a écrit dans le message de groupe de
discussion :
Bonjour a tous

Est il possible par V BA de verifier si le PC est connecter ou pas, afin
d'effectuer un code ou un autre
j'ai eu des pb avec ma box c'est dernier jour et donc des bug du fait de la
non connection

Merci

Rémi
Avatar
Hervé
Bonsoir,
ou encore :

Declare Function InternetGetConnectedState _
Lib "wininet.dll" ( _
ByRef lpdwFlags As Long, _
ByVal dwReserved As Long) As Long

Private Sub ConnexionInternet()

If InternetGetConnectedState(0&, 0&) Then
MsgBox "Vous êtes connecté à Internet"
Else
MsgBox "Vous n'êtes pas connecté à Internet"
End If

End Sub

Hervé.

"IMER09" a écrit dans le message de
news:
Bonjour a tous

Est il possible par V BA de verifier si le PC est connecter ou pas, afin
d'effectuer un code ou un autre
j'ai eu des pb avec ma box c'est dernier jour et donc des bug du fait de
la non connection

Merci

Rémi

Avatar
IMER09
Merci a vous 2

Rémi

"Hervé" a écrit dans le message de news:

Bonsoir,
ou encore :

Declare Function InternetGetConnectedState _
Lib "wininet.dll" ( _
ByRef lpdwFlags As Long, _
ByVal dwReserved As Long) As Long

Private Sub ConnexionInternet()

If InternetGetConnectedState(0&, 0&) Then
MsgBox "Vous êtes connecté à Internet"
Else
MsgBox "Vous n'êtes pas connecté à Internet"
End If

End Sub

Hervé.

"IMER09" a écrit dans le message de
news:
Bonjour a tous

Est il possible par V BA de verifier si le PC est connecter ou pas, afin
d'effectuer un code ou un autre
j'ai eu des pb avec ma box c'est dernier jour et donc des bug du fait de
la non connection

Merci

Rémi