Discussion :

[kartouch]

Bonjour à tous,

J'aimerai savoir qu quelqu'un sait comment fair un test de connexion internet à partir d'un macro.
En fait j'exécute un requete WEB précédent d'une macro "BEFOREREFRESH" (dans la quelle le test se ferait) et suivi d'une macro "AFTERREFRESH" pour traiter les données recues.

Voila j'espère avoir été assez clair.
Merci pour vos réponses

kartouch

[EvaristeGaloisBis]

personnellement je pense que je ferais un truc du style shell "ping www.google.com" et tenterais de récupérer des informations dessus... mais il est vrai qu'a brule pour point je ne vois pas comment.

[fred65200]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long
 
Sub TestConnexionInternet()
    MsgBox "Connexion internet : " & ConnectéInternet
End Sub
 
Public Function ConnectéInternet() As Boolean
ConnectéInternet = IIf(InternetGetConnectedState(0&, 0&) = 1, True, False)
End Function

Salutations