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