BONJOUR A TOUS
J'ai recopi=E9 cette macro permettant de recup=E9rer le nom=20
d'utilisateur d'un poste
Declare Function GetUserName Lib "ADVAPI32.DLL"=20
Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long
Function UserName()
Dim S As String
Dim N As Long
Dim Res As Long
S =3D String$(200, 0)
N =3D 199
Res =3D GetUserName(S, N)
gleroy@g-t.fr
UserName =3D Left(S, N - 1)
End Function
Je l'ai install=E9e sur this workbook=20
Comment lancer cette macro (en private sub)pour que le=20
r=E9sultat s'affiche en A30 de la feuille 1 ?
Merci =E0 ceusses qui ont le savoir divin
Gilles
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
papou
Bonjour Gilles Places le code que tu fournis dans un module standard Tu pourras ainsi insérer directement la fonction UserName (qui se trouveras dans la liste des Personnalisées) dans ta cellule. Cordialement Pascal - qui n'a pas le savoir divin ;-)
"gilles" a écrit dans le message de news:1da3201c45450$ed4622d0$ BONJOUR A TOUS J'ai recopié cette macro permettant de recupérer le nom d'utilisateur d'un poste
Declare Function GetUserName Lib "ADVAPI32.DLL" Alias "GetUserNameA" _ (ByVal lpBuffer As String, nSize As Long) As Long
Function UserName() Dim S As String Dim N As Long Dim Res As Long
S = String$(200, 0) N = 199 Res = GetUserName(S, N)
UserName = Left(S, N - 1) End Function
Je l'ai installée sur this workbook Comment lancer cette macro (en private sub)pour que le résultat s'affiche en A30 de la feuille 1 ? Merci à ceusses qui ont le savoir divin Gilles
Bonjour Gilles
Places le code que tu fournis dans un module standard
Tu pourras ainsi insérer directement la fonction UserName (qui se trouveras
dans la liste des Personnalisées) dans ta cellule.
Cordialement
Pascal - qui n'a pas le savoir divin ;-)
"gilles" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:1da3201c45450$ed4622d0$a101280a@phx.gbl...
BONJOUR A TOUS
J'ai recopié cette macro permettant de recupérer le nom
d'utilisateur d'un poste
Declare Function GetUserName Lib "ADVAPI32.DLL"
Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long
Function UserName()
Dim S As String
Dim N As Long
Dim Res As Long
S = String$(200, 0)
N = 199
Res = GetUserName(S, N)
gleroy@g-t.fr
UserName = Left(S, N - 1)
End Function
Je l'ai installée sur this workbook
Comment lancer cette macro (en private sub)pour que le
résultat s'affiche en A30 de la feuille 1 ?
Merci à ceusses qui ont le savoir divin
Gilles
Bonjour Gilles Places le code que tu fournis dans un module standard Tu pourras ainsi insérer directement la fonction UserName (qui se trouveras dans la liste des Personnalisées) dans ta cellule. Cordialement Pascal - qui n'a pas le savoir divin ;-)
"gilles" a écrit dans le message de news:1da3201c45450$ed4622d0$ BONJOUR A TOUS J'ai recopié cette macro permettant de recupérer le nom d'utilisateur d'un poste
Declare Function GetUserName Lib "ADVAPI32.DLL" Alias "GetUserNameA" _ (ByVal lpBuffer As String, nSize As Long) As Long
Function UserName() Dim S As String Dim N As Long Dim Res As Long
S = String$(200, 0) N = 199 Res = GetUserName(S, N)
UserName = Left(S, N - 1) End Function
Je l'ai installée sur this workbook Comment lancer cette macro (en private sub)pour que le résultat s'affiche en A30 de la feuille 1 ? Merci à ceusses qui ont le savoir divin Gilles
