Problème sauvegarde automatique

[DLP77]

Bonjour,

Tout d'abord je voudrais souhaiter une bonne année 2012 à tout le monde.

J'ai trouvé sur ce forum un code pour les sauvegardes automatiques que j'ai adapté à mes besoin. Cependant il ne fonctionne pas.

Quelqu'un pourrait-il me dire d'où vient le problème?😕

Merci

Alex

 

[david84]

Re : Problème sauvegarde automatique

Bonjour,
Voici ce que dit l'aide d'Excel à propos de Application.OnTime :

Application.OnTime, méthode
Cette méthode programme l'exécution d'une procédure à un moment précis (soit à une heure précise soit après l'écoulement d'un délai précis).
Syntaxe

expression.OnTime(LePlutTôt, Procédure, LePlusTard, Planification)

expression Variable qui représente un objet Application.

Paramètres

Nom Obligatoire/Facultatif Type de données Description
LePlutTôt Obligatoire Variante Heure à laquelle vous voulez que la procédure s'exécute.
Procédure Obligatoire Chaîne Nom de la procédure à exécuter.
LePlusTard Facultatif Variante Heure maximale à laquelle la procédure peut être exécutée. Par exemple, si vous affectez à l'argument LePlusTard la valeur LePlutTôt + 30 et que Microsoft Excel n'est pas en mode Ready, Copy, Cut ou Find à l'heure LePlutTôt, car une autre procédure est en cours d'exécution, Microsoft Excel attendra la fin de la procédure pendant 30 secondes. Si Microsoft Excel ne se trouve pas en mode Ready dans les 30 secondes, la procédure ne sera pas exécutée. Si vous ne spécifiez pas cet argument, Microsoft Excel attendra jusqu'à ce que la procédure puisse être exécutée.
Planification Facultatif Variante Cet argument a la valeur True pour programmer une nouvelle procédure OnTime. Il a la valeur False pour effacer une procédure précédemment définie. La valeur par défaut est True.

Remarques


Utilisez Now + TimeValue(time) pour programmer une procédure à exécuter après un certain délai (à partir de maintenant). Utilisez TimeValue(time) pour programmer une procédure à exécuter à un moment précis.


Exemple


Cet exemple montre comment exécuter my_Procedure dans 15 secondes.

Visual Basic pour Applications
Application.OnTime Now + TimeValue("00:00:15"), "my_Procedure"

Cet exemple montre comment exécuter my_Procedure à 17 heures.

Visual Basic pour Applications
Application.OnTime TimeValue("17:00:00"), "my_Procedure"

Cet exemple montre comment annuler le paramétrage de OnTime de l'exemple précédent.

Visual Basic pour Applications
Application.OnTime EarliestTime:=TimeValue("17:00:00"), _
Procedure:="my_Procedure", Schedule:=False

Lorsque l'on ouvre ton fichier il plante et dit qu'il ne comprend pas Test comme 1er argument.
Donc j'essaie comme je vois que tu as défini Tempo juste avant, je remplace Test par Tempo

Sub Test()

UserForm1.Show
' Test Macro
' Macro recorded 26/11/2011 by Alex

ThisWorkbook.Save
Tempo = Now + TimeValue("00:03:00")
Application.OnTime Tempo, "Test"

End Sub

Est-ce le résultat escompté ?
En tout cas, cela semble correspondre au code que tu as essayé d'adapter :

Sub GoTempo()
ThisWorkbook.Save
Tempo = Now + TimeValue("00:00:30")
Application.OnTime Tempo, "GoTempo"
End Sub

A+

 

[DLP77]

Re : Problème sauvegarde automatique

Bonsoir,

Merci pour l'explication, c'est très claire.
En fait je voudrais surtout créer une sauvegarde auto toutes les 3 min par exemple afin d'éviter les pertes de données au cas où le système de l'ordi plante ou à cause d'une mauvaise manip. Ces données sont importantes afin d'avoir un meilleur suivi pour les personnes qui travaillent à la maintenance des engins.

Peux-tu m'aider?

Merci et bonne année

 

[MJ13]

Re : Problème sauvegarde automatique

Bonjour DLP, David

Sinon, il n'y a pas de sauvegarde automatique qu'on peut paramétrer sous XL2003 comme sur XL 2007 😕.

 

[david84]

Re : Problème sauvegarde automatique

Re
Même avis que Michel. Pourquoi ne pas régler ton temps de sauvegarde automatique à 3 minutes ?
Je n'ai pas 2003 mais fait une recherche sur le Net sur la question pour connaître la marche à suivre.
A+

 

[DLP77]

Re : Problème sauvegarde automatique

Effectivement 😕

Merci de votre aide