Retrouver le UserName

Version imprimable

28/12/2016, 17h18
hadrien4789

Retrouver le UserName

Bonjour,

J'ai le chemin suivant dans ma macro

Code:

Workbooks.Open Filename:="C:\Users\hpoquet-adc\Desktop\MCC TEST HPO - part4\HRA-Natures_d'arrêté-décision-XSWHI001.xls"

Je cherche à généraliser l'ouverture de ce fichier pour que d'autre utilisateur puissent s'en servir sans modifier la macro.

En fait je voudrais réussir à renvoyer la variable UserName à la place de hpoquet-adc.

Cordialement

Bonjour hadrien4789,

Trouvé très rapidement sur le net...

Enlève PtrSafe si tu es sur un système 32 bits. :ccool:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Declare PtrSafe Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
 
Function OSUserName() As String 'extrait d'un code de Paul cf. http://forum.rue-montgallet.com/
Dim Buffer As String * 256
Dim BuffLen As Long
BuffLen = 256
If GetUserName(Buffer, BuffLen) Then _
OSUserName = Left(Buffer, BuffLen - 1)
End Function
 
Sub CTest()
MsgBox OSUserName
End Sub

Cordialement,
Kimy

28/12/2016, 17h27
joe.levrai

Bonjour,

intéresses-toi à la fonction VBA.Environ(), notamment avec l'argument "USERNAME"
29/12/2016, 09h35
hadrien4789

Bonjour,

VBA.Environ() fonctionne parfaitement.

Merci

1 pièce(s) jointe(s)

Salut, à titre d'info

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
 
Sub Liste_Variables_Environment()
Dim sEnv As String, i As Long
    Feuil1.Cells.Clear
    i = 1
    Do
        sEnv = Environ(i)
        Feuil1.Cells(i, 1) = sEnv
        i = i + 1
    Loop Until sEnv = ""
End Sub