feuille récapitulative de modification

[bertgrav]

bonjour,

je voudrais créer une feuille récapitulative de modification

j'ai déjà vu dans ce forum ce type de demande, mais je n'arrive pas à retrouver ces messages.
dans une feuille nommée récap, à chaque sauvegarde de document, il y aurait dans cette feuille le nom de la personne qui enregistre, la date et l'heure
en colonne A le nom, en B la date, en C l'heure

merci de votre aide

chantal

 

[Dan]

Re : feuille récapitulative de modification

Bonjour,

Oui, mais il faut que le classeur soi t enregistré en mode partagé.
- te mettre en mode partagé d'abord -> menu / outils / partage du classeur
- sous l'onglet "modifications", cocher la case "permettre modification"
- vas dans menu / outils / suivi de modification
- Coche les cases "suivre les modification…" et "lister les modifications dans …"

A bientôt

 

[bertgrav]

Re : feuille récapitulative de modification

merci pour l'info dan

mais je voudrais créer une macro vba qui me donne le nom et la date des enregistrements successifs
je voudrais le code qui me donne en A1 le nom de la personne qui enregistre etc...
je créerais ensuite le code pour ne garder que les 100 derniers enregistrements


merci

chantal

 

[bertgrav]

Re : feuille récapitulative de modification

bonsoir à tous

j'ai réussi à trouver des bouts de code à droite et à gauche, et j'ai fait ceci à mettre dans this workbook

le code me donne les enregistrements successifs et masque la feuille de sauvegarde et supprime toutes les lignes au delà de la 20ème

si quelqu'un a plus simple je prends.....

chantal



Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Sheets("sauvegarde").Visible = True
Sheets("sauvegarde").Select
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Cells(1, 1).Value = Application.UserName
Cells(1, 2) = Date & " à " & Time

derligne = Range("a65500").End(xlUp).Row
If derligne > 19 Then

For cpt = 20 To derligne
Rows(20).Delete Shift:=xlUp
Next cpt
Else
End If
Sheets("sauvegarde").Visible = False

End Sub

 

[Dan]

Re : feuille récapitulative de modification

Bonsoir,

Ok avec ses nouvelles explications je comprend mieux.
Revoici ta macro que j'ai modifiée :

Option explicit
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim derligne As Long, cpt As Long
Application.ScreenUpdating = False
With Sheets("sauvegarde")
    .Cells(1, 1).EntireRow.Insert
    .Cells(1, 1).value = Application.UserName
    .Cells(1, 2).value = Date & " à " & Time
End With
derligne = Range("A65536").End(xlUp).Row
If derligne > 19 Then
For cpt = 20 To derligne
Rows(20).Delete Shift:=xlUp
Next cpt
End If
Sheets("sauvegarde").Visible = False
Application.ScreenUpdating = True
End Sub

Si pb n'hésite pas

Edition : Lorsque tu caches ta feuille tu peux aussi remplacer FALSE par XLVERYHIDDEN. De cette sorte tu ne donneras pas la possibilité d'afficher la feuille par menu/format/feuille. Pour la voir, XLSHEETVISIBLE.