sauvegarde automatique vba Résolu/Fermé

Question

Bonjour tout le monde,

J'ai créé une macro qui me permet de sauvegarder automatiquement le fichier toutes les 15 secondes. Cela est pratique car on est plusieurs à travailler sur le fichier partagé et de cette manière là toutes les modifications apportées par les utilisateurs sont visibles par tout le monde. Cela évite qu'on se marche dessus et que le travail soit effectué en doublon.

Or la limite de la macro est que quand je sors du fichier, tout en laissant ouvert un autre fichier excel,  la macro continue à fonctionner et ouvre le fichier toutes les 15 secondes.
 Pour arrêter la macro je suis obligé de sortir de l'application Excel. Cela est gênant car je dois sortir de tous les fichiers excel en cours d'utilisation.

Est ce qu'il y a un moyen pour faire arrêté la macro en sortant du fichier sans forcement devoir quitter Excel?

Vous trouverez ci-joint le fichier en question.

Merci d'avance pour votre aide,

https://www.cjoint.com/c/CEbuOeceued


Configuration: Windows 7 / Chrome 26.0.1410.64

eriiic · Answer

Bonjour,

j'essaierai qcq chose comme ça :
Public tSave As Date ' mettre en-dehors des procédures
Public Sub autosave()
    Workbooks("test2.xlsm").Save
    tSave = Now + TimeValue("00:00:15")
    Application.OnTime tSave, "autosave"
End Sub
et dans thisworkbook :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnTime tSave, "autosave", Schedule:=False
End Sub
eric

goran_84 · Answer

Merci Eric ca fonctionne parfaitement.
Pourrais tu me dire stp à quoi sert "Schedule:=False" ?

Sauvegarde automatique vba

2 réponses

Discussions similaires

Newsletters