Microsoft 365 Extraire les initiales de l'auteur avec VBA

[Emile63]

Bonjour à tous,
Je souhaiterais extraire les initiales en 3 lettres (2 premières lettres du Nom de famille, 1 ère lettre du Prénom) du résultat de Author.
ThisWorkbook.BuiltinDocumentProperties("Author")

-Est-ce que quelqu'un peut m'aider à résoudre cette formulation avec VBA, Svpl?
Merci d'avance pour votre aide.

 

[sylvanu]

Bonjour Emile,
Si Author contient Nom Prénom, alors on peut faire :

tablo=Split(Author," ")  ' Séparateur : espace
Initiales=left(tablo(0),2) & left(tablo(1),1)

et si vous voulez tout en majuscules :

Initiales = UCase(Left(tablo(0), 2) & Left(tablo(1), 1))

 

[Emile63]

Merci beaucoup, Sylvanu

PS: J'ai oublié de préciser en majuscules, c'est bien capitalize?

 

[sylvanu]

Non, c'est Ucase. Voir post précédent.

 

[Emile63]

Encore Merci,
je n'étais pas trop concentré, désolé.