Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel pour avoir un historique

pour avoir un historique

5 réponses
Avatar
Daniel
Bonsoir à tous

Comment peut t'on faire pour avoir un historique des enregistrement et
ouverture d'un fichier?

Merci a l'avance :-))
Signaler un problème avec ce contenu

5 réponses

Supprimer
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
Avatar
michdenis
Bonjour Daniel,


Suppose que tu ajoutes une feuille nommée "Toto" dans ton classeur :

étiquette de colonne A1 : Date et heure d'ouverture
étiquette de colonne B1 : Date et heure de fermeture

Afin de rendre cette feuille inaccessible de la part des usagers, tu peux utiliser ceci :

Worksheets("Toto").Visible = xlSheetVeryHidden



Dans le ThisWorkbook de ton classeur, tu copies ces procédures :

'-----------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)

With Worksheets("toto")
With .Range("B1:B" & Range("B65536").End(xlUp).Row)
.Value = Format(Now, "dd/mm/yyyy h:mm:Ss")
End With
End With

End Sub
'-----------------------------
Private Sub Workbook_Open()

With Worksheets("toto")
With .Range("A1:A" & Range("A65536").End(xlUp).Row)
.Value = Format(Now, "dd/mm/yyyy h:mm:Ss")
End With
End With
End Sub
'-----------------------------


Au besoin, tu peux ajouter quelques lignes de code, qui transmettront ces données à un fichier texte (.txt) désigné.


Salutations!



"Daniel" a écrit dans le message de news:Uqk8d.55812$
Bonsoir à tous

Comment peut t'on faire pour avoir un historique des enregistrement et
ouverture d'un fichier?

Merci a l'avance :-))
Avatar
Daniel
Bonsoir michdenis

Bonne idée
peut t'on ajouté UserName
tout cela dans la feuille "Donné" a collone
AN = UserName
AO = Date et heure d'ouverture
AP = Date et heure de fermeture
je masquerai les collone pour les rendre invisible.
il y a t'il moyen de s'avoir ci le fichier a été modifier ou juste vue?
Merci

"michdenis" a écrit dans le message de news:

Bonjour Daniel,


Suppose que tu ajoutes une feuille nommée "Toto" dans ton classeur :

étiquette de colonne A1 : Date et heure d'ouverture
étiquette de colonne B1 : Date et heure de fermeture

Afin de rendre cette feuille inaccessible de la part des usagers, tu peux
utiliser ceci :

Worksheets("Toto").Visible = xlSheetVeryHidden



Dans le ThisWorkbook de ton classeur, tu copies ces procédures :

'-----------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)

With Worksheets("toto")
With .Range("B1:B" & Range("B65536").End(xlUp).Row)
.Value = Format(Now, "dd/mm/yyyy h:mm:Ss")
End With
End With

End Sub
'-----------------------------
Private Sub Workbook_Open()

With Worksheets("toto")
With .Range("A1:A" & Range("A65536").End(xlUp).Row)
.Value = Format(Now, "dd/mm/yyyy h:mm:Ss")
End With
End With
End Sub
'-----------------------------


Au besoin, tu peux ajouter quelques lignes de code, qui transmettront ces
données à un fichier texte (.txt) désigné.


Salutations!



"Daniel" a écrit dans le message de
news:Uqk8d.55812$
Bonsoir à tous

Comment peut t'on faire pour avoir un historique des enregistrement et
ouverture d'un fichier?

Merci a l'avance :-))





Avatar
michdenis
Bonsoir Daniel,

Essaie ceci :



'----------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Lig As Long
With Worksheets("toto")
Lig = .Range("A65536").End(xlUp).Row
With .Range("C" & Lig)
.Value = Format(Now, "dd/mm/yyyy h:mm:Ss")
End With
If ThisWorkbook.Saved = True Then
With .Range("D" & Lig)
.Value = "Vu"
End With
Else
With .Range("D" & Lig)
.Value = "Fichier modifié"
End With
End If
End With

End Sub
'----------------------------
Private Sub Workbook_Open()
Dim Lig As Long

With Worksheets("toto")
Lig = .Range("A65536").End(xlUp).Row
With .Range("A" & Lig)
.Value = Environ("username")
End With
With .Range("B" & Lig)
.Value = Format(Now, "dd/mm/yyyy h:mm:Ss")
End With
End With
End Sub
'----------------------------


Salutations!



"Daniel" a écrit dans le message de news:7il8d.56933$
Bonsoir michdenis

Bonne idée
peut t'on ajouté UserName
tout cela dans la feuille "Donné" a collone
AN = UserName
AO = Date et heure d'ouverture
AP = Date et heure de fermeture
je masquerai les collone pour les rendre invisible.
il y a t'il moyen de s'avoir ci le fichier a été modifier ou juste vue?
Merci

"michdenis" a écrit dans le message de news:

Bonjour Daniel,


Suppose que tu ajoutes une feuille nommée "Toto" dans ton classeur :

étiquette de colonne A1 : Date et heure d'ouverture
étiquette de colonne B1 : Date et heure de fermeture

Afin de rendre cette feuille inaccessible de la part des usagers, tu peux
utiliser ceci :

Worksheets("Toto").Visible = xlSheetVeryHidden



Dans le ThisWorkbook de ton classeur, tu copies ces procédures :

'-----------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)

With Worksheets("toto")
With .Range("B1:B" & Range("B65536").End(xlUp).Row)
.Value = Format(Now, "dd/mm/yyyy h:mm:Ss")
End With
End With

End Sub
'-----------------------------
Private Sub Workbook_Open()

With Worksheets("toto")
With .Range("A1:A" & Range("A65536").End(xlUp).Row)
.Value = Format(Now, "dd/mm/yyyy h:mm:Ss")
End With
End With
End Sub
'-----------------------------


Au besoin, tu peux ajouter quelques lignes de code, qui transmettront ces
données à un fichier texte (.txt) désigné.


Salutations!



"Daniel" a écrit dans le message de
news:Uqk8d.55812$
Bonsoir à tous

Comment peut t'on faire pour avoir un historique des enregistrement et
ouverture d'un fichier?

Merci a l'avance :-))





Avatar
Daniel
Rebonsoir Michdenis
J'ai modifier un peu pour mon fichier
il y à une petite erreur, il recopie par dessu la dernière ligne.
à la place de mettre l'information une ligne plus bas a chaque exécution.
Merci

Private Sub Workbook_Open()
Sheets("Donné").Activate
Sheets("Donné").Range("AL1") = Application.UserName
Authorisation
Dim Lig As Long
With Worksheets("Donné")
Lig = .Range("An65536").End(xlUp).Row
With .Range("An" & Lig)
.Value = Environ("username")
End With
With .Range("ao" & Lig)
.Value = Format(Now, "dd/mm/yyyy h:mm:Ss")
End With
End With
ReplaceFenêtre
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Lig As Long
With Worksheets("Donné")
Lig = .Range("An65536").End(xlUp).Row
With .Range("ap" & Lig)
.Value = Format(Now, "dd/mm/yyyy h:mm:Ss")
End With
If ThisWorkbook.Saved = True Then
With .Range("aq" & Lig)
.Value = "Vu"
End With
Else
With .Range("aq" & Lig)
.Value = "Fichier modifié"
End With
End If
End With

End Sub


"michdenis" a écrit dans le message de news:

Bonsoir Daniel,

Essaie ceci :



'----------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Lig As Long
With Worksheets("toto")
Lig = .Range("A65536").End(xlUp).Row
With .Range("C" & Lig)
.Value = Format(Now, "dd/mm/yyyy h:mm:Ss")
End With
If ThisWorkbook.Saved = True Then
With .Range("D" & Lig)
.Value = "Vu"
End With
Else
With .Range("D" & Lig)
.Value = "Fichier modifié"
End With
End If
End With

End Sub
'----------------------------
Private Sub Workbook_Open()
Dim Lig As Long

With Worksheets("toto")
Lig = .Range("A65536").End(xlUp).Row
With .Range("A" & Lig)
.Value = Environ("username")
End With
With .Range("B" & Lig)
.Value = Format(Now, "dd/mm/yyyy h:mm:Ss")
End With
End With
End Sub
'----------------------------


Salutations!



"Daniel" a écrit dans le message de
news:7il8d.56933$
Bonsoir michdenis

Bonne idée
peut t'on ajouté UserName
tout cela dans la feuille "Donné" a collone
AN = UserName
AO = Date et heure d'ouverture
AP = Date et heure de fermeture
je masquerai les collone pour les rendre invisible.
il y a t'il moyen de s'avoir ci le fichier a été modifier ou juste vue?
Merci

"michdenis" a écrit dans le message de news:

Bonjour Daniel,


Suppose que tu ajoutes une feuille nommée "Toto" dans ton classeur :

étiquette de colonne A1 : Date et heure d'ouverture
étiquette de colonne B1 : Date et heure de fermeture

Afin de rendre cette feuille inaccessible de la part des usagers, tu peux
utiliser ceci :

Worksheets("Toto").Visible = xlSheetVeryHidden



Dans le ThisWorkbook de ton classeur, tu copies ces procédures :

'-----------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)

With Worksheets("toto")
With .Range("B1:B" & Range("B65536").End(xlUp).Row)
.Value = Format(Now, "dd/mm/yyyy h:mm:Ss")
End With
End With

End Sub
'-----------------------------
Private Sub Workbook_Open()

With Worksheets("toto")
With .Range("A1:A" & Range("A65536").End(xlUp).Row)
.Value = Format(Now, "dd/mm/yyyy h:mm:Ss")
End With
End With
End Sub
'-----------------------------


Au besoin, tu peux ajouter quelques lignes de code, qui transmettront ces
données à un fichier texte (.txt) désigné.


Salutations!



"Daniel" a écrit dans le message de
news:Uqk8d.55812$
Bonsoir à tous

Comment peut t'on faire pour avoir un historique des enregistrement et
ouverture d'un fichier?

Merci a l'avance :-))










Avatar
michdenis
Effectivement Daniel, tu as raison, j'ai omis un petit détail !

Remplace dans les 2 procédures cette ligne :


Lig = .Range("An65536").End(xlUp).Row

Par

Lig = .Range("A65536").End(xlUp)(2).Row


Salutations!



"Daniel" a écrit dans le message de news:Atn8d.64097$
Rebonsoir Michdenis
J'ai modifier un peu pour mon fichier
il y à une petite erreur, il recopie par dessu la dernière ligne.
à la place de mettre l'information une ligne plus bas a chaque exécution.
Merci

Private Sub Workbook_Open()
Sheets("Donné").Activate
Sheets("Donné").Range("AL1") = Application.UserName
Authorisation
Dim Lig As Long
With Worksheets("Donné")
Lig = .Range("An65536").End(xlUp).Row
With .Range("An" & Lig)
.Value = Environ("username")
End With
With .Range("ao" & Lig)
.Value = Format(Now, "dd/mm/yyyy h:mm:Ss")
End With
End With
ReplaceFenêtre
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Lig As Long
With Worksheets("Donné")
Lig = .Range("An65536").End(xlUp).Row
With .Range("ap" & Lig)
.Value = Format(Now, "dd/mm/yyyy h:mm:Ss")
End With
If ThisWorkbook.Saved = True Then
With .Range("aq" & Lig)
.Value = "Vu"
End With
Else
With .Range("aq" & Lig)
.Value = "Fichier modifié"
End With
End If
End With

End Sub


"michdenis" a écrit dans le message de news:

Bonsoir Daniel,

Essaie ceci :



'----------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Lig As Long
With Worksheets("toto")
Lig = .Range("A65536").End(xlUp).Row
With .Range("C" & Lig)
.Value = Format(Now, "dd/mm/yyyy h:mm:Ss")
End With
If ThisWorkbook.Saved = True Then
With .Range("D" & Lig)
.Value = "Vu"
End With
Else
With .Range("D" & Lig)
.Value = "Fichier modifié"
End With
End If
End With

End Sub
'----------------------------
Private Sub Workbook_Open()
Dim Lig As Long

With Worksheets("toto")
Lig = .Range("A65536").End(xlUp).Row
With .Range("A" & Lig)
.Value = Environ("username")
End With
With .Range("B" & Lig)
.Value = Format(Now, "dd/mm/yyyy h:mm:Ss")
End With
End With
End Sub
'----------------------------


Salutations!



"Daniel" a écrit dans le message de
news:7il8d.56933$
Bonsoir michdenis

Bonne idée
peut t'on ajouté UserName
tout cela dans la feuille "Donné" a collone
AN = UserName
AO = Date et heure d'ouverture
AP = Date et heure de fermeture
je masquerai les collone pour les rendre invisible.
il y a t'il moyen de s'avoir ci le fichier a été modifier ou juste vue?
Merci

"michdenis" a écrit dans le message de news:

Bonjour Daniel,


Suppose que tu ajoutes une feuille nommée "Toto" dans ton classeur :

étiquette de colonne A1 : Date et heure d'ouverture
étiquette de colonne B1 : Date et heure de fermeture

Afin de rendre cette feuille inaccessible de la part des usagers, tu peux
utiliser ceci :

Worksheets("Toto").Visible = xlSheetVeryHidden



Dans le ThisWorkbook de ton classeur, tu copies ces procédures :

'-----------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)

With Worksheets("toto")
With .Range("B1:B" & Range("B65536").End(xlUp).Row)
.Value = Format(Now, "dd/mm/yyyy h:mm:Ss")
End With
End With

End Sub
'-----------------------------
Private Sub Workbook_Open()

With Worksheets("toto")
With .Range("A1:A" & Range("A65536").End(xlUp).Row)
.Value = Format(Now, "dd/mm/yyyy h:mm:Ss")
End With
End With
End Sub
'-----------------------------


Au besoin, tu peux ajouter quelques lignes de code, qui transmettront ces
données à un fichier texte (.txt) désigné.


Salutations!



"Daniel" a écrit dans le message de
news:Uqk8d.55812$
Bonsoir à tous

Comment peut t'on faire pour avoir un historique des enregistrement et
ouverture d'un fichier?

Merci a l'avance :-))