Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

récupérer une variable d'environnemen (par set)

2 réponses
Avatar
Jose SISA
Bonjour :-)
j'ai voulu adapter le code ci-apr=E8s
pour r=E9cupeter une des variables d'environnement de mon systeme, mais
je n'y arrive pas.
est ce que vous pouvez m'aider ?

en fait, j'aimerai pouvoir =E9crire [c1] =3D mavariable("USERNAME") par
exemple.

merci de votre aide.

Jos=E9




' D=E9clare les variables.
Dim EnvString, Indx, Msg, PathLen
Indx =3D 1 ' Initialise l'index =E0 1.
Do
' Extrait la variable d'environnement.
EnvString =3D Environ(Indx)
' V=E9rifie l'entr=E9e PATH.
If Left(EnvString, 5) =3D "PATH=3D" Then
' Extrait la longueur.
PathLen =3D Len(Environ("PATH"))
Msg =3D "Entr=E9e PATH =3D " & Indx & _
" et longueur =3D " & PathLen
Exit Do
Else
' Pas d'entr=E9e PATH, donc incr=E9mente.
Indx =3D Indx + 1

End If
Loop Until EnvString =3D ""
If PathLen > 0 Then
MsgBox Msg ' Affiche le message.
Else
MsgBox " Il n'existe pas de variable " & _
"d'environnement PATH."
End If

2 réponses

Avatar
DanielCo
Bonjour,

[C1] = Environ("UserName")

Cordialement.
Daniel


Bonjour :-)
j'ai voulu adapter le code ci-après
pour récupeter une des variables d'environnement de mon systeme, mais
je n'y arrive pas.
est ce que vous pouvez m'aider ?

en fait, j'aimerai pouvoir écrire [c1] = mavariable("USERNAME") par
exemple.

merci de votre aide.

José




' Déclare les variables.
Dim EnvString, Indx, Msg, PathLen
Indx = 1 ' Initialise l'index à 1.
Do
' Extrait la variable d'environnement.
EnvString = Environ(Indx)
' Vérifie l'entrée PATH.
If Left(EnvString, 5) = "PATH=" Then
' Extrait la longueur.
PathLen = Len(Environ("PATH"))
Msg = "Entrée PATH = " & Indx & _
" et longueur = " & PathLen
Exit Do
Else
' Pas d'entrée PATH, donc incrémente.
Indx = Indx + 1

End If
Loop Until EnvString = ""
If PathLen > 0 Then
MsgBox Msg ' Affiche le message.
Else
MsgBox " Il n'existe pas de variable " & _
"d'environnement PATH."
End If
Avatar
Jose SISA
Gloups,
merci beaucoup :-)
José
On 7 nov, 10:54, DanielCo wrote:
Bonjour,

[C1] = Environ("UserName")

Cordialement.
Daniel







> Bonjour :-)
> j'ai voulu adapter le code ci-après
> pour récupeter une des variables d'environnement de mon systeme, mais
> je n'y arrive pas.
> est ce que vous pouvez m'aider ?

> en fait, j'aimerai pouvoir écrire [c1] = mavariable("USERNAME") par
> exemple.

> merci de votre aide.

> José

> ' Déclare les variables.
> Dim EnvString, Indx, Msg, PathLen
> Indx = 1 ' Initialise l'index à 1.
> Do
>  ' Extrait la variable d'environnement.
>  EnvString = Environ(Indx)
>  ' Vérifie l'entrée PATH.
>  If Left(EnvString, 5) = "PATH=" Then
>   ' Extrait la longueur.
>   PathLen = Len(Environ("PATH"))
>   Msg = "Entrée PATH = " & Indx & _
>    " et longueur = " & PathLen
>   Exit Do
>  Else
>   ' Pas d'entrée PATH, donc incrémente.
>   Indx = Indx + 1

> End If
> Loop Until EnvString = ""
> If PathLen > 0 Then
>  MsgBox Msg ' Affiche le message.
> Else
>  MsgBox " Il n'existe pas de variable " & _
>   "d'environnement PATH."
> End If