Test de connexion internet

bonjour le forum,

je voudrai tester si je suis connescté à internet en vba.

C'est pour mettre dans une condition if

merci

-- il y a moins d’une minute --

j'ai trouvé la solution sur le net

voici mon code tel quel:

Private Declare Function IsNetworkAlive Lib "SENSAPI.DLL" _
    (ByRef lpdwFlags As Long) As Long
Private Sub Worksheet_Activate()

Select Case IsNetworkAlive(0)
    Case 0:
    Range("G17").Value = "Graphe non actualisé..."
    Exit Sub
    Case Else:
    Range("G17").Value = ""
    Feuil5.DrawingObjects.Delete
    shape
'shape créer à partir d'un graphe sur internet
End Select

End Sub

salut

Bonjour exceldu13,

Un peu tard mais voici ce que je viens de trouver sur la faq VBA :

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

Public Function ConnexionInternetActive() As Boolean

ConnexionInternetActive = InternetGetConnectedState(0&, 0&)

End Function

La fonction ConnexionInternetActive() ci-dessus renvoie Vrai si l'on est connecté à internet.