Fonction Environ VBA d'Excel

VBA Environ, où Environ signifie Environnement, est utilisé pour obtenir toutes les informations présentes dans le système d'exploitation. La fonction Excel VBA Environ renvoie la valeur telle que le chemin, l'emplacement, le nom, l'extension disponible dans le système. En dehors de cet environnement (système d'exploitation) contient également les informations sur le nom d'utilisateur, l'autorisation, le nom du dossier, etc.

VBA Environ considère uniquement l'expression comme une entrée. Où cette expression peut être n'importe quoi. Vous trouverez ci-dessous la syntaxe d'Environ.

Comment utiliser la fonction Environ dans Excel VBA?

Voici les différents exemples d'utilisation de la fonction Environ dans Excel VBA.

Vous pouvez télécharger ce modèle Excel Excel VBA ici - Modèle Excel Excel VBA

VBA Environ - Exemple # 1

Il existe différentes façons d'obtenir des informations sur le système d'exploitation via VBA Environ. Nous en verrons un dans cet exemple. Vous trouverez ci-dessous la liste des utilisateurs autorisés possibles de mon système, qui peuvent être VRAIS ou FAUX. Nous avons mentionné ces noms dans la feuille Sheet2.

Suivez les étapes ci-dessous pour utiliser la fonction Environ dans VBA:

Étape 1: Maintenant, avec l'aide de VBA Environ, nous trouverons lequel d'entre eux est le nom d'utilisateur autorisé correct du système d'exploitation actuel. Sheet1 est l'endroit où nous trouverons le nom d'utilisateur correct du système dans la cellule C3.

Étape 2: sous l'en-tête « Autorisé? ”Nous verrons si le nom d'utilisateur est autorisé ou non avec la fonction If et CountIf comme indiqué ci-dessous. Si le nom d'utilisateur est valide et autorisé, nous obtiendrons OUI, s'il est valide mais non autorisé, nous obtiendrons Non. Pour un nom d'utilisateur non autorisé et non valide, nous obtiendrons toujours Non.

Étape 3: Maintenant, dans la feuille de calcul Excel, créez un bouton de commande disponible dans l'onglet Développeur sous le contrôle Active X du menu Insertion, comme indiqué ci-dessous.

Étape 4: Créez maintenant un bouton de commande n'importe où dans la feuille. Nous pouvons également choisir n'importe quelle forme sur le bouton de commande.

Étape 5: Faites un clic droit sur le bouton créé et accédez à l'option Propriétés .

Étape 6: Sous cela, nous pouvons changer le nom par défaut en n'importe quoi. Ici, nous avons choisi Run Environ comme indiqué ci-dessous.

Étape 7: Maintenant, faites un clic droit sur le même bouton et sélectionnez Afficher le code pour aller dans la fenêtre VBA.

Étape 7: En cela, nous obtiendrons la sous-procédure pré-construite du bouton de commande.

Code:

 Sub Sub CommandButton2_Click () End Sub

Étape 8: Sélectionnez la feuille à laquelle nous voulons appliquer la fonction Environ.

Code:

 Sub Sub CommandButton2_Click () Sheets ("Sheet1") End Sub

Étape 9: Sélectionnez ensuite les cellules de la plage où nous voulons voir la sortie.

Code:

 Private Sub CommandButton2_Click () Sheets ("Sheet1"). Range ("C3") = End Sub

Étape 10: Utilisez maintenant la fonction Environ avec le champ que nous voulons obtenir. Ici, nous voulons voir USERNAME.

Code:

 Sub Sub CommandButton2_Click () Sheets ("Sheet1"). Range ("C3") = Environ ("USERNAME") End Sub

Étape 11: Maintenant, ouvrez une boucle IF-ELSE où écrivez la condition si la cellule de plage E3 est OUI, puis donnez-moi le message en tant qu'utilisateur autorisé.

Code:

 Private Sub CommandButton2_Click () Sheets ("Sheet1"). Range ("C3") = Environ ("USERNAME") If Sheets ("Sheet1"). Range ("E3") = "Yes" Then MsgBox "Authorized User!" End Sub

Étape 12: Dans le cas contraire, donnez-moi le message en tant qu'utilisateur non autorisé, comme indiqué ci-dessous.

Code:

 Private Sub CommandButton2_Click () Sheets ("Sheet1"). Range ("C3") = Environ ("USERNAME") If Sheets ("Sheet1"). Range ("E3") = "Yes" Then MsgBox "Authorized User!" Sinon MsgBox "Utilisateur non autorisé" End If End Sub

Étape 13: Maintenant, nous allons compiler notre code étape par étape en appuyant sur la touche de fonction F8 pour voir s'il y a une erreur ou non. Si tout va bien, quittez la fenêtre VBA et désélectionnez le mode Conception dans l'onglet Développeur, comme illustré ci-dessous.

Étape 14: Maintenant, nous allons exécuter notre macro en cliquant sur le bouton de commande nommé "Run Environ". Nous verrons, en C3, le nom d'utilisateur autorisé est imprimé en tant que Game2, puis le même est confirmé deux fois. Une fois par la boîte de message et autre à la cellule E3.

Cela signifie que le nom d'utilisateur mentionné dans Sheet2 comme Game2 est valide et autorisé à la fois.

VBA Environ - Exemple # 2

Il existe un autre moyen d'obtenir les informations complètes sur le système d'exploitation dont nous disposons. Cela fonctionne de la même manière que nous l'avons vu dans l'exemple-1. Pour cela, suivez les étapes ci-dessous:

Étape 1: ouvrez un module à partir de l'onglet de menu Insertion.

Étape 2: Maintenant, sous Option Explicit, nous allons définir les fonctions que nous voulons voir.

Code:

 Option Fonction explicite CompName () End Function

Étape 3: Supposons que si vous voulez voir le nom de l'ordinateur, utilisez n'importe quel mot qui définit l'ordinateur. Ici, nous avons choisi CompName et utilisons la fonction Environ avec « Computer Name ».

Code:

 Option Fonction explicite CompName () CompName = Environ ("ComputerName") End Function

Étape 4: Ouvrons une autre fonction par laquelle nous verrons le chemin du fichier temporaire comme indiqué ci-dessous.

Code:

 Option Fonction explicite CompName () CompName = Environ ("ComputerName") Fonction de fin Fonction Temp () Fonction de fin

Étape 5: Maintenant, utilisez à nouveau n'importe quel mot qui définit le chemin du fichier Temp, comme TempDir et insérez la fonction Environ avec TEMP .

Code:

 Option Fonction explicite CompName () CompName = Environ ("ComputerName") Fonction de fin Fonction Temp () TempDir = Environ ("Temp") Fonction de fin

Étape 6: Après cela, ouvrez la sous-procédure dans laquelle nous utiliserons les deux fonctions que nous avons définies ci-dessus pour voir leurs détails.

Code:

 Option Fonction explicite CompName () CompName = Environ ("ComputerName") Fonction de fin Fonction Temp () TempDir = Environ ("Temp") Fonction de fin Sub Enviro () End Sub

Étape 7: Définissez une variable comme Long dans laquelle nous verrons les détails.

Code:

 Option Fonction explicite CompName () CompName = Environ ("ComputerName") Fonction de fin Fonction Temp () TempDir = Environ ("Temp") Fonction de fin Sub Enviro () Dim A As Long End Sub

Étape 8: Ouvrez une boucle For-Next et donnez la longueur à la variable A combien de temps sera la limite de caractères. Ici, nous l'avons fixé à 50.

Code:

 Option Fonction explicite CompName () CompName = Environ ("ComputerName") Fonction de fin Fonction Temp () TempDir = Environ ("Temp") Fonction de fin Sub Enviro () Dim A aussi long pour A = 1 à 50 End Sub

Étape 9: Utilisez maintenant Debug Print pour la variable A et avec la fonction Environ comme indiqué ci-dessous.

Code:

 Option Fonction explicite CompName () CompName = Environ ("ComputerName") Fonction de fin Fonction Temp () TempDir = Environ ("Temp") Fonction de fin Sub Enviro () Dim A Aussi long pour A = 1 à 50 Debug.Print Environ (A ) Next End Sub

Étape 10: compilez chaque étape du code et ouvrez une fenêtre immédiate à partir de l'onglet du menu Affichage.

Étape 11: Exécutez maintenant le code en cliquant sur le bouton Lecture situé sous la barre de menus.

Étape 12: Nous verrons, dans la fenêtre immédiate, les détails complets du système d'exploitation liés aux fonctions que nous avons déclarées sont récupérées.

Avantages de la fonction Environ VBA d'Excel

  • Cela semble complexe, mais il est facile à mettre en œuvre.
  • Il donne les détails complets de l'ordinateur et du système d'exploitation.
  • Nous pouvons énumérer tout détail spécifique ainsi que selon nos exigences.
  • Nous pouvons également voir qui sont les utilisateurs autorisés à utiliser et à modifier le système.

Choses dont il faut se rappeler

  • L'environnement VBA n'est pas limité au processus illustré dans les exemples ci-dessus. Nous pouvons obtenir beaucoup plus de détails sur le système d'exploitation tels que n'importe quel chemin, emplacement, dossier ou fichier, même n'importe quelle taille de fichier avec l'aide de VBA Environ.
  • Si une valeur que nous entrons n'est pas une table de chaînes d'environnement, nous finirons par obtenir une chaîne de longueur nulle.
  • Une fois le codage terminé, enregistrez le fichier au format macro enable excel pour éviter de perdre le code.

Articles recommandés

Ceci est un guide pour VBA Environ. Ici, nous discutons comment utiliser la fonction Environ dans Excel VBA avec des exemples pratiques et un modèle Excel téléchargeable. Vous pouvez également consulter nos autres articles suggérés -

  1. Instructions IF VBA | Modèles Excel
  2. Comment utiliser la fonction de tri Excel VBA?
  3. Boucle VBA While (Exemples avec modèle Excel)
  4. Compteur VBA (exemples)

Catégorie:

VBA