> Tous les forums > Forum Bureautique
 Problème fermeture Excel VBA
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
astrabar
  Posté le 15/01/2019 @ 14:11 
Aller en bas de la page 
Petit astucien

Bonjour,

J'ai un fichier dont j'ai mis une fermeture automatique mais à première vue il ne fonctionne pas très bien.

Par moment le fichier se ferme avant le temps prrogrammé.

Module 1:

Dim CloseTime As Date
Sub TimeSetting()
CloseTime = Now + TimeValue("00:05:00")
On Error Resume Next
Application.OnTime EarliestTime:=CloseTime, _
Procedure:="SavedAndClose", Schedule:=True
End Sub
Sub TimeStop()
On Error Resume Next
Application.OnTime EarliestTime:=CloseTime, _
Procedure:="SavedAndClose", Schedule:=False
End Sub
Sub SavedAndClose()
ThisWorkbook.Close Savechanges:=True
End Sub

ThisWorkbook

Private Sub Workbook_Open()
Call TimeSetting
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call TimeStop
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Call TimeStop
Call TimeSetting
End Sub

Qui a une idée du problème ?

Merci d'avance

Publicité
Debrief
 Posté le 15/01/2019 à 15:09 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour,

Ton code est correct, la Variable CloseTime devrait être Variant d'après le doc mais c'est un détail quine devrait pas avoir d'importance.

Cordialement,
D.

Debrief
 Posté le 15/01/2019 à 15:25 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Il ne peut se fermer avant que si un TimeStop n'a pas été pris en compte, ce qui serait quand même très étrange.

Étant dans le bleu total, essayer un DoEvents à la fin du TimeStop ?

astrabar
 Posté le 16/01/2019 à 08:52 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Je test et je te dis quoi.

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Sujets relatifs
Problème à la fermeture d'Excel 2000
Problème à la fermeture excel 2003
probléme affichage aide Excel VBA
Excel ListBox double-click sélection problème
Mail lors d'une fermeture Excel
Problème de date dans Excel
Problème Filtre Excel
problème graphique après sauvegarde excel 2007
Problème d'ouverture EXCEL 2016
Probleme d'ouverture de fichier avec excel 2016
Plus de sujets relatifs à Problème fermeture Excel VBA
 > Tous les forums > Forum Bureautique