enregistrement before close

[marleauc]

Bonjour,

je cherche le moyen d'enregistrer les gens qui consulte mon fichier excel , j'ai déja la méthode pour l'enregistrement beforesave

mais pas pour les gens qui le consulte

Private Sub Workbook_BeforeClose(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("espion1").[A65000].End(xlUp).Offset(0, 1) = Now
Sheets("espion1").[A65000].End(xlUp).Offset(0, 2) = Environ("Username")
Sheets("espion1").[A65000].End(xlUp).Offset(0, 3) = Environ("computername")
Sheets("espion1").Visible = xlVeryHidden
End Sub
mais il ya un erreur

merci bcp de me guider
christian

 

[phlaurent55]

Re : enregistrement before close

Bonjour christian,

.................. mais il ya un erreur

où se situe l'erreur ?

si c'est ici: Sheets("espion1").Visible = xlVeryHidden

c'est peut-être parce que la feuille "espion" est la seule visible (on ne peut pas cacher toutes les feuilles, il doit en rester au moins une visible

à+
Philippe

 

[marleauc]

Re : enregistrement before close

merci de ta réponse non il y a plusieurs feuille visible c'est que j'aimerais que les gens qui consulte le fichier puissent laisser une trace. j'ai déja une feuille intitulé espion qui enregistre bien BeforeSave. je croyais que c'était dans la formule
Message d'erreur recu
"...la déclaration de la procédure ne correspondent pas à la description de l'évènement ou de la procédure du même nom..."

 

[phlaurent55]

Re : enregistrement before close

Re,

essaie en remplaçant la première ligne par:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

à+
Philippe

edit: sans pouvoir tester le fichier, je n'ai pas d'autre réponse

 

[mutzik]

Re : enregistrement before close

bonjour,

souvent confronté à ce problème, je crée à part un fichier log (en format txt) dans lequel j'écris toutes les infos.
mais ceci à l'ouverture du fichier, pas à la fermeture

 

[marleauc]

Re : enregistrement before close

ok merci avous tous PhLaurent55 (le changement fonctionne mais n'Enregistre pas les info si l'utilisateur ne modifie pas le dossier bizarre et merci de votre génerosité , ok mais comment pourrais-je le faire(mutzik) et qu'elle est ta formule

Private Sub Workbook_Open
Sheets("espion1").[A65000].End(xlUp).Offset(0, 1) = Now
Sheets("espion1").[A65000].End(xlUp).Offset(0, 2) = Environ("Username")
Sheets("espion1").[A65000].End(xlUp).Offset(0, 3) = Environ("computername")
Sheets("espion1").Visible = xlVeryHidden
end sub

 

[mutzik]

Re : enregistrement before close

re

Sub ExportTxtChamp()
  dim repertoire, data
  repertoire = ThisWorkbook.Path
  Open repertoire & "\log.txt" For Output As #1
  data = now & ";" & application.username & ";" & application.computername
  Print #1, data
  Close #1
End Sub

et sur workbook.open tu appelles cette macro

 

[JCGL]

Re : enregistrement before close

Bonjour à tous,


Bertrand : il ne s'agirait pas plutôt de & Environ("UserName") à la place de & application.computername

A+ à tous

 

[mutzik]

Re : enregistrement before close

salut JeanClaude,

à un détail près
Environ("UserName") à la place de & application.username

mais tu as raison
et idem pour Environ("Computername")

 

[marleauc]

Re : enregistrement before close

un gros merci a vous tous
cmarleau