compteur modif macro

Re : compteur modif macro

Bonjour Jmmumu, bienvenue sur ce forum,

La macro que tu présentes fonctionne avec un fichier .txt.
Dans la mesure, où tu as décidé d'écrire dans un classeur Excel plutôt que dans un fichier texte , je te conseille de saisir les clés suivantes dans le moteur de recherche de ce forum :
"Ecrire classeur fermé"
De nombreux fils ont abordé ce thème, avec plus ou moins de succès, et te permettront d'avancer dans ton projet.
Si tu bloques, repasses sur ce fil (en adaptant le titre : compteur modif macro n'étant pas très explicite). On te dépannera.

Bonne soirée
Kotov

Re : compteur modif macro

Re,

Autre option plus simple à mettre en oeuvre :
A la fermeture de ton fichier ("jmmumu.xls" dans mon exemple), le fichier "FichierRecap.xls" est ouvert, les données sont transférées, et les 2 classeurs sont fermés après enregistrement.

C'est toi qui voit selon tes besoins.

Important, pour tester ces 2 fichiers, enregistres les sur ton disque dur au même endroit

A +
Kotov

Help ADO

Merci Kotov et bravo à ce site sans qui je pense j'aurai abandonné

J'ai inserer ton code et l'ai un peu adapté grace aux conseils sur ce forum pour écrire les infos à la suite

Const NomClasseur = "FichierRecap.xls"
Public HeureConnection As Date




Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
Sheets("Avertir").Visible = True
For Each ws In Worksheets
If ws.Name <> "Avertir" Then ws.Visible = xlVeryHidden
Next
Application.ScreenUpdating = True

repertoire = ThisWorkbook.Path
Workbooks.Open (ActiveWorkbook.Path & "\" & NomClasseur)
Workbooks(NomClasseur).Activate

With Workbooks(NomClasseur).Sheets("A")
Dim n&
n = Cells(65536, 1).End(xlUp).Row
.Cells(n + 1, 1) = HeureConnection
.Cells(n + 1, 2) = Now
.Cells(n + 1, 3) = Environ("username")
End With
With Workbooks(NomClasseur)
.Save
.Close
End With
ThisWorkbook.Save

End Sub

Private Sub Workbook_Open()
Application.ScreenUpdating = False
For Each ws In Worksheets
ws.Visible = True
Next
Sheets("Avertir").Visible = xlVeryHidden
Application.ScreenUpdating = True

HeureConnection = Now
End Sub

Par contre en faisant une recherche avec "Ecrire classeur fermé" j'ai vu que je pouvai écrire dans "FichierRecap.xls" avec la technique ADO pour que le fichier ne s'ouvre pas.

Hors je suis completement largué, est-ce que vous pouvez m'aider pas à pas car ce doit faire une dizaine d'heure que je m'essaye au macro.

Novicement Merci

Re : compteur modif macro

Bonjour,

http://boisgontierjacques.free.fr/fichiers/Evenementiel/Espion.xls


JB
Formation Excel VBA JB