Transformer username "prenom.nom" par "Prenom"

[Quincy]

Bonjour à tous,

Dans une macro, je récupère le nom de l'utilisateur par la procédure suivante : Username = Application.Username

J'obtiens bien mon username sous cette forme : prenom.nom mais j'aimerais pour le transformer en Prénom sans devoir passer par des fonctions dans les cellules.

Comment puis-je procéder ? Merci.

 

[sousou]

Re : Transformer username "prenom.nom" par "Prenom"

bonjour

examine cet exemple
Sub deb()
valeur = "didier.sousou"
n = InStr(1, valeur, ".")
prénom = Left(valeur, n - 1)
MsgBox prénom
End Sub

 

[Quincy]

Re : Transformer username "prenom.nom" par "Prenom"

Bonjour sousou

examiné ...et presque adopté. Est-il possible de mettre la première lettre du prénom en majuscule ?

Merci beaucoup en tout cas.
Quincy

 

[Quincy]

Re : Transformer username "prenom.nom" par "Prenom"

prénom = Left(valeur, n - 1)

C'est bon ! --> prénom = Application.WorksheetFunction.Proper(Left(valeur, n - 1))