Résumé
Vous pouvez appeler Windows API (interface de programmation d’application) à une DLL (dynamic-link library) de Microsoft Windows pour obtenir le nom d’utilisateur en cours. Le nom de l’utilisateur actuel peut être obtenu à l’aide de la fonction GetUserNameA dans ADVAPI32. DLL.
Informations supplémentaires
Microsoft Excel ne dispose pas de fonctionnalités intégrées pour accéder aux nom d’utilisateur actuel de l’ordinateur. Toutefois, vous pouvez utiliser l’instruction Declare dans un Visual Basic pour Applications macro de pour appeler une fonction de Microsoft Windows qui retourne le nom de l’utilisateur en cours. Microsoft fournit des exemples de Visual Basic pour Applications des procédures à titre d’illustration uniquement, sans garantie expresse ou implicite, y compris, de manière non limitative, les garanties implicites de qualité marchande et/ou d’adéquation à un usage particulier. Les procédures Visual Basic dans cet article sont fournies « en l’état » et Microsoft ne garantit pas qu’ils peuvent être utilisés dans toutes les situations. Bien que les techniciens du support technique Microsoft peuvent aider à expliquer la fonctionnalité d’une macro particulière, ils ne modifieront pas ces exemples pour fournir des fonctionnalités supplémentaires, ni ne vous aideront à construire des macros pour répondre à vos besoins spécifiques. Si l’expérience de programmation est limité, vous souhaiterez peut-être consulter l’un des fournisseurs de solutions Microsoft. Fournisseurs de solutions proposent une large gamme de services payants, y compris la création de macros personnalisées. Pour plus d’informations sur les fournisseurs de solutions Microsoft, appelez le Service clients Microsoft d’informations (800) 426-9400.
EXEMPLE
-
Tapez le code suivant dans un nouveau module :
' Makes sure all variables are dimensioned in each subroutine. Option Explicit ' Access the GetUserNameA function in advapi32.dll and ' call the function GetUserName. Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _ (ByVal lpBuffer As String, nSize As Long) As Long ' Main routine to Dimension variables, retrieve user name ' and display answer. Sub Get_User_Name() ' Dimension variables Dim lpBuff As String * 25 Dim ret As Long, UserName As String ' Get the user name minus any trailing spaces found in the name. ret = GetUserName(lpBuff, 25) UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1) ' Display the User Name MsgBox UserName End Sub
-
Exécutez la macro Get_User_Name. Notez que le nom d’utilisateur en cours s’affiche dans une boîte de message.
