bonjour,

J'ai dans un module la fonction suivante :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Declare Function WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA" (ByVal lpName As String, _
        ByVal lpUserName As String, lpnLength As Long) As Long
Const NoError = 0
Function GetUserName()
     Const lpnLength As Integer = 255
     Dim status As Integer
     Dim lpName, lpUserName As String
     lpUserName = Space$(lpnLength + 1)
     status = WNetGetUser(lpName, lpUserName, lpnLength)
     If status = NoError Then
          lpUserName = Left$(lpUserName, InStr(lpUserName, Chr(0)) - 1)
     Else
          MsgBox "Impossible d'obtenir le login."
          End
     End If
     GetUserName = lpUserName
End Function
Je voudrais utiliser le résultat pour une recherche dans un tableau dans une feuille et ensuite faire un IF dans workbook open.

merci pour votre aide.