Remarque
La fonction, la méthode, l’objet ou la propriété décrits dans cette rubrique est désactivé si le service d’expression Microsoft Jet s’exécute en mode bac à sable, ce qui empêche l’évaluation d’expressions potentiellement dangereuses. Pour plus d’informations sur le mode bac à sable, recherchez « mode bac à sable » dans l’aide.
Renvoie la chaîne associée à une variable d’environnement de système d’exploitation. Non disponible sur Macintosh
Syntaxe
Environ( { envstring | number } )
La syntaxe de la fonction Environ contient les arguments suivants :
| Argument | Description |
|---|---|
| envstring | Facultatif. Expression de chaîne contenant le nom d’une variable d’environnement. |
| nombre | Facultatif. Expression numérique correspondant à l’ordre numérique de la chaîne d’environnement dans la table environment-string. L’argument numérique peut être n’importe quelle expression numérique, mais il est arrondi à un nombre entier avant d’être évalué. |
Remarques
Si envstring est introuvable dans la table environment-string, une chaîne nulle (« ») est renvoyée. Sinon, Environ retourne le texte affecté à la chaîne envstring spécifiée ; c’est-à-dire le texte qui suit le signe égal (=) dans la table environment-string de cette variable d’environnement.
Si vous spécifiez number, la chaîne occupant cette position numérique dans la table environment-string est renvoyée. Dans ce cas, Environ renvoie tout le texte, y compris envstring. S’il n’y a pas de chaîne d’environnement à la position spécifiée, Environ renvoie une chaîne de longueur nulle.
Exemple
Remarque
Les exemples suivants illustrent l’utilisation de cette fonction dans un module Visual Basic pour Applications (VBA). Pour plus d’informations sur l’utilisation de VBA, sélectionnez Référence développeur dans la liste déroulante en regard de Rechercher , puis entrez un ou plusieurs termes dans la zone de recherche.
Cet exemple utilise la fonction Environ pour fournir le numéro d’entrée et la longueur de l’instruction PATH de la table environment-string. Non disponible sur Macintosh.
Dim EnvString, Indx, Msg, PathLen ' Declare variables.
Indx = 1 ' Initialize index to 1.
Do
' Get environment variable.
EnvString = Environ(Indx)
' Check PATH entry.
If Left(EnvString, 5) = "PATH=" Then
' Get length.
PathLen = Len(Environ("PATH"))
Msg = "PATH entry = " & Indx & " and length = " _
& PathLen
Exit Do
Else
' Not PATH entry, so increment.
Indx = Indx + 1
End If
Loop Until EnvString = ""
If PathLen > 0 Then
' Display message.
MsgBox Msg
Else
MsgBox "No PATH environment variable exists."
End If