je suis à la recherche, via vba, du nom de l'utilisateur actuel, pas celui
qui est inscrit dans Outils / Options / Général, mais celui qui a été saisi
au moment du login sur la machine. Dans les entreprises, ça correspond
parfois au matricule.
Dans Access, je le trouve avec Environ("UserName"), mais dans XL, pour le
moment je sèche lamentablement.
Merci d'avance à qui pourra me mettre sur la voie.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonjour,
http://cjoint.com/?eCf3fQxa1v
Declare Function wu_GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long Function GetUserName() As Variant Dim strUserName As String, lngLength As Long, lngResult As Long strUserName = String$(255, 0) lngLength = 255 lngResult = wu_GetUserName(strUserName, lngLength) GetUserName = Left(strUserName, InStr(1, strUserName, Chr(0)) - 1) End Function
Function NomUtil() NomUtil = Environ("Username") End Function
Function NomUtil2() Set temp = CreateObject("WScript.Network") NomUtil2 = temp.UserName End Function
Cordialement JB
Bonjour,
http://cjoint.com/?eCf3fQxa1v
Declare Function wu_GetUserName Lib "advapi32.dll" Alias "GetUserNameA"
(ByVal lpBuffer As String, nSize As Long) As Long
Function GetUserName() As Variant
Dim strUserName As String, lngLength As Long, lngResult As Long
strUserName = String$(255, 0)
lngLength = 255
lngResult = wu_GetUserName(strUserName, lngLength)
GetUserName = Left(strUserName, InStr(1, strUserName, Chr(0)) - 1)
End Function
Function NomUtil()
NomUtil = Environ("Username")
End Function
Function NomUtil2()
Set temp = CreateObject("WScript.Network")
NomUtil2 = temp.UserName
End Function
Declare Function wu_GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long Function GetUserName() As Variant Dim strUserName As String, lngLength As Long, lngResult As Long strUserName = String$(255, 0) lngLength = 255 lngResult = wu_GetUserName(strUserName, lngLength) GetUserName = Left(strUserName, InStr(1, strUserName, Chr(0)) - 1) End Function
Function NomUtil() NomUtil = Environ("Username") End Function
Function NomUtil2() Set temp = CreateObject("WScript.Network") NomUtil2 = temp.UserName End Function
Cordialement JB
JLuc
*Bonjour Jac*, Ca marche pareil dans Excel
Bonjour à tous,
je suis à la recherche, via vba, du nom de l'utilisateur actuel, pas celui qui est inscrit dans Outils / Options / Général, mais celui qui a été saisi au moment du login sur la machine. Dans les entreprises, ça correspond parfois au matricule. Dans Access, je le trouve avec Environ("UserName"), mais dans XL, pour le moment je sèche lamentablement.
Merci d'avance à qui pourra me mettre sur la voie.
JAC
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
*Bonjour Jac*,
Ca marche pareil dans Excel
Bonjour à tous,
je suis à la recherche, via vba, du nom de l'utilisateur actuel, pas celui
qui est inscrit dans Outils / Options / Général, mais celui qui a été saisi
au moment du login sur la machine. Dans les entreprises, ça correspond
parfois au matricule.
Dans Access, je le trouve avec Environ("UserName"), mais dans XL, pour le
moment je sèche lamentablement.
Merci d'avance à qui pourra me mettre sur la voie.
je suis à la recherche, via vba, du nom de l'utilisateur actuel, pas celui qui est inscrit dans Outils / Options / Général, mais celui qui a été saisi au moment du login sur la machine. Dans les entreprises, ça correspond parfois au matricule. Dans Access, je le trouve avec Environ("UserName"), mais dans XL, pour le moment je sèche lamentablement.
Merci d'avance à qui pourra me mettre sur la voie.
