tester connexion web

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
    tableau
'sub qui créer un tableau à partir d'internet
End Select

End Sub