VBA username

[tany]

Bonjour à tous,

un petit problème :
je suis passé en Windows 10 et j' ai changé le nom utilisateur dans le panneau de configuration, là pas d'ennui
et au départ j'ai bien dessous l'avatar le nouveau nom
où cela se complique c'est que dans un programme avec VBA j'ai demandé ce nom avec
environ("username")
et après ce changement de nom, mon programme me donne toujours l'ancien !
a votre avis où est la faute ? Merci d'avance de vos suggestions.

 

[Pierrot93]

Re : VBA username

Bonjour,

tu as bien arreté redemarré l'ordinateur....

bon après midi
@+

 

[tany]

Re : VBA username

bonjour,
merci Pierrot93 de l' idée mais oui j'ai pensé...
toujours le nouveau nom au démarrage et l' ancien dans mon prog !

 

[Pierrot93]

Re : VBA username

Bonjour,

et bien sur la session windows ouverte est bien celle du nouvel utilisateur...

bonne journée
@+

 

[tany]

Re : VBA username

merci de votre préoccupation à mon problème

assurément car je n'ai qu'un seul compte administrateur
je ne vois rien d'autre du moins
d'ailleurs avant W10 cad W7 il n'y en avait qu'un seul donc...

dans mon prog j'ai supprimer la ligne et enregistré
puis remise mais rien n'y fait, je plane LOL
cela doit venir de Windows mais où ?

 

[Pierrot93]

Re : VBA username

Re,

perso pas d'autre idée... désolé...

bon après midi
@+

 

[MJ13]

Re : VBA username

Bonjour Tany, Pierrot

J'ai retrouvé cette procédure de je ne sais où?

A voir si c'est pareil sur Win 10.

Public Utilisateur As String

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

Function UserName() As String
    Dim sName As String * 256
    Dim cChars As Long
    cChars = 256
    If GetUserName(sName, cChars) Then
        UserName = Left$(sName, cChars - 1)
    End If
End Function

Public Sub NomUtilisateur()
    Utilisateur = UserName
    MsgBox Utilisateur
End Sub

 

[tany]

Re : VBA username

Re,

merci MJ13, je vais voir si cela me donne qqch...
mais j'ai vu que dans le dossier utilisateur il y a mon premier nom en sous dossier
donc le second nom dans le compte n'a rien à voir
j'en déduis que environ("username") va chercher ce nom de sous dossier et je ne sais pas
comment le changer, un clic droit ne me permet pas de renommer !
qu'en pensez vous ?

 

[tany]

Re : VBA username

Bonjour à tous,

j'ai expérimenté ce que les procédures de MJ13 qui ne donnent que le nom 1
Pour être plus explicite je donne un nom a mon PC "mon PC" et cela n'a pas changé avec W10
ensuite j'avais nom1 comme utilisateur et j'ai voulu le changer en nom2
au départ de W10 j'ai bien dessous l'avatar nom2 mais en excel il me sort nom1
que je retrouve comme nom de sous dossier du dossier utilisateur
alors la question est : comment aller chercher ce nom2 qui apparaît au départ sous l'avatar ?
je pourrai faire une condition si username=nom1 alors inscrire nom2 mais c' est très incorrect
je suis dans l'ennui avec ce tour de W10
merci d'avance si vous avez des idées...

 

[JCGL]

Re : VBA username

Bonjour à tous,

Ne serais-tu pas en train de confondre Compte MicroSoft et Utilisateur ?

A+ à tous

 

[tany]

Re : VBA username

Bonjour,
je ne crois pas car je n'ai pas demandé de compte Microsoft
je me pose la question : ne devrai-je pas créer un autre compte utilisateur et ensuite supprimer ce premier ?
bonne journée