Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionFunction VérifierConnexionInternet(PageHTML$) 'Il faut ajouter l'OCX [MSINET.OCX] : 'Microsoft Internet Transfert Control 6.0 (SP6)' ' et lui laisser son nom (Inet1). Dans notre cas il est placé sur fMain On Error GoTo ErrVerifConnexion Screen.MousePointer = 11 'Dim PageHTML$ Dim InfoUrl$ 'Je tente d'ouvrir le site passé en variable (PageHTML$) ' If VérifierConnexionInternet("www.lesitequejecherche.com/index.html") then ... ' ou : if VérifierConnexionInternet("") then ... 'Ou je tente d'ouvrir un site internet existant (Celui-là devrait durer un peu...). If PageHTML$ = "" Then PageHTML$ = "[http://www.microsoft.com/index.htm]" End If 'Vérification de la connexion With fMain .Inet1.Cancel DoEvents .Inet1.AccessType = icUseDefault DoEvents InfoUrl = .Inet1.OpenURL(PageHTML$) DoEvents If InfoUrl = "" Or IsNull(InfoUrl) Then 'InfoURL retourne le contenu de PageHTML$ 'Pas de retour, donc pas de connexion Internet VérifierConnexionInternet = False Else 'Il y a un retour, donc il y a une connexion Internet VérifierConnexionInternet = True End If End With Screen.MousePointer = 0 Exit Function ErrVerifConnexion: Screen.MousePointer = 0 Select Case Err Case Else MsgBox "Erreur " & Err & " " & Error & " dans la fonction 'VérifierConnexionInternet'.", vbCritical + vbOKOnly, "Erreur !" VérifierConnexionInternet = False End Select End Function