Comment afficher le nom de l'utilisateur actuel dans une cellule?

Dans la plupart des ressources en ligne j'ai peut trouver habituellement me montrer comment faire pour récupérer cette information dans VBA. Est-il un moyen direct d'obtenir cette information dans une cellule?

Par exemple aussi simple que d' =ENVIRON('User') (qui n'a pas fonctionné)

OriginalL'auteur Anthony Kong | 2011-08-03

  1. 35

    Basée sur les instructions sur le lien ci-dessous, procédez de la manière suivante.

    En VBA insérer un nouveau module et le coller dans le code:

    Public Function UserName()
    UserName = Environ$("UserName")
End Function

    Appeler la fonction à l'aide de la formule:

    =Username()

    Basé sur des instructions à:

    https://support.office.com/en-us/article/Create-Custom-Functions-in-Excel-2007-2f06c10b-3622-40d6-a1b2-b6748ae8231f

    Merci! Il n'a pas fonctionne pour moi auparavant, car je n'ai pas de créer un nouveau module. Maintenant c'est tout bon.
    pour ceux qui viennent à travers ce qu'en 2016 le lien ci-dessus ne fonctionne pas
    Le lien a été corrigé par la suite commentaire ci-dessus...

    OriginalL'auteur Jon Egerton

  2. 5

    si vous ne voulez pas créer un UDF dans VBA ou vous ne pouvez pas, cela pourrait être une alternative.

    =Cell("Filename",A1) cela vous donnera le nom de fichier complet, et à partir de ce que vous pourriez obtenir le nom d'utilisateur avec quelque chose comme ceci:

    =Mid(A1,Find("\",A1,4)+1;Find("\";A1;Find("\";A1;4))-2)

    Cette Formule fonctionne uniquement à partir d'un classeur enregistré précédemment.

    Vous devez commencer à partir de la 4ème position en raison de la première barre du lecteur.

    J'aime cette réponse, mais malheureusement pour les documents tiré à partir du nuage, l'adresse ne contient pas l'utilisateur actuel.

    OriginalL'auteur Rafa Barragan

  3. 3

    Exemple: pour afficher le Nom d'Utilisateur Windows sur la Cellule C5, vous pouvez utiliser ce script :

    Range("C5").Value = ": " & Environ("USERNAME").

    OriginalL'auteur web solusi

  4. 2

    La façon la plus simple est de créer une macro VBA qui enveloppe la fonction, comme suit:

    Function UserNameWindows() As String
    UserName = Environ("USERNAME")
End Function

    Ensuite appeler à partir de la cellule:

    =UserNameWindows()

    Voir cet article pour plus de détails, et d'autres moyens.

    OriginalL'auteur Lance Roberts

  5. 1

    Cette affiche le nom de l'utilisateur actuel:

    Function Username() As String
    Username = Application.Username
End Function

    La propriété Application.Username détient le nom entré avec l'installation de MS Office.

    Entrez cette formule dans une cellule:

    =Username()

    OriginalL'auteur rolacher

  6. 0

    Sans VBA macro, vous pouvez utiliser ces conseils pour obtenir le nom d'utilisateur à partir du chemin :

    =MID(INFO("DIRECTORY"),10,LEN(INFO("DIRECTORY"))-LEN(MID(INFO("DIRECTORY"),FIND("\",INFO("DIRECTORY"),10),1000))-LEN("C:\Users\"))

    OriginalL'auteur sangorys