Excel reste ouvert...Résolu

Question

Bonjour, j'ai fait une appli en VB6 qui manipule des fichiers xls (que du bonheur)
En gros &#224; l'aide d'une common dialog je recup&#232;re un nom de fichier, avec lequel je cr&#233;&#233; le fichier Excel dans lequel je mets mes infos et je le ferme
le probl&#232;me ce que qd mon appli tourne, je ne peut pas ouvrir les fichiers Excel cr&#233;&#233;s (excel affiche rien du tt a part la barre des outils tt en haut et le menu)
Par d&#233;duction, jme dis que jdois avoir qqc d'ouvert qu'il faudrait fermer pour que ca marche (parce que qd je ferme l'appli VB pas de probl&#232;mes, mes fichiers s'ouvrent sans probl&#232;mes)
Voila en gros le code pour la gestion de la cr&#233;ation/remplissage/fermeture du fichier

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim xlStyle As Excel.Style

'creation du fichier excel
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = True
    Set xlBook = xlApp.Workbooks.Add
    Set xlSheet = xlBook.Worksheets(1)

'remplissage du classeur avec des chiffres des traits des 'calculs, du pur bonheur informatique
....
'fin remplissage

'On sauvegarde le fichier et on quitte Excel
    xlApp.ActiveWorkbook.SaveAs (nomFichier + "_" + mois + "_" + annee)
    Workbooks.Close
    xlApp.Application.Workbooks.Close
    'on sort d'Excel si on a coch&#233; la case &#224; cocher Quitter apres 'l'exportation Excel
    If quitterExcel Then xlApp.Application.Quit

'fin du code

Donc voila si quelqu'un sait ce que j'ai (probablement) oubli&#233; de fermer ca serait sympa de me prevenir.


"La meilleure facon de dire, c'est faire"


Ernesto Guevara de la Serna

rackne · Accepted Answer

mea culpa mea culpa meeeeeeeeea cuuuuuuuuulpa
je suis stupide jle reconnais....
apparement le code ci-dessus marchais bien mais c'etait &#224; l'initialisation que j'appelais mal le classeur....en gros au lieu d'&#233;crire 
set xlbook = xlapp.workbooks.open(chemin)
jmettais 
set xlbook = workbooks.open(chemin)
donc for&#233;cement mon objet xlapp pointais dans les choux (expression favorite de tous mes profs d'algo reunis) et pour fermer un objet qui pointe on sais pas trop o&#249;... bah c'est le dawa......
bon si jpx aider quelqu'un sur les objets excel qu'il me previenne, je sais que c [mailto:ch@#%&#249; ch@#%&#249;]!!!! &#224; g&#233;rer et qu'un coup de main, ca fait du bien ;p

"La meilleure facon de dire, c'est faire"


Ernesto Guevara de la Serna

actu5394 · Answer

Bonjour,
 A premi&#232;re vue je serai tent&#233; de dire que si "quitterExcel" s'av&#232;re vrai alors...
donc   if quitterExcel = True ???

rackne · Answer

non le probl&#232;me est plus compliqu&#233; que &#231;a en fait
if quitterExcel = true sert juste &#224; fermer l'application Excel 
m&#234;me quand la ligne xlApp.Application


"La meilleure facon de dire, c'est faire"


Ernesto Guevara de la Serna

actu5394 · Answer

Tu fermes Workbooks => "Workbooks.Close".
Ne devrais-tu pas fermer ActiveWorkbook => "ActiveWorkbook.Close" ??
As-tu essay&#233; :
xlApp.Quit
Set xlApp = Nothing  ??

rackne · Answer

hmmmm.... jdeviens desesp&#233;r&#233; l&#224;.....
euh non j'ai tout rajouter et ca marche toujours pas.... :\
en tout cas merci de m'aider et si t'as des autres suggestions....h&#233;site pas!!


"La meilleure facon de dire, c'est faire"


Ernesto Guevara de la Serna

rackne · Answer

Bon alors sur le site de la msdn j'ai trouv&#233; un truc 
ThisWorkbook.close 
ca marche avec &#231;a en compl&#233;ment
    Set xlBook = Nothing
    Set xlSheet = Nothing
    excel.Application.Quit
  bon mtnt je sais pas si c'est pcq j'ai du bol ou que c'est une coincidence ou le sacrifice de mon poulet qui a marcher, mais ca marche sauf que ca me laisse excel ouvert, sans classeur ouvert certes, mais qd meme ouvert......
si ca peut aider quelqu'un ...enjoy....


"La meilleure facon de dire, c'est faire"


Ernesto Guevara de la Serna

Excel reste ouvert...

6 réponses

Discussions similaires