Discussion :

[javelot69]

Bonjour,

Je pose peut-être une question dont la réponse est dans les FAQ ou les Tutoriels mais je ne la trouve pas.

Je veux récupérer et afficher le nom d'utilisateur. La fonction Username fonctionne en VBE dans Excel mais ne fonctionne pas en VBA.

Quelqu'un peut-il me donner la solution ou m'aiguiller vers une réponse dans les FAQ ou les Tutoriels.

Merci d'avance.

[LostIN]

currentuser()

[javelot69]

Bonjour LostIn,

Merci pour ta réponse.

Je viens de tester CurrentUser sur mon Pc perso. Ce qui m'ennuie c'est que la MsgBox me renvoie "Bonjour Admin" au lieu de "Bonjour " suivi du nom de ma session.

Que manque-t-il pour qu'il me renvoie le bon nom ?

Merci d'avance.

[FreeAccess]

Bonjour,
Je pense qu'avec ça, tu auras le nom de l'utilisateur de la session Windows en cours

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Environ("UserName")

Bonne continuation.

[javelot69]

Bonjour FreeAccess,

Merci pour ta réponse.

Je viens de tester. La MsgBox me renvoie "Bonjour pc" alors que ma session Windows a bien un nom. C'est à se taper la tête sur un mur

Existe-t-il une autre solution ?

Merci d'avance à tous.

[Dolphy35]

Salut,

Coche la référence : Windows Script Host Object Model

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim m As IWshNetwork_Class
 
Set m = New IWshNetwork_Class
 
 
    Nom_PC = m.ComputerName
    Nom_Uti = m.UserName

ensuite avec ce code tu récupère les infos.
Fonctionne sur réseau

[FreeAccess]

Re,
Perso dans mes applications, j'utilise ceci : sur un Form, j'ai un champ indépendant (U_Name).
Sur l'événement 'Sur ouverture' du Form, j'ai ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Form_Open(Cancel As Integer)
Me.U_Name.Caption = Environ$("username")
End Sub

Cela fonctionne correctement, et j'obtiens bien le nom de l'utilisateur de la session Windows en cours.

[Petogaz]

salut,

je rejoins freeAccess ce code fonctionne même avec un simple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

msgbox environ("username")

tout simplement. donc le pb ne se situe pas au niveau du code mais ailleurs.
et pas besoins de rajouter d'autres références. références testées :

Visual basic for application + Microsoft Access X.0 object library. ces deux références suffisent pour que le code marche.

[Looping_V60]

Slt,
J'utilise ceci dans une de mes bases :
Ce code est placé dans un module et la fonction est exécutée au démarrage par une macro autoexec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Option Compare Database
Public Utilisateur As String
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
-----------------------------------------------------------------------------------------------------------
Public Function CapterUtilisateur()
Dim Ch As String
Dim a As Long
Dim b As Long
 
    a = 199
    Ch = String$(200, 0)
    b = GetUserName(Ch, a)
 
    If b <> 0 Then
        Utilisateur = Left$(Ch, a)
    Else
        Utilisateur = "Inconnu"
    End If
End Function

[javelot69]

Bonjour à tous,

Merci pour vos réponses. Je n'arrive toujours pas à ce que je veux obtenir.

CurrentUser me renvoie Admin comme nom
Environ("UserName") me renvoie pc comme nom
Le code proposé par Looping V60 me renvoie également pc.

Ma session Windows XP a bien un nom et c'est celui que je veux obtenir. ^ù est le bug ? Quelqu'un a-t-il une idée ?

Merci d'avance.

[LostIN]

bizarre, avec tout ca, tu aurais du trouver ton bonheur.

peut tu nous dire sous quel système tu es, réseau ou pas réseau ?

[javelot69]

Bonjour,

Voici les infos :
Système Windows XP Edition familiale SP2
Office 2003 Pro
Pas réseau car le tour sur laquelle je développe est indépendante ; je n'ai qu'1 session sur cette tour.

Les applicatifs que je développe sont ensuite installés sur les postes des utiliteurs qui sont en réseau..

Je ne vois pas ce qui empèche de récupérer le nom d'utilisateur.

Je remercie d'avance qui à une idée à proposer.

[LostIN]

Bonjour,

Voici les infos :
Système Windows XP Edition familiale SP2
..

En te posant la question, je pensais à ca.
Mais je ne sais absolument pas si ca peut venir de ca.

[besly]

Hello, perso j'utilise ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Public UserCur As String 
Private Declare Function apiGetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Function IdUser() As String
Dim lngLen As Long, lngX As Long
Dim strUserName As String
   strUserName = String$(254, 0)
   lngLen = 255
   lngX = apiGetUserName(strUserName, lngLen)
        If lngX <> 0 Then
           IdUser = Left$(strUserName, lngLen - 1)
           UserCur = IdUser
        Else
           IdUser = ""
        End If
End Function

Et il suffit d'utiliser la variable UserCur dans ton code.

++

[javelot69]

Bonjour,

Ayant été pris par d'autres tâches, je n'ai pu avancer sur ma question. J'y reviens avec avec une partie de la réponse.

Lorqu'on installe Windows XP il faut déclarer un nom de session ; l'installateur ne connaissant pas l'utilisateur final met souvent un nom du genre "pc" ou "propriétaire" ou autre. Lorsqu'on change ce nom, le changement n'est qu'apparent car si on fait Ctrl+Alt+Supp et qu'on clique sur l'onglet "Utilisateurs" le nom donné à l'installation de Windows apparaît mais pas celui qu'on a mis soi-même.

J'ai testé les solutions proposées (merci à ceux qui m'ont répondu, vous êtes géniaux).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

msg = "Bonjour " & CurrentUser & ". C'est bien votre nom ?"

Ce code renvoie le message "Bonjour Admin"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

msg = "Bonjour " & Environ("UserName") & ". C'est bien votre nom ?"

Ce code renvoie le message "Bonjour pc" (pc est le nom donné par l'installateur de Windows ; j'ai changé ce nom mais la fonction ne le renvoie pas)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Public Function CapterUtilisateur()
Dim Ch As String
Dim a As Long
Dim b As Long
 
Dim msg As String
Dim ans As String
 
 
    a = 199
    Ch = String$(200, 0)
    b = GetUserName(Ch, a)
 
    If b <> 0 Then
        Utilisateur = Left$(Ch, a)
 
        'msg = "Bonjour " & Environ("CurrentUser") & ". C'est bien votre nom ?"
        msg = "Bonjour " & Utilisateur & ". C'est bien votre nom ?"
 
        ans = MsgBox(msg, vbYesNo)
            If ans = vbNo Then MsgBox "oups, ça ne marche pas"
            If ans = vbYes Then MsgBox "et voici le résulat de Environ(UserName)"
 
 
    Else
        Utilisateur = "Inconnu"
    End If
End Function

Ce code renvoie également le message "Bonjour pc" (c'est-à-dire le nom par défaut donné par l'installateur de Windows).

Comme je le disais dans mon premier post, dans VB sous Excel la fonction suivante fonctionne très bien et renvoie le nom donné à sa session par l'utilisateur et non celui donné par l'installateur de Windows

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

msg = "Bonjour " & Application.UserName & Chr(10) & Chr(10) & "C'est bien votre nom?"

Ma question d'origine est toujours sans solution : existe-t-il dans Access une fonction équivalente à UserName pour récupérer le nom donné par l'utilisateur à sa session ?

Je remercie d'avance ceux qui ont des idées à proposer.

Bonne journée.

[besly]

Rien ne vaut une belle image...



++

[javelot69]

Bonjour besly,

Quelle est belle cette image !!!!!! Merci pour cette réponse.

J'ai testé cette solution ........... Ce n'est toujours pas la bonne !

La MsgBox me donne "Nom de la session en cours ... pc"

As-tu vérifié dans Ctrl+alt+Supp onglet "Utilisateurs" quel est le nom qui apparaît ? Si c'est Sylvain, cela explique que la fonction renvoie ce nom. Comme je l'ai écrit, dans mon cas l'utilisateur est "pc" (nom donné par l'installateur de Windows XP sur mon ordi) mais j'ai donné un autre nom à cette session dans le compte utilisateur.

Qui prétend qu'informatique rime avec simplicité ?

Je fais à nouveau appel aux bonnes volontés ; qui a une solution à proposer ?

Merci d'avance. Bonne journée.

[Dolphy35]

Salut,

Arrivé à ce stade je pense que tu as plus un soucis sur ton poste au niveau de tes comptes. Tous les codes donnés sur ce post son corrects et fonctionne avec tout le monde sauf toi.

As-tu esseyé sur un autre PC ?
As-tu modifié tes comptes utilisateurs ?

Dans l'image de besly tu peux remarquer dans demarrer le nom de la session, qu'en est-il pour toi ?

[Dolphy35]

re

ton problème m'a intrigué, je mes suis amuser : lol: à modifier le nom de mon compte et j'ai vu ton problème :

• Lorsque tu change le nom d'un Compte sur XP il te modifie simplement le nom complet et non le nom (à relire si besoin ).
• Le code donné récupère le nom de l'utilisateur, c'est pour cela que tu as PC.
• Pour modifier le nom de ton compte il faut effectuer une petite manip :

Demarrer Paramètres Panneau de Configuration Outils d'administartion Gestion de l'utilisateur Utilisateurs et groupe locaux Utilisateurs Clic droit sur la ligne à modifier Renommer.

Le tour est joué

[javelot69]

Bonjour,

Un grand merci à Dolphy35 pous ses observations pertinentes.

Dans mon post d'hier, je décris le problème du changement de nom de la session puisque ce changement n'est qu'apparent ; ainsi le nom qui apparaît dans démarrer est bien le nom de la session ouverte, nom que j'ai donné dans "Démarrer", "Panneau de configuration", "Comptes d'utilisateurs" ; j'insiste aussi sur le fait que si je fait Ctrl+Alt+Suppr et que je vais dans l'onglet "Utilisateurs" le nom de l'utilisateur actif est "pc".

C'est vrai que tous les codes donnés sur ce post sont bons et je remercie tous ceux qui ont pris le temps de me répondre ; ce site est génial et je suis très heureux de m'y être inscrit. Le problème est que ces codes ne me renvoient pas l'information attendue alors que dans Excel la fonction UserName donne le résultat attendu !

Nous sommes peut-être devant une bizarrerie "microsoftienne" !

Pour répondre à Dolphy35, non je n'ai pas essayé sur un autre ordinateur ; j'ai (bêtement) pensé que ce n'était pas la peine.

Demarrer Paramètres Panneau de Configuration Outils d'administartion Gestion de l'utilisateur Utilisateurs et groupe locaux Utilisateurs Clic droit sur la ligne à modifier Renommer.

Le tour est joué

Je travaille avec Window XP Edition familiale SP2 ; dans "Outils d'administration" je n'ai pas "Gestion de l'utilisateur" (j'ai "Gestion de l'ordinateur" mais cela ne donne pas accès à "Utilisateurs et groupe locaux").

De plus en plus bizarre Microsoft !

Dolphy35, si tu as le temps d'écrire un post, je suis preneur.

"Thanks a lot" à tous.