Sauvegarde Automatique en VBA

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.

bonjour

Dans le module thisworkbook

Code:

---

1 2 3 4

Private Sub Workbook_Open() depart End Sub

---

et dans un module standard

Code:

---

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

---

Bonjour

Essayes de lancer ce code au démarrage :

Code:

---

1 2 3 4

With Application.AutoRecover .Enabled = True .Time = 5 End With

---

Philippe

bonjour philippe joshman
je ne la connaissait pas celle la


il peut metre aussi

Code:

---

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

---

confirme moi si je me trompe

au plaisir

Citation:

---

Envoyé par patricktoulon

...

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.

Super, merci beaucoup !

bonjour


j'ai proposé "application display alert=false" pour la simple et bonne raison

que chez moi autorecover est activé ,pour une récupération éventuelles et me met un message a chaque fois "ce document contient des macros ...ect..."

maintenant il peut mettre une variable compteur et enregistrer avec le même nom suivi de l'heure par exemple et a la fermeture boucler sur le dossier de destination et supprimer les versions précédentes


c'est d'ailleurs la méthode que j'utilise afin d'éviter de perdre des données et de pouvoir revenir sur une version précédente


voila ;)
au plaisir

tout bien réfléchi


ma solution est aussi bonne puisque le auto recover remonte a la dernière sauvegarde de la même manière que ma méthode dans les deux cas il y a cinq minute au maximum de perdu. voir même le auto recover en cas de récupération il faut quand même sauvegarder a la fin de l'utilisation du fichier

du moins c'est mon point de vue

alors entre mettre le truc dans la boite et ensuite la boite dans la valise ou
mettre le truc dans la boite qui est dans la valise :aie::aie::mouarf:

c'est un choix cornélien:mouarf:
au plaisir