Récupérer le nom de l'utilisateur enregistré dans les paramétres d'excel

[nyco]

Bonjour,
Je souhaite récupérer, dans une macro, le nom de l'utilisateur enregistré dans les paramètres d'Excel, si vous pouviez m'aider ...
merci.

 

[arnaud]

salut 🙂,

Application.UserName devrais te donner ça 😉

 

[Nico]

Hello,
Moi j'utilise cette macro :

'récupère le nom de l'utilisateur courant Windows dans la variable ses_user
Function User_Name()

Dim S As String
Dim N As Long
Dim Res As Long


S = String$(200, 0)
N = 199
Res = GetUserName(S, N)
ses_user = Left(S, N - 1)
End Function

qui fonctionne dans toutes les versions de office et windows
(je crois que celle d'arnaud ne fonctionne pas sur NT ou un truc dans le genre)

@+

 

[arnaud]

re,

effectivement mais juste une petite présicion pour que cela fonctionne :
déclarer la fonction GetUserName au dessus de la macro sinon il ne la connais pas:

Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long

 

[Nico]

oui tout juste !!

;-)

 

[nyco]

Merci Beaucoup ,
Vous etes extrement efficace bonne journée !!!!!

 

[EMG]

Bonjour Nico, Arnaud, le forum

Dans le fichier joint on peu évidemment trouver ces information en allant lire directement dans la base de registre et plus encore. Avoir et à étudier

Gérard

 

[arnaud]

re,

en tout cas sur mon poste la seul info qu'il a trouver quand j'ai lancer le usf c le nom d'utilisateur et il est recupéré comme ça :
LblTitre.Caption = "Nom de l'utilisateur. " & Application.UserName
les Valeur que tu va chercher dans la bdr n'existe pas sur mon poste.

 

[EMG]

Re, arnaud

Curieux cela fonctionne très bien sous windows 98SE, quel version à tu peut être que sous une version Windows XP le chemin du registre et des clès sont elles diférentes.

 

[arnaud]

re,

je suis effectivement sous win XP mais par contre aucune idée de ou se trouvent ces infos maintenant.