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?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
David
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" a écrit dans le message de news:
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
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" <mik@discussions.microsoft.com> a écrit dans le message de news:
01149B81-55A1-40A1-AD0A-D9CE5FB681F0@microsoft.com...
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?
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" a écrit dans le message de news:
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
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" a écrit dans le message de news:
> 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
.
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" <mik@discussions.microsoft.com> a écrit dans le message de news:
01149B81-55A1-40A1-AD0A-D9CE5FB681F0@microsoft.com...
> 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
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" a écrit dans le message de news:
> 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