Discussion :

[casavba]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[patbou]

bonjour,

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

[casavba]

Il n ya pas de code

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

[fred65200]

bonsoir,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[casavba]

Bonsoir fred,

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

[pgz]

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

[fred65200]

tu peux essayer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

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.

[casavba]

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.

[mordrhim]

essaye voir de remplacer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks("Toto.xls").Close

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[fred65200]

bonjour
a priori ça ne fonctionne pas

bonsoir,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mordrhim]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[fred65200]

fred

[casavba]

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

[tirex28]

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/

[casavba]

résolu par le biais d'un fichier batch

[fred65200]

bonjour,

heureux que ce soit résolu,

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

Merci

fred