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

Le
Jose SISA
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
DanielCo
Le #24942342
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
Jose SISA
Le #24942872
Gloups,
merci beaucoup :-)
José
On 7 nov, 10:54, 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
Publicité
Poster une réponse
Anonyme