Public Declare Function ConnexionInternetDsponible Lib "wininet.dll" Alias "InternetGetConnectedStateExA" (ByRef lpdwFlags As Long, ByVal lpszConnectionName As String, ByVal dwNameLen As Long, ByVal dwReserved As Long) As Long
Public Function InternetDisponible()
' Si internet présent alors InternetDisponible=true sinon false
' par Excel-Malin.com ( https://excel-malin.com )
On Error GoTo ErreurFonction
'la fonction principale
InternetDisponible = CBool(ConnexionInternetDsponible(0, vbNullString, 512, 0&))
Exit Function
ErreurFonction:
InternetDisponible = CVErr(xlErrNA)
End Function