Fermeture de l'application Excel

Bonjour à tous,

Voilà j'ai un petit soucis qui vraiment commence à m'énerver.

je vous explique, j'ai un classeur excel où j'ai mis un evenement dans le workbook

Code:

---

1 2 3 4 5 6 7

Private Sub workbook_open() Module1.Macro1 Module1.Macro2 Module1.Macro3 ActiveWorkbook.Save Workbooks("Toto.xls").Close End Sub

---

donc vous comprenez qu'à l'ouverture les macros ci dessus s'exécutent et le fichier se ferme.

quand je fais ça à la main tout marche nickel le classeur se ferme, il reste juste l'application excel.

mais quand je fais ouvrir le fichier par le biais d'une tâche planifiée qui va être répétitive toute la journée à des intervalles de temps prédifinis.
Le problème c'est que la première fois la tâche planifiée ouvre le fichier, les macros s"éxécutent et enfin le classeur se ferme ; mais surprise ya Excel qui reste ouvert avec un classeur 1 nouveau et du coup quand la tâche se déclenche une deuxième fois, rien ne se passe puisque un classeur est ouvert.
ça me bloque, il faut que je ferme manuellement Excel à chaque fois pour que ça marche, ce qui est bien évidemment pas du tout pratique.


j'espère que vous avez des idées.

je le fais en VB (fermé l'application) mais là j'ai pas visual Studio installé ;)

Bien cordialement

bonjour,

Citation:

---

Le problème c'est que la première fois la tâche planifiée ouvre le fichier, les macros s"éxécutent et enfin le classeur se ferme ; mais surprise ya Excel qui reste ouvert avec un classeur 1 nouveau et du coup quand la tâche se déclenche une deuxième fois, rien ne se passe puisque un classeur est ouvert.

---

comment tu declenches les taches planifiées
montres ton code

Il n ya pas de code

La tâche je la programme sous Windows dans Paramètres\Tâches planifiés

bonsoir,

essaie ce code qui enregistre tous les classeurs ouverts et quitte Excel

Code:

---

1 2 3 4 5 6 7 8 9

Sub ferme() Application.DisplayAlerts = False For Each w In Application.Workbooks w.Save Next w Application.DisplayAlerts = True Application.Quit End Sub

---

cordialement

Bonsoir fred,

ça marche pas, ya toujours le classeur1 qui est ouvert8O

Bonsoir.

Je ne suis pas sûr, mais je te donne quand même l'idée. Le pb vient peut-être de ce que tu fermes dans une procédure évènementielle sur ouverture.
Si tel est le cas, regarde la méthode OnTime qui te permet de programmer le lancement de la procédure qui va fermer, mais entre temps de terminer l'ouverture du classeur.

PGZ

tu peux essayer

Code:

---

1 2 3 4 5 6 7 8 9

Sub ferme() Application.DisplayAlerts = False For Each w In Application.Workbooks w.close True Next w Application.DisplayAlerts = True Application.Quit End Sub

---

fred

Bonjour

Essaye de mettre l'instruction DoEvents entre chaque ligne de code.

Si cela fonctionne, enlève les les uns après les autres pour trouver celui qui convienne.

bonsoir,

Fred, j'ai toujours le classeur1 qui reste ouvert.
Starec, j'ai suivi ta méthode mais en vain.

j'ai toujours le classeur1 qui reste ouvert.


:(

essaye voir de remplacer

Code:

---

Workbooks("Toto.xls").Close

---

par

Code:

---

Application.Quit

---

en fait il faut que tout se ferme en même temps, sinon tu fermes ton classeur et ça s'arrete la, ce ne ferme pas le reste.

bonjour
a priori ça ne fonctionne pas

Citation:

---

Envoyé par fred65200

bonsoir,

essaie ce code qui enregistre tous les classeurs ouverts et quitte Excel

Code:

---

1 2 3 4 5 6 7 8 9

Sub ferme() Application.DisplayAlerts = False For Each w In Application.Workbooks w.Save Next w Application.DisplayAlerts = True Application.Quit End Sub

---

cordialement

---

cordialement

si je l'ai formulé comme ca c'est qu'il est possible que la sub proposée ait été mise apres le

Code:

---

Workbooks("Toto.xls").Close

---

or, si "Toto.xls" est le classeur "principal" (celui qui lance les macros), celui-ci se ferme et ne puirsuit plus l'execution de la macro.

exemple :

Code:

---

1 2 3 4 5

Private Sub Workbook_Open() MsgBox "je suis ouvert" ThisWorkbook.Close (False) MsgBox "Je suis fermé" End Sub

---

la boite de message "je suis fermé" ne s'affichera pas non ?

enfin bon
ceci pour expliquer à casavba que s'il ferme le classeur "principal", les opération apres la commande de fermeture ne seront pas lancées.

:king:
fred

Ce que je comprends pas c'est qu'il ya des gens qui critiquent, mais sans tester pour voir le cas réel.

Mordrhim, je vois ce que tu veux dire, et je suis d'accord, seulement quand tu lances une tâche planifiée ça marche pas, le classeur1 est tjs ouvert.
Tu n'as qu'à tester toi même.
Attention je dis bien tâche planifiée. Mais pas ouvrir le fichier manuellement.

Bien cordialement

Bonsoir,

Dans les paramètres de la tache planifiée, onglet Tache, champ Executer:

Excel.exe /e/ "CheminEtNomDuClasseurAOuvrir.xls"

Plus de détails ici:http://xcell05.free.fr/pages/prog/pa...es.htm#Options

Cordialement,

Tirex28/

résolu par le biais d'un fichier batch

bonjour,

heureux que ce soit résolu,

peux tu mettre le code du batch en ligne pour ceux que ça intéresserai.

Merci

fred