Fonction Environ ()

PEPE · 30 Avril 2011

Bonjour le forum,

J'ai découvert récemment la fonction Environ (), elle permet de récupérer une variable d’environnement. Comme par exemple Username :

Sub env()
Dim Nom As String

Nom = Environ("USERNAME")

MsgBox Nom

End Sub

Voici une liste des arguments de la fonction Environ ()

ALLUSERSPROFILE
APPDATA
AVENGINE
CLIENTNAME
CommonProgramFiles
COMPUTERNAME
ComSpec
FP_NO_HOST_CHECK
HOMEDRIVE
HOMEPATH
INCLUDE
INOCULAN
LIB
LOGONSERVER
NUMBER_OF_PROCESSORS
OS
Path
PATHEXT
PROCESSOR_ARCHITECTURE
PROCESSOR_IDENTIFIER
PROCESSOR_LEVEL
PROCESSOR_REVISION
ProgramFiles
SESSIONNAME
SystemDrive
SystemRoot
TEMP
TMP
USERDOMAIN
USERNAME
USERPROFILE
VS71COMNTOOLS
WecVersionForRosebud.FF0
windir

Je sais que les excellents d'excel connaissent déjà cette fonction mais pour les débutants, elle peut être très pratique.

Bonne journée

PEPE🙂

VIARD · 30 Avril 2011

Re : Fonction Environ ()

Bonjour PEPE

Merci pour ta fonction, je ne connaissais pas.

j'ai testé sur excel2000 c'est ok

je m'en servirai.

salutation

Jean-Paul

Pierrot93 · 30 Avril 2011

Re : Fonction Environ ()

Bonjour,

pour avoir la liste des variables d'environnement et leur valeur associée...

Code:

Sub VariablesEnvironnement()
Dim i As Byte
i = 1
Do
    Cells(i, 1) = Split(Environ(i), "=")(0)
    Cells(i, 2) = Split(Environ(i), "=")(1)
    i = i + 1
Loop While Len(Environ(i)) > 0
End Sub

bonne journée
@+

VIARD · 30 Avril 2011

Re : Fonction Environ ()

Bonjour Pierrot

Je mets la commande sous le coude, c'est nickel

Bonne journée

Jean-Paul

Fonction Environ ()

PEPE

Guest

VIARD

XLDnaute Impliqué

Pierrot93

XLDnaute Barbatruc

VIARD

XLDnaute Impliqué

Fonction Environ ()

PEPE

Guest

VIARD

XLDnaute Impliqué

Pierrot93

XLDnaute Barbatruc

VIARD

XLDnaute Impliqué

Privacy & Transparency

Privacy & Transparency