formule pour nom de L'utilisateur

Bonsoir à tous

La macro suivante me donne l'utilisateur du PC

Je voudrait avoir le nom de l'utilisateur dans une formule
ou comment faire pour incorporer cette macro a l'ouverture pour que le nom
de l'utilisateur soit dans la cellule "g3"

Sub UserName ()
With CreateObject("WScript.Network")
MsgBox "Current user is " & Application.UserName
End With
End Sub

Merci

bonjour Daniel,

soit par macro à l'ouverture du classeur,

Private Sub Workbook_Open()
Sheets("Feuil1").Range("G3") = Application.UserName
End Sub

ou bien par une fonction personnalisé,

Function NomUtilisateur()
NomUtilisateur = Application.UserName
End Function

isabelle

Bonsoir à tous

La macro suivante me donne l'utilisateur du PC

Je voudrait avoir le nom de l'utilisateur dans une formule
ou comment faire pour incorporer cette macro a l'ouverture pour que le
nom

de l'utilisateur soit dans la cellule "g3"

Sub UserName ()
With CreateObject("WScript.Network")
MsgBox "Current user is " & Application.UserName
End With
End Sub

Merci

Bonsoir Isabelle

Très bien cela fonctionne
En passant a tu recue mon courriel se soir :-) ??

Merci

"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de
news:40D78662.49820E43@videotron.ca...

bonjour Daniel,

soit par macro à l'ouverture du classeur,

Private Sub Workbook_Open()
Sheets("Feuil1").Range("G3") = Application.UserName
End Sub

ou bien par une fonction personnalisé,

Function NomUtilisateur()
NomUtilisateur = Application.UserName
End Function

isabelle

Bonsoir à tous

La macro suivante me donne l'utilisateur du PC

Je voudrait avoir le nom de l'utilisateur dans une formule
ou comment faire pour incorporer cette macro a l'ouverture pour que le
nom

de l'utilisateur soit dans la cellule "g3"

Sub UserName ()
With CreateObject("WScript.Network")
MsgBox "Current user is " & Application.UserName
End With
End Sub

Merci