Quit Excel et pas seulement le closeRésolu

Question

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....

cs_MPi · Accepted Answer

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

cs_lermite222 · Answer

bonjour,


heuuu.. une piste Et avec Unload ? pour le fermer


A+


louis

RS8 · Answer

Bonjour,

avec appExcel.Quit ?

TiteZ · Answer

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!

RS8 · Answer

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 !

cs_lermite222 · Answer

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+

TiteZ · Answer

ah euh... Bah à vrai dire Jsais pas du tout ske c'est
tu peux m'en dire plus ?

JM247L · Answer

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

TiteZ · Answer

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...

cs_Exploreur · Answer

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

TiteZ · Answer

merci, plusde souci

JM247L · Answer

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

Quit Excel et pas seulement le close

12 réponses

Votre réponse

Discussions similaires