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

Signaler
Messages postés
19
Date d'inscription
lundi 8 juillet 2019
Statut
Membre
Dernière intervention
30 août 2019
-
Messages postés
23583
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
20 octobre 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
684
Date d'inscription
mardi 5 juin 2018
Statut
Membre
Dernière intervention
5 septembre 2020
54
Bonjour,

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

Cordialement.

Daniel
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
23583
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
20 octobre 2020
6 418
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
Messages postés
23583
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
20 octobre 2020
6 418
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
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
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
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 ?
Messages postés
23583
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
20 octobre 2020
6 418
Nouveau problème, nouvelle question ;-)