NOM DE l'ORDINATEUR DANS UNE CELLULE

S

Sophie

Guest
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
 

Charly2

Nous a quittés en 2006
Repose en paix
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
 

Charly2

Nous a quittés en 2006
Repose en paix
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

XLDnaute Barbatruc
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

Nous a quittés en 2006
Repose en paix
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
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 846
dernier inscrit
Silhabib