username

  • Initiateur de la discussion modus57
  • Date de début
M

modus57

Guest
Bonjour à tous,

On peut récupérer en vba le non de l'utilisateur, peut-on aussi récupérer les initiales de l'utilisateur ?

Quelqu'un connait la réponse.

Merci d'avance à +.
 

Creepy

XLDnaute Accro
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

++

Creepy
 
M

modus57

Guest
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
 
M

modus57

Guest
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
 

Discussions similaires

Réponses
0
Affichages
193
Réponses
3
Affichages
487

Statistiques des forums

Discussions
312 963
Messages
2 093 996
Membres
105 906
dernier inscrit
aifa