Discussion :

[punky_brooster]

Bonsoir,

je n'arrive pas à trouver comment on force l'application Excel à se mettre en Sauvegarde Automatique toutes les 5 minutes en VB. Pourriez-vous m'aider ?

Je vais déployer une appli sur plusieurs tablet PC qui n'auront pas forcément cette option d'activée.

[patricktoulon]

bonjour

Dans le module thisworkbook

Code :

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

1
2
3
4
 
Private Sub Workbook_Open()
depart
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 Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Public Declare Function KillTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long) As Long
 
Sub depart()
     SetTimer Application.hWnd, 0, 50000, AddressOf UpDateTime
End Sub
 
Sub UpDateTime(ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
  ActiveWorkbook.Save
 End Sub

[Invité]

Bonjour

Essayes de lancer ce code au démarrage :

Code :

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

1
2
3
4
With Application.AutoRecover
        .Enabled = True
        .Time = 5
End With

Philippe

[patricktoulon]

bonjour philippe joshman
je ne la connaissait pas celle la


il peut metre aussi

Code :

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

1
2
 
application.displayalerts=false'pour ne pas avoir le message

confirme moi si je me trompe

au plaisir

[Pierre Fauconnier]

...

confirme moi si je me trompe

au plaisir

Tu te trompes...

ThisWorkbook.Save et Application.AutoRecover ne sont pas du tout la même chose. Tous les débutants que je forme sur Excel font ce même micmac et mélangent les deux approches.

Tu confonds sauvegarde d'un classeur (ta solution) avec la récupération automatique (solution de Philippe). Or, les deux solutions ne poursuivent pas le même but.

Ta solution propose d'enregistrer le classeur sur le disque avec écrasement de l'ancienne version qui s'y trouvait éventuellement. Je ne te dis pas les dégâts si tu supprimes 50 feuilles par erreur puis que ton code se lance et que tu t'aperçois juste après qu'il ne fallait pas supprimer de feuilles. La mise en place de ta solution doit donc absolument prévoir d'informer l'utilisateur du risque encouru. Ton "application.displayalerts=false" ne changera rien du tout. Car soit le fichier est déjà enregistré (possède un nom et un chemin) et donc, il n'y a pas d'alerte, soit il ne l'est pas encore, et il sera enregistré sur le disque avec un nom probablement non désiré.

La solution de Philippe, quant à elle, active simplement la récupération automatique du classeur, qui permet, en cas de plantage et uniquement en cas de plantage, d'espérer récupérer le classeur sans trop de dégâts, en ne perdant, dans ce cas-ci, que cinq minutes.

[punky_brooster]

Super, merci beaucoup !