Option Explicit
Sub VariablesEnvironnement()
Dim i As Integer, sEnv As String
Dim Pos As Integer
ActiveWorkbook.Worksheets.Add
i = 1
Do
sEnv = Environ(i)
If Len(sEnv) = 0 Then Exit Do
Pos = InStr(Environ(i), "=" )
Cells(i, 1) = Left(sEnv, Pos - 1)
Cells(i, 2) = Right(sEnv, Len(sEnv) - Pos)
i = i + 1
Loop
End Sub
Sub Tst()
MsgBox Environ("USERNAME" )
End Sub
|