Saisie automatique

Bonsoir,
Le n° de l'employé ? C'est, je crois, assez flou.
Chaque utilisateur se connecte avec son nom de user, son mot de passe
et un domaine et ce sur une machine clairement identifiée sur le réseau de
l'entreprise.
Quel est celui qui doit apparaître dans le textbox ?
Là, sur le moment, je n'ai pas de solution, mais je peux éventuellement me
renseigner.

PS : à partir de tes demandes précédentes, j'ai cru deviner dans quelle
entreprise
tu officiais ( N et RIF, j'ai déjà vu cela sur des écrans SAP .....)

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"Denys" <Denys@discussions.microsoft.com> a écrit dans le message de news:
1C5D3B8C-7C8E-46BB-9030-12D4CB916CC8@microsoft.com...

Bonjour à tous,

Est-il possible qu'Excel saisisse automatiquement le numéro d'employé
assigné à l'utilisateur de l'ordinateur?

En plus clair, je voudrais que dans le textbox 1 du userform de mon
application qu'apparaisse le numéro de l'employé qui a ouvert
l'application.
Comme celle-ci se trouve sur un serveur, différents usagers peuvent
utiliser
l'application...

Merci pour votre temps...

Denys

Bonjour à tous,

Est-il possible qu'Excel saisisse automatiquement le numéro d'employé
assigné à l'utilisateur de l'ordinateur?

En plus clair, je voudrais que dans le textbox 1 du userform de mon
application qu'apparaisse le numéro de l'employé qui a ouvert l'application.
Comme celle-ci se trouve sur un serveur, différents usagers peuvent utiliser
l'application...

Merci pour votre temps...

Denys

Bonsoir,

Je reprends basiquement la question : qui ouvre l'appli ?
Je crains que le problème principal ne soit de découvrir qui a
réellement ouvert l'appli autrement que par le nom de login.
X squatte le pc où Y s'est loggé(e) parce que ce poste était libre ...

Pas de solution au pebkac.

Pour le login :
With CreateObject("WScript.NetWork")
MsgBox "Utilisateur: " & vbTab & .UserName
Msgbox "Ordinateur: " & vbTab & .ComputerName
Msgbox "Domaine: " & vbTab & .UserDomain
End With

@+
FxM

Bonsoir FxM et Pounet,

Merci pour votre temps et vos réponses.

J'ai trouvé ce que je cherchais sur le site de Frédéric Sigonneau. Avec
quelques modifications. j'ai pu l'adapter à mes besoins.... Je voulais que
celui qui a ouvert l'ordi ait son no d'employé inscrit dans un textbox afin
que l'on sache qui a fait quoi..

Voici le code:


Attribute VB_Name = "GetLoggedUser"



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


Sub GetLoginName()
'Chris Amess, mpep
'Gets the currently logged on user from the system

Dim strName As String
Dim lngReturn As Long
Dim strLoginName As String

'Gets users Name using API call
strName = Space$(25)
lngReturn = GetUserName(strName, 25)

If lngReturn = 1 Then
strLoginName = Left$(strName, 6) ' I use this because I am only
'expecting 6 characters, you could use Trim(strName)
DoEvents
MsgBox strLoginName
Else
MsgBox "Couldn't get the user's Name from the network."
End If

End Sub


Ca c'est l'original... Après Do events, j'ai modifié pour que le no
d'utilisateur s'inscrive sur la feuille active, avec le Userform. Donc, pour
chaque entrée de données, je saurai qui l'aura inscrite... (étant donné qu'il
y a plusieurs utilisateurs)

Quoi qu'il en soit, tout fonctionne très bien.... FxM, je retiens ton bout
de code, il me sera sûrement utile plus tard..

Bonne soirée à vous deux...et encore merci

Denys