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
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
[C1] = Environ("UserName")
Cordialement.
Daniel
merci beaucoup :-)
José
On 7 nov, 10:54, DanielCo