Récupérer le "user" en VBA

Bonjour,

J'ai créé un petit (enfin, pas si petit que ça...) formulaire en VBA , qui permet de saisir des données destinées à une feuille excel.

Je me suis arrangé pour que les différents champs soient "préremplis" lorsque c'est possible.

Puisque nous sommes plusieurs à utiliser ce "formulaire" sur plusieurs postes (donc plusieurs sessions), je souhaiterais récupérer l'identité du "user" afin de préremplir le champ adéquat.

Mais... Je ne sais pas faire

Possible ? Facile ? Comment ?

Merci !

Le code:

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 

Tu fais ensuite appel a USERNAME

Bonjour,

Avec cette instruction à mettre dans une variable ->

Application.username

A voir si cela correspond à ton formulaire

Amicalement

Impeccable !

Vos deux solutions fonctionnent.

Celle de Dan est plus à ma portée

Je vais tester les deux.

Merci !

RE,

Ok n'oublie pas de cloturer le fil si une des deux solutions te convient.

Amicalement