Saisie automatique du loggin modifiant un fichier

[Pion²]

Bonjour à tous,

Je vous présente par avance, mes plus plates excuses : j'ai la tête dans la pâté depuis ce matin. Si la réponse est déjà donnée, je l'ai loupée par manque de caféine 😛 !

J'ai un document Excel à pondre, et l'un des champs devrait contenir le nom de la dernière personne qui a modifié le document.
J'ai déjà regardé dans les propriétés du fichier (clic-droit puis 'Propriétés') : l'information renvoyé correspond au nom de la personne à qui est accordée la license Office.

Existerait-il une fonction sous Excel qui permette de retrouver le loggin de la dernière personne ayant modifié le fichier ?
Si oui, laissez-moi prendre une dizaine de cafés supplémentaires et ça devrait aller :whistle: .
Si non, une âme charitable pourrait-elle me dépanner 😱 ?

Merci par avance 😉 ...

 

[MichelXld]

bonjour

cette macro ( à placer au niveau de ThisWorkbook ) enregistre dans la cellule A1 le nom de l'utilisateur , à chaque sauvegarde

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


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim lpBuff As String * 25
Dim Ret As Long

Ret = GetUserName(lpBuff, 25)
Range('A1'Â'Â') = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)

End Sub

bonne soiree
MichelXld

Message édité par: MichelXld, à: 02/05/2005 18:04

 

[Pion²]

Un premier merci pour la réponse 🙂 .

Je teste ça demain matin, et je vous en dis plus !

 

[Pion²]

Nous voici déjà le lendemain matin 😉 ...

J'ai testé sur mon fichier, et j'ai le plaisir de vous annoncer que ça fonctionne !!

Merci beaucoup 🙂 !