NOM DE l'ORDINATEUR DANS UNE CELLULE

[Sophie]

Je souhaiterais savoir comment on peut inscrire dans une cellule le nom de la personne (le nom de l'ordinateur en fait) qui saisit des données dans la feuille.
Merci de votre réponse

 

[PascalXLD]

Bonjour

Fil déplacé dans le bon forum

 

[Charly2]

Bonjour Sophie et Pascal76, bonjour le forum,

Voici le code à placer par exemple lors de l'ouverture du classeur :

Private Sub Workbook_Open()
'
Range(TaCellule).Value = Application.Username

End Sub

Amicalement
Charly

 

[MichelXld]

bonjour Sophie , Pascal et Charly

Range('A1') = Environ(5)


bonne journée
MichelXld

 

[Charly2]

Re-bonsoir Sophie et Pascal76, bonsoir Michel, bonsoir le forum,

Chez moi (Windows 98 SE et XL 97), Environ(5) me donne : PATH=....

C'est pourquoi j'ai privilégié la propriété Username de l'objet Application. Je pense qu'elle donne le bon résultat quel que soit le système d'exploitation et la version XL... Quelqu'un peut-il me confimer cela ?

Amicalement
Charly

 

[MichelXld]

bonjour Charly

pour moi Application.UserName correspond à

Menu Outils
Options
onglet général
nom de l'utilisateur

sinon tu peux tester ces 2 autres procedures

Declare Function GetComputerName& Lib 'kernel32' Alias 'GetComputerNameA' _
(ByVal lbbuffer As String, nSize As Long)

Sub AfficherNomPC()
Dim Info As String * 64
GetComputerName Info, 64
MsgBox 'Nom du PC : ' & Info, , 'Message'
End Sub

et

Sub AfficherNomPC()
Dim WshShell As Object
Dim nomPC As String

Set WshShell = CreateObject('WScript.Shell')
nomPC = WshShell.ExpandEnvironmentStrings('%ComputerName%')

MsgBox nomPC
End Sub


bon week end
MichelXld

 

[Charly2]

Bonjour à toutes et tous 🙂

Merci Michel d'avoir pris le temps de me répondre. Je saurai maintenant que le résultat dépend de la version d'XL et/ou de l'OS.

Je garde tes procédures au chaud 😉

Amicalement
Charly