Probléme fermeture fichier Excel (Application on time) [Résolu]

Signaler
Messages postés
19
Date d'inscription
lundi 8 juillet 2019
Statut
Membre
Dernière intervention
30 août 2019
-
eriiic
Messages postés
23230
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
25 janvier 2020
-
Bonjour,

Je travaille actuellement sur un projet d'application avec Excel
Lorsque j'ai plusieurs fichiers excel ouvert, et que je souhaite fermer le principal, il se re-ouvert automatiquement derriere.

Après plusieurs recherches j'ai trouver ce bout de code :

On Error Resume Next
ThisWorkbook.Application.OnTime Depart_Diapo, Procedure:="MaMacro", Schedule:=False

que je place dans Workbook.BeforeClose

Cependant mon fichier continu de s'ouvrir tout seul





Sub InitOnTime()
Depart_Diapo = Now + TimeValue("00:00:15")

If NrbFichierDiff = True Then
Rafra?chir
End If

If Not StopIt Then
Application.OnTime Depart_Diapo, "MaMacro"
Else
On Error Resume Next
Application.OnTime Depart_Diapo, "MaMacro", Schedule:=False
End If
End Sub

ici j'ai ma "tempo" de 15 secondes, et j'aimerai savoir si il était possible d'attendre que le programme soit dans le "else" avant d'executer la fonction Workbook.beforeclose ?



J'espere avoir été clair dans mes explications.

Merci

2 réponses

Messages postés
668
Date d'inscription
mardi 5 juin 2018
Statut
Membre
Dernière intervention
9 janvier 2020
48
Bonjour,

Comment, et où, as-tu défini "Depart_Diapo" ?

Cordialement.

Daniel
JHache1801_
Messages postés
19
Date d'inscription
lundi 8 juillet 2019
Statut
Membre
Dernière intervention
30 août 2019

Bonjour,

J'ai détaillé un peu plus en répondant à eriiiic

Cordialement.
Messages postés
23230
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
25 janvier 2020
5 877
Bonjour,

on est bien d'accord que tu l'as ajoutée dans le module ThisWorkbook ?
Et que "MaMacro" est le nom de la sub lancée avec le timer. Difficile d'y clair avec tes petits bouts de codes extraits...
eric
eriiic
Messages postés
23230
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
25 janvier 2020
5 877
Bien sûr, il faut qu'elle soit commune à toutes les procédures l'utilisant si tu veux que .OnTime Depart_..., Schedule:=False s'applique au bon temps de déclenchement.
eric
JHache1801_
Messages postés
19
Date d'inscription
lundi 8 juillet 2019
Statut
Membre
Dernière intervention
30 août 2019

d'accord je test ça et je reviens vers vous, merci
JHache1801_
Messages postés
19
Date d'inscription
lundi 8 juillet 2019
Statut
Membre
Dernière intervention
30 août 2019

je viens de tester et ça et ça fonctionne, merci
JHache1801_
Messages postés
19
Date d'inscription
lundi 8 juillet 2019
Statut
Membre
Dernière intervention
30 août 2019

cependant j'ai un deuxième problème, je peux vous l'exposer ici ou voulez vous que je re-crée un sujet ?
eriiic
Messages postés
23230
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
25 janvier 2020
5 877
Nouveau problème, nouvelle question ;-)