compteur modif macro

[jmmumu]

Bonjour

Pour avoir un compteur à l'ouverture d'un fichier excel j'avais ajouter ces code

Sub auto_open()
heureConnection = Now
End Sub

Sub auto_close()
repertoire = ThisWorkbook.Path
Open repertoire & "\Compteur.txt" For Append As #1
Print #1, heureConnection & ";" & Now & ";" & Environ("username")
Close #1
End Sub


mais pour une exploitation plus facile j'ai remplacer le .txt par .xls
Ok cela fonctionne seulement les infos (date-heure-username) sont tous dans la premiere cellule.

Comment lui dire d'écrire la date et heure en colonne A et le nom en colonne B ?

Merci

 

[Kotov]

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

 

[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

 

[jmmumu]

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

 

[BOISGONTIER]

Re : compteur modif macro

Bonjour,

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

Sub auto_open()
  Sheets("espion").[A65000].End(xlUp).Offset(1, 0) = Now
End Sub

Sub auto_close()
  Sheets("espion").[A65000].End(xlUp).Offset(0, 1) = Now
  Sheets("espion").[A65000].End(xlUp).Offset(0, 2) = Environ("username")
  Sheets("espion").[A65000].End(xlUp).Offset(0, 3) = Environ("computername")
  Sheets("espion").Visible = xlVeryHidden
End Sub

Sub affiche_espion()
  mp = InputBox("Mot de passe?")
  If mp = "jacques" Then
    Sheets("espion").Visible = True
  End If
End Sub

JB
Formation Excel VBA JB