nom du user

[jeffe]

Bonjour à tous et toutes,
une petite question, en VBA, je voudrais récuperer uniquement le prenom de l'utilisateur d'un PC.actuellement sous la forme : prenom.nom
j'y arrive avec une formule, mais pas en VBA???
msgbox application.username, je souhaiterais récuper uniquement ce qui est à gauche du point.
mercide votre aide

 

[pierrejean]

Re : nom du user

Bonjour jeffe

Teste quelque chose comme

 msgbox(split(application.username,".")(0))

 

[jeffe]

Re : nom du user

c'est super pierrejean, merci et bonne journée

 

[funcky222]

Re : nom du user

Merci pour l'astuce, mais chez moi ce sont les identifiant de l'utilisateur qui ressort quand je demande l'username... Du coup, j'ai du réassocier l'id avec le nom et hop, nickel !

 

[kiki29]

Re : nom du user

Salut, Application.UserName renvoie le contenu de : Licence d'utilisation accordée à
qui est saisit lors de l'installation d'Office
Pour avoir le nom d'utilisateur ( nom de login de la session Windows ) Environ("USERNAME")

 

[Staple1600]

Re : nom du user

Bonsoir


Faut bien s'occuper pendant que le gratin se réchauffe dans le four

Sub PourLePlaisir() ' hommage à Herbert
'par souci de fainéantise
ActiveWorkbook.Names.Add Name:="NOMWINDOWS", RefersToR1C1:= _
        "=MID(GET.WORKSPACE(23),SEARCH(""Users\"",GET.WORKSPACE(23))+6,FIND(""\"",GET.WORKSPACE(23),8)-2)"
[A1].Formula = "=NOMWINDOWS"
End Sub

Ensuite aller voir dans Insertion/Noms/Définir

PS: Fonctionne en ma maison, sur ma machine.
Sinon adapter selon ce que renvoie LIRE.ENV(23)

 

[jeffe]

Re : nom du user

Wouha? impressionnant, je vais essayer de comprendre, j'ai une erreure mais je vais chercher linfo de LIRE.ENV(23)
merci