Bonjour à tous,

J'utilise actuellement ce code pour récupérer le nom de l'utilisateur (nom de session windows) qui ouvre mon document Excel :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Const PremiereLigneTableau As Integer = 11
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long
Option Compare Text
'Récupération nom de session Windows
'extrait d'un code trouvé sur : http://forum.rue-montgallet.com/ruemontgallet/Programmation/vb-vba/resolu-recuperation-windows-sujet_22341_1.htm
Function OSUserName() As String
 
Dim Buffer As String * 256
Dim BuffLen As Long
BuffLen = 256
    If GetUserName(Buffer, BuffLen) Then _
        OSUserName = Left(Buffer, BuffLen - 1)
End Function
J'aimerai maintenant savoir comment faire pour récupérer le groupe AD associé à mon utilisateur...

Merci d'avance pour votre aide