Discussion :

[munity]

bonsoir le phorum

j'ai ce message d'erreur sous windows 10 64 bits

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

quelqu'un a t'il une idée pour rendre ce code compatible 32 et 64 bits ?

merci d'avance

david

[munity]

j'ai trouvé ca sur internet mais cela ne fonctionne pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
If Win64 Then
   Declare PtrSafe Function apiGetUserName Lib "advapi32.dll" Alias _
    "GetUserNameA" (ByVal lpBuffer As String, nSize As LongLong) As LongLong
Else
   Declare Function apiGetUserName Lib "advapi32.dll" Alias _
    "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
End If

il met toujours le même message

quelqu'un a t'il une idée ??

david

[mfoxy]

Hello,

Je ne sais pas si faisable, avis aux pros du forum
Mais peut-être indiqué un check de la version. 32 vs 64 pour la déclaration fonction ?

T as macro serait du moins pour cette fonction compatible 32 et 64 bit

Peut être un truc du style

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
#if VBA7 then 'Declaration 64bit
 Declare PtrSafe Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long 
#else 'Déclaration 32bit
 Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long 
#end if

[munity]

merci pour ta réponse
j'ai modifié le code comme suit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
#If Win64 Then
   Public Declare PtrSafe Function apiGetUserName Lib "advapi32.dll" Alias _
    "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
#Else
   public Declare Function apiGetUserName Lib "advapi32.dll" Alias _
    "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
#End If
#If VBA7 Then 'Declaration 64bit
 Declare PtrSafe Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
#Else 'Déclaration 32bit
 Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
#End If

le code ci dessous est censé me donner le nom de l'utilisateur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Function UserName(Utilisateur)
   Dim password As String
      Dim b As String * 100
      Dim L As Long
      L = 100
      GetUserName b, L
      Utilisateur = Left(b, L - 1)
   End Function

mais rien si je fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Sub test()
MsgBox UserName(Utilisateur)
End Sub

le msgbox est vide ?!?!

une idée ?

merci d'avance

david

[unparia]

Bonjour
Sais-tu que ce que tu cherches à extraire est ce que tu peux obtenir tout simplement par l'utilisation de la fonction Environ native de VBA ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

toto = Environ("username")

est ce que te retournerait (la valeur de toto) la fonction que tu cherches à utiliser la l'Api de Windows.

[munity]

oui je sais

c'est d'ailleurs ce que j'utilise
mais j'aimerai tout de même comprendre ce problème au cas ou et pour ma culture de developpeur débutant....