Description de l'environnement
Renvoie la valeur d'une variable d'environnement du système d'exploitation.
Exemples d'environnement simples
123 | Sous Environ_Example()MsgBox Environ("Nom d'utilisateur")Fin du sous-marin |
Cela renverra le nom d'utilisateur actuel connecté.
123 | Sous Environ_Example()MsgBox Environ("NomOrdinateur")Fin du sous-marin |
Cela renverra le nom de l'ordinateur.
Syntaxe Environ
Dans l'éditeur VBA, vous pouvez taper « Environ ( » pour voir la syntaxe de la fonction Environ :
La fonction Environ contient un argument :
Expression: Nom d'une variable d'environnement (chaîne) ou Expression numérique (1 à 255) correspondant à l'ordre numérique de la chaîne d'environnement dans la table des chaînes d'environnement.
Exemples de fonction Excel VBA Environ
1 | MsgBox Environ(1) |
Résultat : « ALLUSERSPROFILE=C:\ProgramData »
1 | MsgBox Environ(0) |
Résultat : Erreur d'exécution « 5 »
1 | MsgBox Environ(256) |
Résultat : Erreur d'exécution « 5 »
1 | MsgBox Environ("AllUsersProfile") |
Résultat : "C:\ProgramData"
Pour voir toutes les variables d'environnement définies sur votre ordinateur, vous pouvez utiliser le code suivant.
123456789101112131415161718192021222324 | Sous-listeAllEnvironVariables()Dim strEnviron As StringDim VarSplit en tant que varianteDim i As Integer, nRow As IntegernLigne = 1Plage("A1").Valeur = "Index"Plage("B1").Valeur = "Nom de la variable d'environnement"Range ("C1").Value = "Valeur de la variable d'environnement"Plage("A:C").Columns.AutoFitRange ("A1:C1").Font.Bold = TruenLigne = 2Pour i = 1 à 255strEnviron = Environ(i)Si strEnviron "" AlorsVarSplit = Split(strEnviron, "=")Plage("A" & nRow).Valeur = iPlage("B" & nRow).Valeur = VarSplit(0)Plage("C" & nRow).Valeur = VarSplit(1)nLigne = nLigne + 1Fin siProchainFin du sous-marin |
Ensuite, vous pouvez voir toutes les variables d'environnement comme suit.
Le résultat peut varier selon le système. Parce qu'il existe des variables d'environnement personnalisées en plus des variables d'environnement par défaut.
Pour toute chaîne qui n'existe pas dans la liste des variables d'environnement, elle renverra une chaîne vide ("").
1 | MsgBox Environ("MonEnviron") |
Résultat: ""