suivre utilisateurs d'un fichier excel

Bonjour,

Historique dans un commentaire de la cellule modifiée:
http://boisgontierjacques.free.fr/fichiers/Evenementiel/HistoriqueModificat ion.xls

Mémorisation dans un onglet:
http://boisgontierjacques.free.fr/fichiers/Evenementiel/HistoriqueModif.xls

JB
http://boisgontierj.free.fr

Bonjour à tous,

J'aimerais savoir s'il est possible de tracer qui utilise un fichier Excel
et quand.
J'ai un fichier qui est sur un serveur et où des personnes peuvent venir
faire des modifications.
Je souhaiterais avoir, dans une des feuilles du classeur, le nom des
utilisateurs, la date et dans l'idéal quelles cellules il a modifié.
Est-ce possible ?

D'avance, merci de vos réponses.

Cdlt.

Bonjour JB,

Merci, c'est exactement ce qu'il me faut.
Existe-il un code qui s'applique à toutes les feuilles et me remontent donc
également le nom de la feuille?

Merci.
Cdlt

"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1190985600.671241.23500@50g2000hsm.googlegroups.com...
Bonjour,

Historique dans un commentaire de la cellule modifiée:
http://boisgontierjacques.free.fr/fichiers/Evenementiel/HistoriqueModification.xls

Mémorisation dans un onglet:
http://boisgontierjacques.free.fr/fichiers/Evenementiel/HistoriqueModif.xls

JB
http://boisgontierj.free.fr

Bonjour à tous,

J'aimerais savoir s'il est possible de tracer qui utilise un fichier Excel
et quand.
J'ai un fichier qui est sur un serveur et où des personnes peuvent venir
faire des modifications.
Je souhaiterais avoir, dans une des feuilles du classeur, le nom des
utilisateurs, la date et dans l'idéal quelles cellules il a modifié.
Est-ce possible ?

D'avance, merci de vos réponses.

Cdlt.

Dans ThisWorkBook:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
If Sh.Name <> "Espion" Then
Application.EnableEvents = False
temp = Application.CountA(Sheets("espion").Range("a:a")) + 1
Sheets("espion").Cells(temp, 1) = Sh.Name
Sheets("espion").Cells(temp, 2) = Target.Address
Sheets("espion").Cells(temp, 3) = Now
Sheets("espion").Cells(temp, 4) = [mémo]
Sheets("espion").Cells(temp, 5) = Target
Sheets("espion").Cells(temp, 6) = Environ("username")
Application.EnableEvents = True
End If
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal
Target As Range)
If Target.Count = 1 Then
ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr( 34)
& Target.Value & Chr(34)
End If
End Sub

http://cjoint.com/?jCtuub13mD

JB


On 28 sep, 15:32, "sophhia" <sofia...@gmail.com> wrote:

Bonjour JB,

Merci, c'est exactement ce qu'il me faut.
Existe-il un code qui s'applique à toutes les feuilles et me remontent donc
également le nom de la feuille?

Merci.
Cdlt

"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
1190985600.671241.23...@50g2000hsm.googlegroups.com...
Bonjour,

Historique dans un commentaire de la cellule modifiée:http://boisgontie rjacques.free.fr/fichiers/Evenementiel/HistoriqueMod...

Mémorisation dans un onglet:http://boisgontierjacques.free.fr/fichiers/ Evenementiel/HistoriqueMod...

JBhttp://boisgontierj.free.fr

Bonjour à tous,

J'aimerais savoir s'il est possible de tracer qui utilise un fichier Ex cel
et quand.
J'ai un fichier qui est sur un serveur et où des personnes peuvent ve nir
faire des modifications.
Je souhaiterais avoir, dans une des feuilles du classeur, le nom des
utilisateurs, la date et dans l'idéal quelles cellules il a modifié.
Est-ce possible ?

D'avance, merci de vos réponses.

Cdlt.- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -