VBA Excel - Vérifier la disponibilité internet

Salut,

Je suis sur VBA Excel et je souhaite une commande qui indique si OUI ou NON, internet est disponible au moment du test... (ou un site précis...)

Je n'arrive pas à trouver une aide sur les différents forum... surtout pour Visual Basic pour Excel...

Est-ce que qualqu'un pourrait me venir en aide ?

Merci.

bonjour

je ne suis pas sur d'avoir bien compris mais cet exemple renvoie 1 si tu es connecté , et 0 si tu n'es pas connecté

Code:

---

1 2 3 4 5 6

Declare Function InternetGetConnectedState Lib "wininet.dll" _ (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long   Sub verfication_Connection() MsgBox InternetGetConnectedState(0&, 0&) End Sub

---

bonne journée
michel

Merci ! C'est exactement ce qu'il me fallait !