Environ, fonction

Remarque : La fonction, la méthode, l’objet ou la propriété décrits dans cette rubrique est désactivée si le service d’expressions de Microsoft Jet s’exécute en mode sandbox, ce qui empêche l’évaluation d’expressions potentiellement non sûres. Pour plus d’informations sur le mode sandbox, recherchez « mode sandbox » 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 | nombre } )

La syntaxe de la fonction Environ est la suivante :

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 chaîne-environnement. L’argument nombre peut être toute expression numérique, mais est arrondi à un nombre entier avant son évaluation.


Remarques

Si l’envstring n’est pas trouvé dans la table de chaîne de l’environnement, une chaîne nulle («  ») est renvoyée. Sinon, Environ renvoie le texte affecté à l’envstring spécifié; autrement dit, le texte qui suit le signe égal (=) dans la table de chaîne d’environnement pour cette variable d’environnement.

Si vous spécifiez unnombre, la chaîne qui occupe cette position numérique dans la table de chaîne d’environnement est renvoyée. Dans ce cas, Environ renvoie tout le texte, y compris l’envstring. Si aucune chaîne d’environnement ne se trouve dans la position spécifiée, Environ renvoie une chaîne de longueur nulle.

Exemple

Remarque : Les exemples qui suivent illustrent l’utilisation de cette fonction dans un module Visual Basic pour Applications (VBA). Pour plus d’informations sur l’travail avec VBA, sélectionnez Référence du développeur dans la liste de listes 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 de chaîne d’environnement. 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

Besoin d’aide ?

Développez vos compétences dans Office
Découvrez des formations
Accédez aux nouvelles fonctionnalités en avant-première
Rejoignez le programme Office Insider

Ces informations vous ont-elles été utiles ?

Nous vous remercions pour vos commentaires.

Merci pour vos commentaires. Il serait vraisemblablement utile pour vous de contacter l’un de nos agents du support Office.

×