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
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
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
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" <nospam-sarl-du-calvaire@wanadoo.fr> a écrit dans le message de groupe de
discussion : uZLt64Q7KHA.4508@TK2MSFTNGP06.phx.gbl...
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
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
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
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" <nospam-sarl-du-calvaire@wanadoo.fr> a écrit dans le message de
news:uZLt64Q7KHA.4508@TK2MSFTNGP06.phx.gbl...
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
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
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
Merci a vous 2
Rémi
"Hervé" <silve-herve@orange.fr> a écrit dans le message de news:
OAMHVyU7KHA.3504@TK2MSFTNGP05.phx.gbl...
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" <nospam-sarl-du-calvaire@wanadoo.fr> a écrit dans le message de
news:uZLt64Q7KHA.4508@TK2MSFTNGP06.phx.gbl...
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
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