NOus disposons d'une macro sous Word dans laquelle nous souhaiterions
récupérer le nom de l'utilisateur connecté au poste sous WinNT (2000 ou XP).
Comment peut on faire cela ?
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
Eric
Bonjour Philippe ,
MsgBox Environ$("UserName") peut-être ?
-- A+ Eric
Philippe Mermoud a écrit :
NOus disposons d'une macro sous Word dans laquelle nous souhaiterions récupérer le nom de l'utilisateur connecté au poste sous WinNT (2000 ou XP). Comment peut on faire cela ?
Bonjour Philippe ,
MsgBox Environ$("UserName") peut-être ?
--
A+
Eric
Philippe Mermoud a écrit :
NOus disposons d'une macro sous Word dans laquelle nous souhaiterions
récupérer le nom de l'utilisateur connecté au poste sous WinNT (2000 ou XP).
Comment peut on faire cela ?
NOus disposons d'une macro sous Word dans laquelle nous souhaiterions récupérer le nom de l'utilisateur connecté au poste sous WinNT (2000 ou XP). Comment peut on faire cela ?
Jacques93
Bonjour, Philippe Mermoud a écrit :
NOus disposons d'une macro sous Word dans laquelle nous souhaiterions récupérer le nom de l'utilisateur connecté au poste sous WinNT (2000 ou XP). Comment peut on faire cela ?
Ou avec l'API :
Private Declare Function GetUserName Lib "advapi32.dll" _ Alias "GetUserNameA" (ByVal lpBuffer As String, _ nSize As Long) As Long
Dim User As String
User = Space(255) GetUserName User, Len(User) MsgBox User
-- Cordialement,
Jacques.
Bonjour,
Philippe Mermoud a écrit :
NOus disposons d'une macro sous Word dans laquelle nous souhaiterions
récupérer le nom de l'utilisateur connecté au poste sous WinNT (2000 ou XP).
Comment peut on faire cela ?
Ou avec l'API :
Private Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, _
nSize As Long) As Long
Dim User As String
User = Space(255)
GetUserName User, Len(User)
MsgBox User
NOus disposons d'une macro sous Word dans laquelle nous souhaiterions récupérer le nom de l'utilisateur connecté au poste sous WinNT (2000 ou XP). Comment peut on faire cela ?
Ou avec l'API :
Private Declare Function GetUserName Lib "advapi32.dll" _ Alias "GetUserNameA" (ByVal lpBuffer As String, _ nSize As Long) As Long
Dim User As String
User = Space(255) GetUserName User, Len(User) MsgBox User
-- Cordialement,
Jacques.
Guy DETIENNE
Salut ;O)
La méthode la plus sure est de passer par l'API GetUserName :
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Dim strUserName As String
'Create a buffer strUserName = String(100, Chr$(0)) 'Get the username GetUserName strUserName, 100 'strip the rest of the buffer strUserName = Left$(strUserName, InStr(strUserName, Chr$(0)) - 1) MsgBox "Utilisateur: " & strUserName
Guy
"Philippe Mermoud" a écrit dans le message de news:428b5cc3$0$17437$
NOus disposons d'une macro sous Word dans laquelle nous souhaiterions récupérer le nom de l'utilisateur connecté au poste sous WinNT (2000 ou
XP).
Comment peut on faire cela ?
Salut ;O)
La méthode la plus sure est de passer par l'API GetUserName :
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA"
(ByVal lpBuffer As String, nSize As Long) As Long
Dim strUserName As String
'Create a buffer
strUserName = String(100, Chr$(0))
'Get the username
GetUserName strUserName, 100
'strip the rest of the buffer
strUserName = Left$(strUserName, InStr(strUserName, Chr$(0)) - 1)
MsgBox "Utilisateur: " & strUserName
Guy
"Philippe Mermoud" <aqw@aqw.net> a écrit dans le message de
news:428b5cc3$0$17437$636a15ce@news.free.fr...
NOus disposons d'une macro sous Word dans laquelle nous souhaiterions
récupérer le nom de l'utilisateur connecté au poste sous WinNT (2000 ou
La méthode la plus sure est de passer par l'API GetUserName :
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Dim strUserName As String
'Create a buffer strUserName = String(100, Chr$(0)) 'Get the username GetUserName strUserName, 100 'strip the rest of the buffer strUserName = Left$(strUserName, InStr(strUserName, Chr$(0)) - 1) MsgBox "Utilisateur: " & strUserName
Guy
"Philippe Mermoud" a écrit dans le message de news:428b5cc3$0$17437$
NOus disposons d'une macro sous Word dans laquelle nous souhaiterions récupérer le nom de l'utilisateur connecté au poste sous WinNT (2000 ou
XP).
Comment peut on faire cela ?
Philippe Mermoud
Merci cela marche parfaitement !!!
"Guy DETIENNE" a écrit dans le message de news:
Salut ;O)
La méthode la plus sure est de passer par l'API GetUserName :
Private Declare Function GetUserName Lib "advapi32.dll" Alias
"GetUserNameA"
(ByVal lpBuffer As String, nSize As Long) As Long
Dim strUserName As String
'Create a buffer strUserName = String(100, Chr$(0)) 'Get the username GetUserName strUserName, 100 'strip the rest of the buffer strUserName = Left$(strUserName, InStr(strUserName, Chr$(0)) - 1) MsgBox "Utilisateur: " & strUserName
Guy
"Philippe Mermoud" a écrit dans le message de news:428b5cc3$0$17437$ > NOus disposons d'une macro sous Word dans laquelle nous souhaiterions > récupérer le nom de l'utilisateur connecté au poste sous WinNT (2000 ou XP). > Comment peut on faire cela ? > >
Merci cela marche parfaitement !!!
"Guy DETIENNE" <gd@NOSPAM.tchao.be> a écrit dans le message de news:
uwehtW8WFHA.2288@TK2MSFTNGP14.phx.gbl...
Salut ;O)
La méthode la plus sure est de passer par l'API GetUserName :
Private Declare Function GetUserName Lib "advapi32.dll" Alias
"GetUserNameA"
(ByVal lpBuffer As String, nSize As Long) As Long
Dim strUserName As String
'Create a buffer
strUserName = String(100, Chr$(0))
'Get the username
GetUserName strUserName, 100
'strip the rest of the buffer
strUserName = Left$(strUserName, InStr(strUserName, Chr$(0)) - 1)
MsgBox "Utilisateur: " & strUserName
Guy
"Philippe Mermoud" <aqw@aqw.net> a écrit dans le message de
news:428b5cc3$0$17437$636a15ce@news.free.fr...
> NOus disposons d'une macro sous Word dans laquelle nous souhaiterions
> récupérer le nom de l'utilisateur connecté au poste sous WinNT (2000 ou
XP).
> Comment peut on faire cela ?
>
>
La méthode la plus sure est de passer par l'API GetUserName :
Private Declare Function GetUserName Lib "advapi32.dll" Alias
"GetUserNameA"
(ByVal lpBuffer As String, nSize As Long) As Long
Dim strUserName As String
'Create a buffer strUserName = String(100, Chr$(0)) 'Get the username GetUserName strUserName, 100 'strip the rest of the buffer strUserName = Left$(strUserName, InStr(strUserName, Chr$(0)) - 1) MsgBox "Utilisateur: " & strUserName
Guy
"Philippe Mermoud" a écrit dans le message de news:428b5cc3$0$17437$ > NOus disposons d'une macro sous Word dans laquelle nous souhaiterions > récupérer le nom de l'utilisateur connecté au poste sous WinNT (2000 ou XP). > Comment peut on faire cela ? > >
Guy DETIENNE
Disons que tout bon professionnel du développement utilisera cette API. Content que cela te convienne.
Guy
"Philippe Mermoud" a écrit dans le message de news:428b7c7e$0$18781$
Merci cela marche parfaitement !!!
"Guy DETIENNE" a écrit dans le message de news:
> Salut ;O) > > La méthode la plus sure est de passer par l'API GetUserName : > > Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" > (ByVal lpBuffer As String, nSize As Long) As Long > > Dim strUserName As String > > 'Create a buffer > strUserName = String(100, Chr$(0)) > 'Get the username > GetUserName strUserName, 100 > 'strip the rest of the buffer > strUserName = Left$(strUserName, InStr(strUserName, Chr$(0)) - 1) > MsgBox "Utilisateur: " & strUserName > > Guy > > "Philippe Mermoud" a écrit dans le message de > news:428b5cc3$0$17437$ > > NOus disposons d'une macro sous Word dans laquelle nous souhaiterions > > récupérer le nom de l'utilisateur connecté au poste sous WinNT (2000
ou
> XP). > > Comment peut on faire cela ? > > > > > >
Disons que tout bon professionnel du développement utilisera cette API.
Content que cela te convienne.
Guy
"Philippe Mermoud" <aqw@aqw.net> a écrit dans le message de
news:428b7c7e$0$18781$636a15ce@news.free.fr...
Merci cela marche parfaitement !!!
"Guy DETIENNE" <gd@NOSPAM.tchao.be> a écrit dans le message de news:
uwehtW8WFHA.2288@TK2MSFTNGP14.phx.gbl...
> Salut ;O)
>
> La méthode la plus sure est de passer par l'API GetUserName :
>
> Private Declare Function GetUserName Lib "advapi32.dll" Alias
"GetUserNameA"
> (ByVal lpBuffer As String, nSize As Long) As Long
>
> Dim strUserName As String
>
> 'Create a buffer
> strUserName = String(100, Chr$(0))
> 'Get the username
> GetUserName strUserName, 100
> 'strip the rest of the buffer
> strUserName = Left$(strUserName, InStr(strUserName, Chr$(0)) - 1)
> MsgBox "Utilisateur: " & strUserName
>
> Guy
>
> "Philippe Mermoud" <aqw@aqw.net> a écrit dans le message de
> news:428b5cc3$0$17437$636a15ce@news.free.fr...
> > NOus disposons d'une macro sous Word dans laquelle nous souhaiterions
> > récupérer le nom de l'utilisateur connecté au poste sous WinNT (2000
ou
> XP).
> > Comment peut on faire cela ?
> >
> >
>
>
Disons que tout bon professionnel du développement utilisera cette API. Content que cela te convienne.
Guy
"Philippe Mermoud" a écrit dans le message de news:428b7c7e$0$18781$
Merci cela marche parfaitement !!!
"Guy DETIENNE" a écrit dans le message de news:
> Salut ;O) > > La méthode la plus sure est de passer par l'API GetUserName : > > Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" > (ByVal lpBuffer As String, nSize As Long) As Long > > Dim strUserName As String > > 'Create a buffer > strUserName = String(100, Chr$(0)) > 'Get the username > GetUserName strUserName, 100 > 'strip the rest of the buffer > strUserName = Left$(strUserName, InStr(strUserName, Chr$(0)) - 1) > MsgBox "Utilisateur: " & strUserName > > Guy > > "Philippe Mermoud" a écrit dans le message de > news:428b5cc3$0$17437$ > > NOus disposons d'une macro sous Word dans laquelle nous souhaiterions > > récupérer le nom de l'utilisateur connecté au poste sous WinNT (2000
ou
> XP). > > Comment peut on faire cela ? > > > > > >
Eric
Bonjour,
Si tu remplaces toutes les fonctions livrées avec VBA dans la suite Office, à quoi peut bien servir VBA ?
A terme, adieu VB ou VBA bonjour les API.
Ce n'est qu'un avis perso d'un mauvais programmeur -- A+ Eric
Guy DETIENNE a écrit :
Disons que tout bon professionnel du développement utilisera cette API. Content que cela te convienne.
Guy
Bonjour,
Si tu remplaces toutes les fonctions livrées avec VBA dans la suite
Office, à quoi peut bien servir VBA ?
A terme, adieu VB ou VBA bonjour les API.
Ce n'est qu'un avis perso d'un mauvais programmeur
--
A+
Eric
Guy DETIENNE a écrit :
Disons que tout bon professionnel du développement utilisera cette API.
Content que cela te convienne.
Si tu remplaces toutes les fonctions livrées avec VBA dans la suite Office, à quoi peut bien servir VBA ?
A terme, adieu VB ou VBA bonjour les API.
Ce n'est qu'un avis perso d'un mauvais programmeur
Mais non :-) Un des problèmes avec les variables d'environnements c'est qu'elles sont modifiables.
Essaie par exemple un batch :
Set USERNAME = "Toto" NomDuCheminExcelExcel.exe
Environ$("UserName") te renverras "Toto"
alors que l'api te renverras bien le nom qui a ouvert la session.
OK, je suis peut être un pau parano :-D
-- Cordialement,
Jacques.
Guy DETIENNE
Salut ;O)
Les API's sont là aussi pour palier aux manques de VBA et dieu sait qu'il y en a ... VBA ne possède pas de fonction pour connaître l'utilisateur connecté.
Environ$("UserName") n'est pas une méthode fiable que pour l'utiliser. Certes, elle fonctionnera dans la plupart des cas, mais comme le dit si bien Jacques, la variable d'environnement UserName est modifiable par le premier quidam de passage... donc à éviter absolument ;O)
Guy
"Eric" a écrit dans le message de news:O2Sc$
Bonjour,
Si tu remplaces toutes les fonctions livrées avec VBA dans la suite Office, à quoi peut bien servir VBA ?
A terme, adieu VB ou VBA bonjour les API.
Ce n'est qu'un avis perso d'un mauvais programmeur -- A+ Eric
Guy DETIENNE a écrit : > Disons que tout bon professionnel du développement utilisera cette API. > Content que cela te convienne. > > Guy >
Salut ;O)
Les API's sont là aussi pour palier aux manques de VBA et dieu sait qu'il y
en a ...
VBA ne possède pas de fonction pour connaître l'utilisateur connecté.
Environ$("UserName") n'est pas une méthode fiable que pour l'utiliser.
Certes, elle fonctionnera dans la plupart des cas, mais comme le dit si bien
Jacques, la variable d'environnement UserName est modifiable par le premier
quidam de passage... donc à éviter absolument ;O)
Guy
"Eric" <f_framZZ@hotmail.com> a écrit dans le message de
news:O2Sc$z9WFHA.1240@TK2MSFTNGP14.phx.gbl...
Bonjour,
Si tu remplaces toutes les fonctions livrées avec VBA dans la suite
Office, à quoi peut bien servir VBA ?
A terme, adieu VB ou VBA bonjour les API.
Ce n'est qu'un avis perso d'un mauvais programmeur
--
A+
Eric
Guy DETIENNE a écrit :
> Disons que tout bon professionnel du développement utilisera cette API.
> Content que cela te convienne.
>
> Guy
>
Les API's sont là aussi pour palier aux manques de VBA et dieu sait qu'il y en a ... VBA ne possède pas de fonction pour connaître l'utilisateur connecté.
Environ$("UserName") n'est pas une méthode fiable que pour l'utiliser. Certes, elle fonctionnera dans la plupart des cas, mais comme le dit si bien Jacques, la variable d'environnement UserName est modifiable par le premier quidam de passage... donc à éviter absolument ;O)
Guy
"Eric" a écrit dans le message de news:O2Sc$
Bonjour,
Si tu remplaces toutes les fonctions livrées avec VBA dans la suite Office, à quoi peut bien servir VBA ?
A terme, adieu VB ou VBA bonjour les API.
Ce n'est qu'un avis perso d'un mauvais programmeur -- A+ Eric
Guy DETIENNE a écrit : > Disons que tout bon professionnel du développement utilisera cette API. > Content que cela te convienne. > > Guy >