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
excel-vba-test-connexion-internet - internet

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 81 nouvelles fonctions).