Insérer le nom d'utilisateur de la session windows en cours

Bonjour,

Possédant un ordinateur avec plusieurs comptes, je souhaiterais insérer dans une cellule le nom d'utilisateur de la session en cours.

Est-ce possible et quelle fonction utilser ?

Merci d'avance.

Salut le forum

Bienvenue comme nouveau membre Stef1969.

Essaye avec

MsgBox Environ("username")

Mytå

Ok, merci ça marche (mais sans le MsgBox).

Bon je suis pas spécialiste du tout. J'ai donc crée une macro mais peut-on le faire directement dans la cellule avec une fonction (et donc sans créer de macro) ?

Merci.

Salut à tous,

je sais pas si tu as procédé de cette façon, mais tu peux créer une fonction en VBA

Public Function NomUtilisateur()
    NomUtilisateur = Environ("Username")
End Function

et ensuite l'appelé dans Excel de cette façon

=NomUtilisateur()

je pense que c'est la façon la plus simple de l'utiliser

bonne journée

Ok merci à tous.

Ca fonctionne mais en fait je voulais pas d'une macro pour éviter d'avoir le message de sécurité à l'ouverture du fichier (c'est pour le boulôt).

Merci quand même.

salut le forum

Sans macro même XL4 impossible (juste pour Amadéus fidèle adepte des macros XL4)

Insertion - Nom - Définir

Nom dans le classeur - user fait référence à =LIRE.ENV(26)

Dans un cellule =user

Mytå

Bonjour à tous

J'ai essayé la technique du code MSG BOX et ensuite =NomUtilisateur() dans la cellule appropriée

Cela fonctionne au premier démarrage, mais ensuite, si on quitte le document, et qu'un autre utilisateur le démarre, on reste sur le nom du premier utilisateur ayant ouvert le fichier

Une idée?

le code VBA qui est au tout début de mon module

Public Function NomUtilisateur()

NomUtilisateur = Environ("Username")

End Function

et le contenu de la cellule qui doit afficher le nom

=NomUtilisateur()

PS, le fichier est sur le réseau, pas stocké en local

Merci

Bonjour,

Le plus simple est de mettre la macro dans le projet ThisWorkbook sous vba avec l'événement Workbook_Open et de lier une cellule à la macro.

Private Sub Workbook_Open()
Sheets("NomDeTaFeuille").Range("TaCellule") = Environ("Username")
End Sub

A plus !

ce code génère une "compile error:" "argument not optional"

Avez-vous pensé à changer "NomDeTaFeuille" et "TaCellule" dans la macro en mettant par exemple Feuil1 et A1 ?

Car chez moi, le code fonctionne.

A plus !

oui, quand meme

Sait-on jamais !

Ci-joint mon fichier qui fonctionne chez moi.

Sans le votre je ne peux vous dire ce qui ne va pas.