Vérifier si la connexion à Internet est établie.

'Example by Vijay Phulwadhawa (vijaycg44@hotmail.com)
Public Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long
Public Function IsConnected() As Boolean
    If InternetGetConnectedState(0&, 0&) = 1 Then
        IsConnected = True
    Else
        IsConnected = False
    End If
End Function

 'Cela permet de vérifier si la connexion à Internet est établie,
  'et de poursuivre ou non une procédure. (Ex: Envoi d'un Mail via VBA)
  'Façon d'éviter attentes inutiles et éventuels plantages ...

Private Declare Function InternetGetConnectedState Lib "wininet" _
  (ByRef dwflags As Long, _
   ByVal dwReserved As Long) As Long

Private Const CONNEXION_ETABLIE As Long = &H40

Private Sub CommandButton1_Click()
   x = GetNetConnectString()
End Sub

Private Function IsNetConnectOnline() As Boolean
   IsNetConnectOnline = InternetGetConnectedState(0&, 0&)
End Function

Private Function GetNetConnectString() As String

Dim CONNEXION As Boolean
Dim dwflags As Long
 
   If InternetGetConnectedState(dwflags, 0&) Then
     
      If dwflags And CONNEXION_ETABLIE Then
      
         CONNEXION = True
         Else
         CONNEXION = False

     End If
      
   End If
   
           If CONNEXION = True Then
           UserForm1.Label1.Caption = " Vous êtes bien connecté à Internet"
           Else
           UserForm1.Label1.Caption = " Vous n'êtes pas connecté à Internet"
           End If
  
End Function