'----- Dans la partie déclaration de la feuille Option Explicit Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal lpszConnectionName As String, ByVal dwNameLen As Integer, ByVal dwReserved As Long) As Long '----- Dans Form_Load Private Sub Form_Load() '----- Déclaration des variables locales Dim Msg As String Dim Ret As Long '----- Initialisation des variables Msg = String$(255, vbNullChar) '----- Appel de l'API et affichage de la réponse Ret = InternetGetConnectedStateEx(Ret, Msg, 254, 0) MsgBox IIf(Ret = 1, "Vous êtes connectés à Internet en utilisant " & Msg, "Vous n'êtes pas connectés"), vbInformation End Sub