Récupération du nom d'utilisateur... et de la station de travail

[Résolu]
Signaler
Messages postés
4
Date d'inscription
vendredi 22 juillet 2005
Statut
Membre
Dernière intervention
25 juillet 2005
-
Messages postés
4
Date d'inscription
vendredi 22 juillet 2005
Statut
Membre
Dernière intervention
25 juillet 2005
-
Bonjour !
Je cherche le moyen de récupérer le nomde l'utilisateur et de l'ordinateur sous Excel. C'est urgent ! Merci à tous !

6 réponses

Messages postés
809
Date d'inscription
mercredi 11 octobre 2000
Statut
Membre
Dernière intervention
29 septembre 2010
9
Salut,

Bon alors je change de stratégie :




Dim strComputerName As String
Dim strUserName As String
strComputerName = Environ("COMPUTERNAME")
strUserName = Environ("USERNAME")





++

Zlub
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 70 internautes nous ont dit merci ce mois-ci

Messages postés
809
Date d'inscription
mercredi 11 octobre 2000
Statut
Membre
Dernière intervention
29 septembre 2010
9
Salut,

Tu peux essayer ce code :



Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As Long



Private Sub CommandButton1_Click()

Dim sBuffer As String

Dim lSize As Long



sBuffer = Space$(255)

lSize = Len(sBuffer)

Call GetUserName(sBuffer, lSize)

If lSize > 0 Then

MsgBox Left$(sBuffer, lSize)

End If

End Sub


++

Zlub
Messages postés
4
Date d'inscription
vendredi 22 juillet 2005
Statut
Membre
Dernière intervention
25 juillet 2005

Salut ZLUB,


L'erreur suivante apparaît lorsque j'exécute la fonction : "Erreur de compilation. Sub ou Function non définie." et "Call GetUserName" est surligné.


D'autre part j'ai aussi besoin d'identifier l'ordinateur (par son nom de station...).

Quoi qu'il en soit, je te remercie de ton aide et te souhaite des bons... codes.


Ce que je n'ai pas précisé c'est que je bosse en VBA... Est-ce là le hic...?


Dans l'attente
Messages postés
809
Date d'inscription
mercredi 11 octobre 2000
Statut
Membre
Dernière intervention
29 septembre 2010
9
Salut,


ok, alors essais avec ceci

Set WshNetwork = WScript.CreateObject("WScript.Network")





Dim nom_machine


nom_machine = WshNetwork.ComputerName 'contient nom de la machine




Dim nom_user


nom_user = WshNetwork.UserName 'contient nom utilisateur





++

Zlub
Messages postés
4
Date d'inscription
vendredi 22 juillet 2005
Statut
Membre
Dernière intervention
25 juillet 2005

RE-SALUT ZLUB !


L'erreur suivante apparaît lorsque j'exécute la fonction : "Erreur de compilation. Variable non définie." et "WScript" est surligné.


C'est plutôt hardos !!!
Messages postés
4
Date d'inscription
vendredi 22 juillet 2005
Statut
Membre
Dernière intervention
25 juillet 2005

UN GRAND MERCI ZLUB !!!

Voici ce que j'ai tapé :

Private Sub CommandButton1_Click()
'
Dim strComputerName As String
Dim strUserName As String
strComputerName = environ("COMPUTERNAME")
strUserName = environ("USERNAME")
Range("A1").Value = strUserName
Range("A2").Value = strComputerName
'
End Sub

Et ça marche !!!

J'espère que j'aurai l'honneur de pouvoir t'aider un jour !!! Merci encore!
Ainsi je pourrai partir en vacances dans la paix !!!