créer un historique de consultation automatique

[gx2]

Bonjour a tous,

Dans un classeur excel, je souhaiterai créer un historique des consultaions à l'ouverture de ce dernier.
C'est à dire sur une feuille nommé 'historique', qu'il soit renseigné le nom de l'utilisateur ainsi que la date et l'heure auquel le fichier a été ouvert.

J'ai déjà une bonne partie du code mais seulement, c'est au niveau du nom de l'utilisateur que je bloque. Apparemment, le nom inscrit fait référence a celui de la liscence du logiciel. Hors le classeur est utilisé en réseau donc c'est celui de l'ordinateur ou alors de la session que je souhaiterai.

Pouriez vous m'aider svp.
Merci d'avance à tous.

ps. (mon code actuel a corriger)

Dim Date_Ouv As String
Dim Case_en_Cours As String
Dim X As Integer
'
Date_Ouv = Application.UserName & ' a consulté le tableau le ' & Format(Date, 'dd/mm/yyyy') & ' à ' & Format(Now, 'h') & 'h' & Format(Now, 'nn')
Sheets('Feuil2').Select
Range('A1').Select
X = 1
Do
X = X + 1
If Cells(X, 1) = '' Then Exit Do
If X = 65536 Then
MsgBox ('plantage macro, limite colonne atteinte')
Exit Sub
End If
Loop
Cells(X, 1) = Date_Ouv

 

[MichelXld]

bonsoir

tu peux utiliser

MsgBox Environ('username')

ou

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

Sub nomUtilisateur()
Dim lpBuff As String * 25
Dim ret As Long

ret = GetUserName(lpBuff, 25)
MsgBox Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
End Sub


bonne soirée
MichelXld

Message édité par: michelxld, à: 14/06/2006 17:55

Message édité par: michelxld, à: 14/06/2006 18:00

 

[gx2]

Merci d'avoir répondu et aussi rapidement en plus !!!

Lorsque je tape tes lignes de code il me met 'erreur de compilation' pour 'GetUserName' ???

 

[MichelXld]

rebonsoir

peux tu montrer la macro que tu as utilisé ?

sinon as tu essayé Environ('username') ?


bonne soirée
MichelXld

 

[gx2]

oui en fait j'avais zappé la première solution :whistle:

Et celle ci marche très bien ! Désolé et merci pour tout. 😉