XL 2019 Afficher Nom et Prenom UserName

[Saumon80]

Bonjour ,

Je souhaiterais savoir si il est possible d'afficher le nom et prenom de l'utilisateur avec une code VBA .

Pour le moment j'utilise User = Application.UserName mais cela afficher dans ce format " John, Dupont ( Ingenieur AA1)" car le nom d utilisateur est reference ainsi.
Est-il possible de pouvoir juste apres la commande application.username specifier de ne retourner que la partie avant les parentheses et de remplacer la virgule entre le nom et prenom par un espace?

Ou il y a til un moyen plus simple d'afficher le nom et prenom? (Pas l'username car il n'est pas representatif).

Merci!

 

[sylvanu]

Bonjour Saumon,
Essayez :

User = Replace(Split(Application.UserName, "(")(0), ",", " ")

 

[Saumon80]

Bonjour Sylvanu,

Super cela marche! Merci beaucoup!

Bonne journee a vous et merci encore.

 

[Phil69970]

Bonjour @Saumon80

Edit bonjour Sylvain pb de rafraichissement comme d'hab....

remplacer la virgule entre le nom et prenom par un espace?

Ce code devrait le faire :
Si tes données sont en A2:A10 (à adapter) ou dans une cellule unique

Sub MaVirgule()
Dim Zone As Range
Set Zone = Range("A2:A10") 'A adapter
For Each c In Zone
    c.Value = Replace(c.Value, ",", "")
Next c
End Sub
'si uniquement une cellule
Sub MaVirgule1()
Range("A2") = Replace(Range("A2"), ",", "")
End Sub

Et pour enlever tous ce qu'il y a entre parenthèse cette formule devrait le faire :
Si tu as en A2 ==> John, Dupont ( Ingenieur AA1)
En A3 tu mets cette formule

=SIERREUR(SUPPRESPACE(STXT(A2;1;TROUVE("(";A2)-1))&STXT(A2;TROUVE(")";A2)+1;NBCAR(A2));A2)

Ou il y a til un moyen plus simple d'afficher le nom et prenom? (Pas l'username car il n'est pas representatif).

Si tu me prête ton PC comment excel peut le savoir !
A part l'username ou si tu as un login de connexion qui t’identifie d'une manière certaine (sauf usurpation de code) il n'y a pas moyen de savoir qui est derrière le clavier ....

*Merci de ton retour

@Phil69970

 

[Saumon80]

Bonjour Phil69970,

Merci beaucoup pour ton aide! J'ai pu utiliser le code de Sylvanu mais le tien aurait egalement marche aussi bien . Merci encore!