Fonction Environ ()

[PEPE]

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]

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]

Re : Fonction Environ ()

Bonjour,

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

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]

Re : Fonction Environ ()

Bonjour Pierrot

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

Bonne journée

Jean-Paul