utiliser une fonction

Version imprimable

bonjour,

J'ai dans un module la fonction suivante :

Code:

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.

08/03/2017, 13h33
unparia

Bonjour
Je ne vois absolument rien, dans le code que tuè montres, qui appelle la fonction que tu dis utiliser.
et je vois personnellement encore moins le rapport avec :

Citation:

Je voudrais utiliser le résultat pour une recherche dans un tableau dans une feuille et ensuite faire un IF dans workbook open.

De deux choses l'une, alors :
- ou je suis devenu gaga
- ou tu ne sais pas exposer clairement la difficulté rencontrée, tenants et aboutissants compris.;)
A moins d'une réponse claire et complète en ce qui concerne cet aspect, je m'abstiendrai de revenir dans cette discussion (et en suis désolé).
08/03/2017, 13h34
joe.levrai

Bonjour,

tu cherches ici à retrouver le nom de l'utilisateur (utilisateur compte Windows ?)

regarde du côté de la fonction ENVIRON() quand tu lui demande la variable environnement "USERNAME"

Code:

Msgbox Environ("USERNAME")

ce serait dommage de rester sur une manipulation d'API quand c'est pas nécessaire

ensuite, disposant de ton nom d'utilisateur, il ne te reste qu'à rechercher sa présence dans ton tableau au moyen de la méthode FIND appliqué sur ton range "Tableau"

Bonjour,
Quelle est ta question? Où est-ce que tu bloques?
Utiliser une fonction dans une procédure se fait simplement de la façon suivante:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
'Fonction
Function testAdditionner(k As Integer, m As Integer) As Integer
   testAdditionner = k + m
End Function
 
'Sub dans lequel tu veux utiliser la fonction
Sub testFct()
   Dim i As Integer
   Dim a As Integer
   Dim b As Integer
 
   'pour le test, donnons des valeurs fixes à a et b:
   a = 1
   b = 2
 
   i = testAdditionner(a, b)
   'ou encore avec un message box:
   MsgBox testAdditionner(a, b)
   'avec un if:
   If testAdditionner(a, b) > 2 Then
      MsgBox "Le résultat est > 2"
   End If
End Sub

08/03/2017, 13h55
rossemma

Merci joe

problème résolu