Bonjour,
J'aimerais recupérer l'utilisateur Windows pour l'intégrer dans une
cellule
Je dis bien Windows et non Office.
Merci d'avance
Bonjour,
J'aimerais recupérer l'utilisateur Windows pour l'intégrer dans une
cellule
Je dis bien Windows et non Office.
Merci d'avance
Bonjour,
J'aimerais recupérer l'utilisateur Windows pour l'intégrer dans une
cellule
Je dis bien Windows et non Office.
Merci d'avance
Bonjour,
J'aimerais recupérer l'utilisateur Windows pour l'intégrer dans une cellule
Je dis bien Windows et non Office.
Merci d'avance
Bonjour,
J'aimerais recupérer l'utilisateur Windows pour l'intégrer dans une cellule
Je dis bien Windows et non Office.
Merci d'avance
Bonjour,
J'aimerais recupérer l'utilisateur Windows pour l'intégrer dans une cellule
Je dis bien Windows et non Office.
Merci d'avance
Bonjour,
J'aimerais recupérer l'utilisateur Windows pour l'intégrer dans une cellule
Je dis bien Windows et non Office.
Merci d'avance
Bonjour,
J'aimerais recupérer l'utilisateur Windows pour l'intégrer dans une cellule
Je dis bien Windows et non Office.
Merci d'avance
Bonjour,
J'aimerais recupérer l'utilisateur Windows pour l'intégrer dans une cellule
Je dis bien Windows et non Office.
Merci d'avance
Bonjour Frédéric,
Il y a aussi ceci :
Paru sous la plume d'un illustre MVP....
;-))
Serait-ce par "Environ" n'est pas fiable ?
;-))
'--------------------------
Function NomUser()
Dim i&, S$
Do
i = i + 1
NomUser = Split(Environ(i), "=")(1)
S = UCase(Split(Environ(i), "=")(0))
Loop While S <> "USERNAME"
End Function
Ça me paraît assez rapide (sur ma machine il n'y a que 31 variables
d'environnement), et utilisable dans une feuille de calcul. On pourrait imaginer
d'autres petites fonctions sur le même principe en récupérant le nom des
variables à l'aide d'une procédure comme celle-ci :
Sub test()
Dim i&
On Error GoTo Fin
Do
i = i + 1
Cells(i, 1).Value = UCase(Split(Environ(i), "=")(0))
Cells(i, 2).Value = Split(Environ(i), "=")(1)
Loop
Fin:
End Sub
'--------------------------
Salutations!
"Frédéric Sigonneau" a écrit dans le message de news:
Bonjour,
Autre possibilité :
Sub GetCurrentSessionUserName()
'nom de l'utilisateur de la session courante
MsgBox Environ("username")
End Sub
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
J'aimerais recupérer l'utilisateur Windows pour l'intégrer dans une cellule
Je dis bien Windows et non Office.
Merci d'avance
Bonjour Frédéric,
Il y a aussi ceci :
Paru sous la plume d'un illustre MVP....
;-))
Serait-ce par "Environ" n'est pas fiable ?
;-))
'--------------------------
Function NomUser()
Dim i&, S$
Do
i = i + 1
NomUser = Split(Environ(i), "=")(1)
S = UCase(Split(Environ(i), "=")(0))
Loop While S <> "USERNAME"
End Function
Ça me paraît assez rapide (sur ma machine il n'y a que 31 variables
d'environnement), et utilisable dans une feuille de calcul. On pourrait imaginer
d'autres petites fonctions sur le même principe en récupérant le nom des
variables à l'aide d'une procédure comme celle-ci :
Sub test()
Dim i&
On Error GoTo Fin
Do
i = i + 1
Cells(i, 1).Value = UCase(Split(Environ(i), "=")(0))
Cells(i, 2).Value = Split(Environ(i), "=")(1)
Loop
Fin:
End Sub
'--------------------------
Salutations!
"Frédéric Sigonneau" <frederic.sigonneau@wanadoo.fr> a écrit dans le message de news:3F4DBE22.6E40364A@wanadoo.fr...
Bonjour,
Autre possibilité :
Sub GetCurrentSessionUserName()
'nom de l'utilisateur de la session courante
MsgBox Environ("username")
End Sub
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
J'aimerais recupérer l'utilisateur Windows pour l'intégrer dans une cellule
Je dis bien Windows et non Office.
Merci d'avance
Bonjour Frédéric,
Il y a aussi ceci :
Paru sous la plume d'un illustre MVP....
;-))
Serait-ce par "Environ" n'est pas fiable ?
;-))
'--------------------------
Function NomUser()
Dim i&, S$
Do
i = i + 1
NomUser = Split(Environ(i), "=")(1)
S = UCase(Split(Environ(i), "=")(0))
Loop While S <> "USERNAME"
End Function
Ça me paraît assez rapide (sur ma machine il n'y a que 31 variables
d'environnement), et utilisable dans une feuille de calcul. On pourrait imaginer
d'autres petites fonctions sur le même principe en récupérant le nom des
variables à l'aide d'une procédure comme celle-ci :
Sub test()
Dim i&
On Error GoTo Fin
Do
i = i + 1
Cells(i, 1).Value = UCase(Split(Environ(i), "=")(0))
Cells(i, 2).Value = Split(Environ(i), "=")(1)
Loop
Fin:
End Sub
'--------------------------
Salutations!
"Frédéric Sigonneau" a écrit dans le message de news:
Bonjour,
Autre possibilité :
Sub GetCurrentSessionUserName()
'nom de l'utilisateur de la session courante
MsgBox Environ("username")
End Sub
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
J'aimerais recupérer l'utilisateur Windows pour l'intégrer dans une cellule
Je dis bien Windows et non Office.
Merci d'avance