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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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
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
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
Gloups,
merci beaucoup :-)
José
On 7 nov, 10:54, DanielCo <dcolardelle...@free.fr> 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
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