Qui a modifié le fichier ?

E

edi

XLDnaute Nouveau

• 20 Mai 2015

• #16

Re : Qui a modifié le fichier ?

Re Michel,
Ok ça marche. Et ça fonctionne aussi avec simplement Ws1 = Sheets(ActiveSheet.Name).
Merci encore pour ta disponibilité.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dte = Format(Date, "dd mm yyyy")
Hre = Format(Now, "hh:mm")
Set Ws1 = Sheets(ActiveSheet.Name)
With Ws1
'.Range("E1").Value = Application.UserName & " " & Dte & " " & hre
.Range("A5").Value = "Dernier enregistrement par:" & "" & " " & "" & " " & Application.UserName & " " & " - " & Dte & " " & " à " & " " & Hre & ""
.Range("A73").Value = Application.UserName ''''ajoute Nom Utilisateur
End With
End Sub

 

Vote positif 0 Vote négatif

E

edi

XLDnaute Nouveau

• 28 Mai 2015

• #17

Re : Qui a modifié le fichier ?

Bonsoir Michel,
Désolé pour le retard de la réponse (j'étais en repos), effectivement en modifiant comme indiqué, ça marche.
Merci pour tout.

Edi

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Mai 2015

• #18

Re : Qui a modifié le fichier ?

Bonjour,

Mais qu'est-ce qu'il t'arrive Michel ???

Workbooks(ActiveWorkbook.Name) c'est la même chose que ActiveWorkbook

Sheets(ActiveSheet.Name) c'est la même chose que ActiveSheet

Workbooks(ActiveWorkbook.Name).Sheets(ActiveSheet.Name) c'est la même chose que... ActiveSheet

A+

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 28 Mai 2015

• #19

Re : Qui a modifié le fichier ?

Re Edi, Bonjour Job

Merci Edi pour le retour.

Gérard: Ah, ben tu m'en apprend de belles .

Bon, mais c'est un truc qui m'était resté en allant un jour sur le site de Chip qui disait qu'il fallait bien déclaré le Workbook puis la Sheet et enfin la cell .

 

Dernière édition: 28 Mai 2015

Vote positif 0 Vote négatif

T

Trois

XLDnaute Nouveau

• 3 Mars 2019

• #20

Bonjour,

Est ce que vous savez comment faire pour savoir qui a modifié un fichier Word?

Merci

titin à dit:

bonjour à tous salut Gipéhel

ci joint un petit exemple

lorsque tu en renregistre le fichier, alors se rajoute en A1 le nom la date et l'heure.
bien donné un Nom personnel sur chaque PC utilisant ton fichier [file name=titin_20060322140833.zip size=7730]Lien supprimé

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Mars 2019

• #21

Bonsoir Trois, bienvenue sur XLD, bonsoir le fil,

Trois à dit:

Est ce que vous savez comment faire pour savoir qui a modifié un fichier Word?

Cliquez pour agrandir...

Ici c'est un forum Excel mais bon, placez dans ThisDocument du fichier Word joint (Alt+F11) :

VB:

Public WithEvents appWord As Word.Application

Private Sub Document_Open()
Set appWord = Word.Application
End Sub

Private Sub appWord_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean)
ThisDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range.Text = Environ("UserName") & " " & Now
End Sub

Enregistrez le document et voyez le pied de page.

Bonne nuit.

 

Pièces jointes

• MonDoc(1).zip

  17.9 KB · Affichages: 6

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 4 Mars 2019

• #22

Bonjour,

c'est un forum excel ici....
Ceci dit dans, 'Revision' cocher 'Suivi des modifications'.
Et pour savoir qui, afficher le 'Volet vérifications'
eric

 

Vote positif 0 Vote négatif

T

Trois

XLDnaute Nouveau

• 4 Mars 2019

• #23

Bonjour,
Merci à vous deux. Je vais tester.

 

Vote positif 0 Vote négatif