NOM DE l'ORDINATEUR DANS UNE CELLULE

  • Initiateur de la discussion Initiateur de la discussion Sophie
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
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
 
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
 
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
Microsoft 365 NFC et Excel
Réponses
1
Affichages
109
Réponses
5
Affichages
84
  • Question Question
Microsoft 365 Imbrication
Réponses
2
Affichages
82
Retour