Discussion :

[ericdev67]

Bonsoir,

Grace au code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Option Explicit
    'ouverture base des chemins
 
Private Const Chemin As String = "k:\Sauvegarde\er.xls"
 
'Evenement ouverture du classeur
Sub Workbook_Open()
    Dim Cible As Integer
 
    Cible = FreeFile
 
    Open Chemin For Append As #Cible
        Print #Cible, Environ("UserName"), Date
    Close #Cible
End Sub

Je sais quel utilisateur a ouvert le classeur, par contre y-a-t-il un moyen de savoir quelles modifs ont été faites = historique des modifications et/ou interventions sur le classeur

Merci
A+

[Gorfael]

Salut ericdev67 et le forum
euh... Menu OUtils>>Suivi des modifications ?
Regardes dans l'aide
A+

[ericdev67]

Merci Gorfael,

Je ne connaissais pas cette fonction.....effectivement, c'est exactement ce que je recherchais

Merci
A+

[Montor]

Le fichier doit etre enregistrer comme un classeur partager

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
With ActiveWorkbook
        .HighlightChangesOptions When:=xlAllChanges, Who:="_Office"
        .HighlightChangesOnScreen = True
        .ListChangesOnNewSheet = True
    End With