Fonction VBA : internet
La fonction VBA internet renvoie True si connecté à Internet ou False si non connecté (ou bloqué par un logiciel de sécurité).
Utilisation :
internet()
Exemple d'utilisation
Il suffit d'appeler cette fonction seule (sans argument) internet()
pour vérifier la connexion :
Sub exemple()
If internet() Then 'Si connecté
MsgBox "Je suis connecté à Internet ;-)"
Else 'Si non connecté
MsgBox "Argh ..."
End If
End Sub

Comment ça marche ?
Pour vérifier la connexion, la fonction internet va tenter d'appeler une page Web minimaliste du site Excel-Pratique (contenant seulement le mot "ok") et récupérer son contenu.
Si la fonction parvient à récupérer le mot "ok", cela signifie qu'une connexion à Internet est disponible (et non bloquée).
Certains logiciels peuvent parfois bloquer l'accès à Internet aux documents Office (ou à leurs macros) pour des raisons de sécurité. Dans ce cas la fonction internet renverra également False puisque le test ne peut pas aboutir.
Remarque : cette fonction nécessite l'installation du pack de fonctions XLP (un add-in gratuit pour Excel qui ajoute 92 nouvelles fonctions).