Message erreur avec instruction Declare

bonsoir le phorum

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

Code:

---

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

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

Code:

---

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

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:

---

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

---

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

Code:

---

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:

---

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:

---

1 2 3 4

Sub test() MsgBox UserName(Utilisateur) End Sub

---

le msgbox est vide ?!?!

une idée ?

merci d'avance

david

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:

---

toto = Environ("username")

---

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

:calim2:
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.... ;)