Recherche
Les mémos
-
Tables
- · Annuler la suppression
- · Attacher feuilles Excel
- · Cacher une table
- · Concaténer une colonne
- · Créer une table
- · Dernière modification
- · Index composé
- · Limiter les enregistrements
- · Liste des champs
- · Modifier valeur de champ
- · Où est la table
- · Peupler une table de Logs
- · Renuméroter un champ
- · Réattacher les liens
- · Réattacher les liens locaux
- · Scinder un champ
- · Supprimer les tables liées
- · Trouver la différence
-
Formulaires
- · Afficher les derniers
- · Ajout à liste modifiable
- · Ajouter enregistrement
- · Barre de progression
- · Click ou double-click
- · Confirmer l'enregistrement
- · Copier - Coller
- · Défilement de la roulette
- · Exporter un graphique
- · Filtres personnalisés
- · Identifiants d'un Form continu
- · Importer les formulaires
- · Langue utilisateur
- · Limiter la saisie
- · Mémoriser une valeur
- · No enregistrement
- · Ouvert en normal
- · Position des formulaires
- · Recopier dernière valeur
- · Scroll automatique
- · Switch Modal
- · Tri manuel dans form
- · Tri personnalisé
- · Verrouillage de formulaire
- · Vérifier les saisies
-
Automation
-
Administration
- · Chemin de la base
- · Déconnecter utilisateur
- · Désactiver le Shift
- · Désactiver le Shift(2)
- · Liste des références
- · Liste des utilisateurs
- · Lister les applications
- · Mode exclusif
- · Nom d'utilisateur
- · Nom de l'ordinateur
- · Paramètres régionaux
- · Propriétés de la base
- · Sauvegarde journalière
- · Sauvegarde mensuelle
- · Shell and Wait
- · Version de Windows
-
Envoyer un mail
-
Outlook
- · Ajouter des contacts
- · Déplacer les messages
- · Enregistrer pièces jointes
- · Est ouvert ?
- · Exporter les contacts
- · Exporter les rendez-vous
- · Importer les messages
- · Integrer un état
- · Lire les contacts
- · Lire les rendez-vous
- · Lister les dossiers
- · Lister les tâches
- · SendMail (MAPI)
- · SendMail Automation
-
Dates - Heures
-
Fichiers
- · Compter les dossiers
- · Créer un dossier
- · Générer fichier TXT
- · Importer fichier TXT
- · Le dossier existe ?
- · Le fichier existe ?
- · Lister les fichiers
- · Lister les fichiers (2007)
- · Lister les sous-dossiers
- · Rechercher un répertoire
- · Répertoire dans table
- · Supprimer ReadOnly
- · Sélection de dossier
- · Sélection de dossier (API)
- · Sélection de fichiers
- · Sélection fichier (MOL)
-
Références
Je débute...
-
La normalisation
-
VBA
Visites
1277121 visiteurs
9 visiteurs en ligne
Nous contacter
Contact
Tester la connexion à l'internet
Tester la connexion à l'internet
Il existe plusieurs méthodes pour tester une connexion. Des fonctions comme LANconnection (Local Area Network) ou WANConnection (Wide Area Network) , ou plus ancienne, facilite cela; mais on chacune ses avantages et ses inconvénients.
Il existe pourtant un méthode qui a permet ce test de manière satisfaisante... le fameux PING !
On ouvre une invite de commande par la combinaison de touches [Windows] + R et on y tape CMD, ce qui ouvre la fenêtre. Là, un simple "PING <adresse IP> vous affichera le temps de réponse de l'adresse indiquée.
Il est ainsi possible de tester une adresse IP sur internet, l'adresse d'un serveur qui répond rapidement de préférence.
Oui, mais ACCESS dans tout cela ?
Et bien, on peut appeler cette commande PING par un Shell Access. La réponse du PING habituellement affichée dans la fenêtre sera détournée dans un fichier.
Pour rendre cela transparent, il suffit d'utiliser la fonction ci-dessous. On peut transmettre son IP favorite (de son hébergeur ou fournisseur d'accès), mais à défaut une adresse de serveur de Google sera utilisée.
Avant d'envoyer un émail ou plus généralement accéder à l'internet, un simple :
If TestIP Then '/ accès internet '/ ici le code utile Else MsgBox "Pas de connexion à l'internet !" End If
La fonction :
Function TestIP(Optional sIP As String = "8.8.8.8") As Boolean '/ utilise la fonction fShellRun Dim strCommand As String Dim strPing As String ' Construction de la chaîne de commande strCommand = "%ComSpec% /C %SystemRoot%\system32\ping.exe -n 1 -w 500 " _ & sIP & " | " & "%SystemRoot%\system32\find.exe /i " _ & Chr(34) & "TTL=" & Chr(34) strPing = fShellRun(strCommand) If strPing = "" Then TestIP = False Else TestIP = True End If End Function
et la sous-fonction :
Function fShellRun(sCommandStringToExecute) As String ' Cette fonction accepte une commande DOS sous forme de chaîne de caractères ' Elle exécute la commande dans un shell et écrit le résultat dans un fichier ' Ce fichier est ensuite lu et est retourné comme valeur par la fonction. Dim oShellObject, oFileSystemObject, sShellRndTmpFile Dim oShellOutputFileToRead, iErr ' Cochez la référence : Microsoft Scripting Runtime Set oShellObject = CreateObject("Wscript.Shell") Set oFileSystemObject = CreateObject("Scripting.FileSystemObject") sShellRndTmpFile = oShellObject.ExpandEnvironmentStrings("%temp%") & oFileSystemObject.GetTempName On Error Resume Next ' Execute la commande et effectue la redirection dans un fichier oShellObject.Run sCommandStringToExecute & " > " & sShellRndTmpFile, 0, True iErr = Err.Number On Error GoTo 0 If iErr <> 0 Then fShellRun = "" Exit Function End If On Error GoTo err_skip ' On transmet à la fonction le contenu du fichier fShellRun = oFileSystemObject.OpenTextFile(sShellRndTmpFile, 1).ReadAll oFileSystemObject.DeleteFile sShellRndTmpFile, True Exit Function err_skip: fShellRun = "" oFileSystemObject.DeleteFile sShellRndTmpFile, True End Function
Page lue 1650 fois