Traceur de modif

Le
mik
Bonjour,

je chercherais à tracer toutes les modifs apportés sur un fichier excel (via
le user réseau).
Est-ce que quelqu'un aurait déjà planché sur ce genre de problème? Par quel
bout le prendre?

Merci de votre aide,
mik
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
David
Le #20421541
Bonjour Mik,

Un début de solution :

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

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34) &
ActiveCell.Value & Chr(34)
End Sub


Copie les modifs des feuilles dans la feuille "Espion".

--
a+ Jean-Pol
Site Web : www.colovid.be
Site Web perso pour le fun : http://users.skynet.be/DAVID/
Cette page est transmise avec des électrons 100% recyclés.


"mik"
Bonjour,

je chercherais à tracer toutes les modifs apportés sur un fichier excel
(via
le user réseau).
Est-ce que quelqu'un aurait déjà planché sur ce genre de problème? Par
quel
bout le prendre?

Merci de votre aide,
mik


mik
Le #20423051
Il se passe rien du tout... Il y un truc qui m'échappe dans le code

"David" wrote:

Bonjour Mik,

Un début de solution :

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

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34) &
ActiveCell.Value & Chr(34)
End Sub


Copie les modifs des feuilles dans la feuille "Espion".

--
a+ Jean-Pol
Site Web : www.colovid.be
Site Web perso pour le fun : http://users.skynet.be/DAVID/
Cette page est transmise avec des électrons 100% recyclés.


"mik"
> Bonjour,
>
> je chercherais à tracer toutes les modifs apportés sur un fichier excel
> (via
> le user réseau).
> Est-ce que quelqu'un aurait déjà planché sur ce genre de problème? Par
> quel
> bout le prendre?
>
> Merci de votre aide,
> mik


.



Publicité
Poster une réponse
Anonyme