Discussion :

[vsobo]

bonjour
petit problème bien embêtant
j'ai un module qui permet d'enregistrer un fichier toutes les 10min et un enregistrement finale à la fermeture
le problème : quand le fichier est fermé , il s'ouvre automatiquement toutes les 10min , à mon avis il manque un arrêt de l'application à la fermeture

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Public Sub test()
Debug.Print Now
Application.OnTime DateAdd("N", 1, Now), "test"
ActiveWorkbook.Save
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save
End Sub
 
Private Sub Workbook_Open()
Application.OnTime DateAdd("N", 1, Now), "test"
End Sub

[Qwazerty]

Salut
C'est a se demander pourquoi prendre du temps pour mettre du code a dispo
http://www.developpez.net/forums/d87...e-nvl-donnees/
A++
Qwaz

[vsobo]

bonjour
excuse moi
c'est vrai que tu as bien travaillé, sans des gens comme toi ,je n'arriverais pas à faire grand chose en vba
mais j'étais parti sur mon idée et voulu aller trop vite
merci pour tout

[vsobo]

bonjour
serai-t-il quand même possible d'essayer de terminer avec mon code
merci

[Qwazerty]

Comme je te l'ai expliqué dans l'autre poste, ton probleme vient du fait qur Ontime, visiblement, persiste même après la fermeture du document, et lors de son déclenchement, il r'ouvre le fichier pour pouvoir executer la procedure qui lui est lié.
Afin d'éviter ca, j'avais rajouté ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
'On detruit les programmations
Application.OnTime ModUsed.Lheure, "SayBeepBeep", , False
Application.OnTime ModUsed.LClose, "SaveAndClose", , False
End Sub

Qui permet d'annuler une programmation, mais pour se faire il faut que tu garde l'heure exact que tu as indiqué lors du 1er appelle a OnTime.

Donc dans ton cas il faut que tu déclare une variable a porté module de type date.
Avant de faire appelle a OnTime tu renseigne cette variable puis tu appelles OnTime comme ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Public HeureSave as Date
 
Public Sub test()
Debug.Print Now
HeureSave = DateAdd("N", 1, Now)
Application.OnTime HeureSave , "test"
ActiveWorkbook.Save
End Sub

et donc avant que ton classeur ne se ferme tu annules la dernière programmation.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
'On detruit les programmations
Application.OnTime HeureSave, "test", , False
End Sub

A++
Qwaz

[vsobo]

bonjour
ça a l'air de fonctionner
et comme je voudrai un enregistrement à la fermeture , je suppose que je rajoute

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Workbook_BeforeClose(Cancel As Boolean)
activeworkbook.save
On Error Resume Next
Application.OnTime HeureSave, "test", , False
End Sub

merci

[Qwazerty]

Oui, ca devrait le faire
++
Qwaz

[vsobo]

bonjour
chez moi ça marchait bien ,mais au travail , le fichier continue à s'ouvrir tout seul ou il n'enregistre plus .
suite à un conseil d'expérience d'une personne , ne pas enregistrer automatiquement : si une personne fait une grosse erreur sur le fichier et qu'il se met à enregistrer auto , tout est perdu
donc je vais plutôt me diriger sur ton système avec minuterie qui se met en marche à partir de l'ouverture du fichier ou d'un enregistrement manuel ou après action de l'userform et qui déclenche un userform type un bouton enregistrement manuel et un autre (unload me)
et qui s'arrête à la fermeture du fichier
en décortiquant tes codes , j'ai du mal à comprendre la minuterie ,la macro bloque sur FBase.[D35]
merci

[Qwazerty]

Salut
A mon avis vu l'utilisation que tu veux en faire, tu devrais regarder du coté des Macro complémentaire. Tu as une macro toute faite qui permet d'enregistrer a intervalles réguliers avec apparition d'un message box.

Je vais quand même répondre pour FBase[B35], ça correspond a la valeur contenu dans la cellule B35 de la feuille dont le nom(VBA) est FBase.

A++
Qwaz