Sunlim a noté que lorsque Office est installé, l’utilisateur spécifie son nom. Ce nom est accessible dans certains programmes Office, tels que Word. Sunlim se demande comment il peut accéder au nom de l’utilisateur dans Excel et placer ce nom dans une cellule.

Pour ce faire, vous devez implémenter une courte macro sur une ligne qui accède à la propriété UserName de l’objet Application. Cette technique est détaillée dans un autre numéro de _ExcelTips: _

http://excelribbon.tips.net/T009814

Cette approche est idéale pour déterminer le nom d’utilisateur associé à l’installation actuelle d’Excel. Cependant, cela peut ne pas être la même chose que celui qui utilise le classeur actuel. Par exemple, si le classeur est partagé, il est possible que plusieurs personnes l’utilisent en même temps. Dans ce cas, vous avez besoin d’un moyen de déterminer ces noms, comme indiqué ici:

Function UserNames() As String     Dim Users As Variant     Dim sMsg As String     Dim iIndex As Integer

Users = ActiveWorkbook.UserStatus

For iIndex = 1 To UBound(Users, 1)

sMsg = Users(iIndex, 1) & vbLf     Next iIndex     'remove final line feed     sMsg = Left(sMsg, Len(sMsg) - 1)



UserNames = sMsg End Function

Pour utiliser la fonction, entrez simplement la formule suivante dans la cellule où vous voulez que les noms apparaissent:

=UserNames

Si vous souhaitez plutôt savoir qui utilise actuellement l’ordinateur, il est préférable de regarder au-delà d’Office et de saisir le nom de Windows lui-même. De cette façon, vous pouvez déterminer qui est connecté à Windows et l’utiliser comme nom d’utilisateur. Cela prend une déclaration d’appel de fonction API, mais est par ailleurs relativement simple:

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

Function UserName2() As String     Dim strBuff As String * 100     Dim lngBuffLen As Long

lngBuffLen = 100     GetUserName strBuff, lngBuffLen     UserName2 = Left(strBuff, lngBuffLen - 1)

End Function

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (12745) s’applique à Microsoft Excel 2007, 2010, 2013, 2016, 2019 et Excel dans Office 365. Vous pouvez trouver une version de cette astuce pour l’ancienne interface de menu d’Excel ici:

link: / excel-Inserting_the_Users_Name_in_a_Cell [Insertion du nom de l’utilisateur dans une cellule].