Macro pour savoir qui a enregistré en dernier

[judikael]

Bonjour

Existe-t-il une macro qui permet de faire apparaître le nom de la dernière personne qui a enregistré un document. J'entends par nom le user, car dans ma boîte nous sommes en réseau

Si oui, quelle est-elle?

MercI

 

[ChTi160]

Re : Macro pour savoir qui a enregistré en dernier

Salut judikael

il y a bien une possibilité en VBA
que tu peux utiliser dans la procèdure BeforeSave ou autre

NomUsager = Application.[COLOR=Blue]UserName[/COLOR] 
      Range("A1")=NomUsager

Bonne fin de Journée

 

[judikael]

Re : Macro pour savoir qui a enregistré en dernier

Merci Chti mais je ne suis meme pas au niveau débutant au niveau VBA

donc je comprends ce que tu veux me dire mais je ne connais pas le langage de programmation...

 

[JCGL]

Re : Macro pour savoir qui a enregistré en dernier

Bonjour à tous,
Salut JM Tchou-Tchou 🙂 ,

Place ce code dans le ThisWorkBook de ton fichier (accesible par Alt F11)

Option Explicit

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
NomUsager = Application.UserName
Range("A1") = NomUsager
End Sub

A+

 

[judikael]

Re : Macro pour savoir qui a enregistré en dernier

Merci

grâce à vous quand mon chef enregistrera des trucs dans les fichiers, il ne dira plus que c'est moi qui ai salopé le boulot 😉

 

[ChTi160]

Re : Macro pour savoir qui a enregistré en dernier

Salut judikael
bonsoir JC

Arff Alors tu mets une feuille cachée et ainsi tu auras l'ensemble des modifications

  Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  NomUsager = Application.UserName
  With WorkSheets(Nom de la feuille cachée)
     DerLigne=.Range("A65536").End(xlUp).Row+1 [SIZE=1][COLOR=Green]'on détecte la derniere ligne vide[/COLOR][/SIZE]
       .Cells(Derligne,1)= Format(Date,"dd/mm/yyyy") [SIZE=1][COLOR=Green]'ici on mets la date du Jour[/COLOR][/SIZE]
       .Cells(Derligne,2)= NomUsager   [SIZE=1][COLOR=Green] 'ici le Nom du User[/COLOR][/SIZE]
       .Cells(Derligne,1)= ActiveWorkBook.Name [SIZE=1]'[/SIZE][SIZE=1][COLOR=Green]le Nom du Classeur[/COLOR][/SIZE]
  End with
  End Sub

Bonne fin de Soirée

 

[JCGL]

Re : Macro pour savoir qui a enregistré en dernier

Re,

Une toute petite modif et un ajout de l'heure de la sauvegarde sur le code de JM (on est jamais trop prudent avec les chefs arf...) :

Option Explicit 'ChTi160 sur XLD
Dim NomUsager
Dim Derligne As Integer

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
NomUsager = Application.UserName
With Worksheets("Archives")
Derligne = .Range("A65536").End(xlUp).Row + 1 'on détecte la derniere ligne vide
.Cells(Derligne, 1) = Format(Date, "mm/dd/yyyy") & " à " & Format(Time, "hh:mm:ss") 'ici on mets la date du Jour
.Cells(Derligne, 2) = NomUsager 'ici le Nom du User
.Cells(Derligne, 3) = ActiveWorkbook.Name 'le Nom du Classeur
End With
End Sub

A+

 

[Pierrot93]

Re : Macro pour savoir qui a enregistré en dernier

Bonjour Jadikael, Jean Marie, Jean Claude, Tatiak

une autre solution pour récupérer le login réseau :

Dim x As String
x = Environ("UserName")

bonne journée
@+

 

[judikael]

Re : Macro pour savoir qui a enregistré en dernier

Merci pour toutes ces précisions

j'avoue ne pas encore saisir toutes les subtilités de vos codes mais je les trouve géniaux

merci encore... et en effet nous ne sommes jamais assez prudents avec les chefs

:d