Quit Excel et pas seulement le close

Résolu
Signaler
Messages postés
61
Date d'inscription
jeudi 5 avril 2007
Statut
Membre
Dernière intervention
21 août 2007
-
Messages postés
443
Date d'inscription
mardi 27 mars 2007
Statut
Membre
Dernière intervention
1 mars 2011
-
Bonjour,


Voila, j''ai fait une appli en VB6 qui travaille sur des fichiers excel et qui les ouvrent aprés traitement.


Le souci c'est que je ne peux pas lancer d'autres traitement avec
d'autres fichiers excel ( car même lorsque je ferme mes fichiers
excel...( ils sont juste close et non quit...)

( je le voie dans l'onglet processus du gestionnaire d'excel...


Comment pourrais-je faire?

j'ouvre l'aplli excel et j'ouvre les fichiers...

La fermeture d'excel se fait ensuite manuellement ( bah avec la tite croix rouge )

Set appExcel = CreateObject("Excel.Application")
 
appExcel.Visible = False
Set wb1Excel = appExcel.Workbooks.Open("C:" & Numpdt & "\vers_dc_frais.xls")
Set wb2Excel = appExcel.Workbooks.Open("C:" & Numpdt & "\vers_dc_frais2.xls")
.
.
appExcel.Visible = True


Les points c'est les differents traitements sur le fichiers....

12 réponses

Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
19
Je dirais que peu importe si tu les fermes manuellement, chaque objet que tu crées avec Set dans ton programme doit être fermé adéquatement (selon le type d'objet) et mis à Nothing

Donc, d'après ce que je peux voir de ton bout de code, les Workbooks et l'Application doivent tous être fermés et mis à Nothing
wb1Excel
wb2Excel
appExcel 'à la fin
 

MPi
Messages postés
492
Date d'inscription
jeudi 5 avril 2007
Statut
Membre
Dernière intervention
2 juillet 2012
4
bonjour,


heuuu.. une piste Et avec Unload ? pour le fermer


A+


louis
Messages postés
100
Date d'inscription
vendredi 18 mai 2007
Statut
Membre
Dernière intervention
15 juillet 2009

Bonjour,

avec appExcel.Quit ?
Messages postés
61
Date d'inscription
jeudi 5 avril 2007
Statut
Membre
Dernière intervention
21 août 2007

le probleme c'est que je veux le fermer manuiellement parrce que ces fichiers sont ouverts a la fin du traitement afin qu'on voie ce qui s'y est passé...Et qu'on le ferme quand on veut!
l
Dc ce que je veux ce serait que lorsque je ferme manuellement ca me ferme l'apppli excel aussi!
Messages postés
100
Date d'inscription
vendredi 18 mai 2007
Statut
Membre
Dernière intervention
15 juillet 2009

Peut être faut-il récuperer l'évènement "cliquer sur la croix rouge" et dire ensuite "quitter appli excel" mais je ne sais pas si cet évènement existe !
Messages postés
492
Date d'inscription
jeudi 5 avril 2007
Statut
Membre
Dernière intervention
2 juillet 2012
4
je vais peut-être dire une bétise, cela fait un bout temps que je ne m' en suis plus servi, tu ouvre excel avec l'API
Set appExcel = CreateObject("Excel.Application")
 n'y a-t-il pas un API DestroyObjet ?
A+
Messages postés
61
Date d'inscription
jeudi 5 avril 2007
Statut
Membre
Dernière intervention
21 août 2007

ah euh... Bah à vrai dire Jsais pas du tout ske c'est
tu peux m'en dire plus ?
Messages postés
443
Date d'inscription
mardi 27 mars 2007
Statut
Membre
Dernière intervention
1 mars 2011
2
Bonsoir,
Pour la proposition de lermitte222, je dirais qu'il faut assigner "nothing" à appExcel
Mais j'aurai une autre proposition
Pourquoi ne pas gérer un code _workbookBeforeclose dnas le fichier fermé manuellement qui contiendrait un "Application.Quit"
Bonne fin de semaine
JML
Messages postés
61
Date d'inscription
jeudi 5 avril 2007
Statut
Membre
Dernière intervention
21 août 2007

Oui, mais est ce que vous pouvez m'en dire plus ? parce que comme je l'ai dis, je ne sais pas ce que c'est .
Pour le workbookBeforeclose le probleme c'est que j'ai enormement de fichiers et les fichiers sont crées au fur et a mesure, donc ça c'est pas possible...
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
14
Salut et bonsoir à tous,

Aprés l'ouverture de tes fichiers :

     ' Libération de l'object
       Set appExcel = Nothing

A+
Exploreur

 Linux a un noyau, Windows un pépin

 
Messages postés
61
Date d'inscription
jeudi 5 avril 2007
Statut
Membre
Dernière intervention
21 août 2007

merci, plusde souci
Messages postés
443
Date d'inscription
mardi 27 mars 2007
Statut
Membre
Dernière intervention
1 mars 2011
2
Bonjour,
Ca devient obscure
Si la 1ère commande du code VB6 contient
   - Ouvrir un fichier Excel contenant le code "workbookBeforeclose"
Et la Dernière commande du code VB6 contient
    - Fermer ce fichier contenant le code "workbookBeforeclose"
      Qui exécutera "Application.Quit" à sa fermeture
Bonne journée. JML