Bug étrange dans programme

  • Initiateur de la discussion Initiateur de la discussion bibou1212
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

bibou1212

XLDnaute Occasionnel
Bonjour à tous,


Grâce à vous tous j'ai réussi à faire un fichier plein de macro super sympa mais j'ai un bug que je n'arrive pas à résoudre.

Dans une macro j'ai un enregistrement automatique qui se fait (et marche très bien) par ce code :

Sub workbook_open() 'lancer une tempo quand le fichier s'ouvre
Call GoTempo
End Sub

Puis

Sub GoTempo() 'module de sauvegarde automatique
Tempo = Now + TimeValue("00:05:00")
Application.OnTime Tempo, "GoTempo"
ThisWorkbook.Save
End Sub

C'est un programme qui marche très bien, mais lorsque j'ai plusieurs fichiers d'ouvert en même temps, on dirait que la tempo se met sur tous et quand je ferme le fichier ou il y a cette tempo, le fichier se ré-ouvre au bout de 5 min.
Et le seul moyen d'arrêter ça est de fermer toutes les applications excel et de ré-ouvrir celles qu'on veux...

Je pense que c'est parce que la tempo est en train de tourner sur l'autre fichier parce que je ne l'ai pas arreter correctement sur le premier.

Je pense que ça doit être un truc comme ça me je sais pas comment on peut arrêter correctement une tempo.

Merci de votre aide, je reste à votre dispo pour toutes questions.


David 😀
 
Re : Bug étrange dans programme

Bonjour,
pour stopper proprement l'application On.Time, essaie comme ceci :

dans un module standard :

Code:
Public Tempo As Double
Public Const MaMacro = "GoTempo"

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

et dans l'évènement du ThisWorkbook :

Code:
Private Sub Workbook_Open()
Call GoTempo
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnTime Tempo, MaMacro, schedule:=False
End Sub
 
Re : Bug étrange dans programme

Bonjour Roland
Bonjour bhbh
Bonjour le fil

Tout d'abord merci de m'avoir répondu aussi vite,

Alors j'ai commencé par la solution de bhbh qui m'avait l'air plus simple. Mais malheureusement elle n'a pas suffit face à mon problème.

Puis j'ai essayé la solution de Roland qui fonctionne à merveille.

Merci à vous deux, et je tiens aussi à remercier le forum entier qui a su tout le temps me venir en aide. Merci à tous ceux qui aide les autres.

Et un grand chapeau bas à tous, qui sont pour moi des extraterrestres de la programmation.

Merci encore
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
609
D
Réponses
4
Affichages
311
DidPouAxi
D
Retour