Discussion :

[comanche]

bonsoir a tous !

le code suivant permet-il un enregistrement régulier (ici normalement toutes les minutes) du document excel actif ?

Code :

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

1
2
3
4
5
6
Private Sub UserForm_Initialize()
    temps = Now
    t = Format(temps, "s")
    If t = 59 Then ActiveWorkbook.Save
 
End Sub

je n'arrive pas a en etre certain (par exemple si rien ne se passe pendant plus dune minute et que je ferme mon document excel me demande parfois si je veux vraiment quitter sans enrigistrer...)

le fait ke le "s" dans le format soit en minuscule ou en majuscule a-t-il une importance ?

merci a tous et bonne soirée !

[tirex28]

Bonsoir,

Essaye comme ceci:
Dans le module ThisWorkbook

Code :

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

1
2
3
4
 
Private Sub Workbook_Open()
    Recurrente
End Sub

Et dans un module standard:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Public ProchainEnregistrement
 
Public Sub Recurrente()
    ProchainEnregistrement = Now + TimeValue("00:01:00")
    Application.OnTime ProchainEnregistrement, "Enregistrement"
End Sub
 
Private Sub Enregistrement()
    If ThisWorkbook.Saved = False Then ThisWorkbook.Save
    Recurrente
End Sub

Bonne chance,

Manu/