username

Bonjour le Forum, Modus57,

Voici un bout de code qui tepermet de récuperer le nom de l'ordinateur et le nom de l'utilisateur :

'computer name
Private Declare Function GetComputerName Lib 'kernel32' Alias 'GetComputerNameA' (ByVal lpBuffer As String, nSize As Long) As Long
'user name
Private Declare Function GetUserName Lib 'advapi32.dll' Alias 'GetUserNameA' (ByVal lpBuffer As String, nSize As Long) As Long
Sub RecupNom()
  'computer name
Dim strComputerName As String
strComputerName = String(10, Chr$(0)) + ' FT '
GetComputerName strComputerName, 10
username
Dim strUserName As String
strUserName = String(10, Chr$(0))
GetUserName strUserName, 10

Cliquez pour agrandir...

++

Creepy

Merci pour ta réponse

Se que je cherche à faire c'est de récupérer en vba les initiales de l'utilisateur Excel (comme figurant dans Word=>Outils=>Options=>Utilisateur)

Ma formulation est-elle explicite ?

A bientôt

Bonjour a tous

En utilisant cette formulation tu récupères ce que tu cherche. Il te reste qu'a travailler l'info pour avoir les ini

Public Sub NomUtilisateur()
Dim GetXLUserName As String
GetXLUserName = Application.UserName
End Sub

Cliquez pour agrandir...

Merci pour ton aide, bonsoir le forum

Je n'ai pas arrivé à utiliser ton bout de code

Après avoir bidouillé j'ai trouvé une solution à mon problème .

Ce que je cherchais à faire c'est de récupérer le nom de l'utilisateur Excel figurant dans Outils=>Options=>Général=>Utilisateur et les initiales du nom de l'utilisateur

Ma solution

Première manip renseigner Outils=>Options=>Général=>Utilisateur ex. L.TARTENPION

Deuxième manip copier le code ci-dessous dans le code la feuille

Private Sub Worksheet_Activate()
MsgBox Application.UserName
[A1] = Application.UserName
[A2] = Mid(Application.UserName, 1, 1) & Mid(Application.UserName, 3, 1)
End Sub

Je débute sur VBA et c'est la troizième fois que je questionne le forum. Bravo à tous les membres !!

Asta la vista