Fermer excel

Question

Bonsoir,

J'ai un petit problème. J'ai fais une application qui a besoin de lancer plusieurs fois excel. Ce que je n'arrive pas a faire c'est de fermer excel (il reste dans le gestionnaire des taches), or j'ai besoin de le fermer pour le relancer ailleur. Comment faire pour qu'il ne reste plus dans le gestionnaire des taches.

Merci

Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille excel

Private Sub excel_on()
    Set appExcel = CreateObject("Excel.Application")
    Set wbExcel = appExcel.Workbooks.Open(App.Path + "\B2D.xls")
    Set wsExcel = wbExcel.Worksheets(1)
End Function

Private Sub excel_off()
    wbExcel.Save
    appExcel.Quit
End Sub

Private Sub commande1()
    Call excel_on
    Traitement1
    Traitement2
    Traitement3  
    Traitement4
    Call excel_off
End Sub

cs_MPi · Answer

Comme tu utilises CreateObject, enlève les références que tu as probablement cochées. Puis déclare tes objets as Object

Dim appExcel As Object 'Application Excel

Dim wbExcel As Object 'Classeur Excel

Dim wsExcel As Object 'Feuille excel

Private Sub excel_off()

    wbExcel.Save

    appExcel.Quit

    Set wsExcel = Nothing   ' toujours préférable mais pas essentiel, je pense
    Set wbExcel = Nothing    ' de mettre tous les objets à Nothing

    Set appExcel = Nothing   
End Sub

MPi²

gouzou44 · Answer

Alors j'ai enlever le référence excel, ca fonction avec F5 mais plus moyen de compiler sans la référence. Et si je remet la référence le problème revient.
Help Me!!!

gouzou44 · Answer

Il me met cette erreur:
Project failed to build!
La méthode '~'de l'objet '~' a échoué.

cs_casy · Answer

Excel a effectivement tendance à garder un process en execution lorsqu'il est lancé depuis le code. Et à part passer par le gestionnaire de tache, je ne vois pas de solution simple en VB6.

J'ai bien une méthode qui m'a été passée par un collègue, mais elle est en .Net et n'est pas transposable en VB6. Elle consiste à récupérer la liste des process avant le lancement, juste après le lancement. La différence entre les deux te donne le process lancé, qu'il ne reste plus qu'à détruire après avoir fermé Excel par le code.
 Mais je ne sais pas le transposé de façon simple en VB6.

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

gouzou44 · Answer

Et de facon compliqué??? (sait-on jamais)

cs_comme · Answer

ESSAI CELA:

With ActiveWorkbook
    .Save
    .RunAutoMacros xlAutoClose
    .Close
End With
appExcel .Quit
Set appExcel  = Nothing

Fermer excel

6 réponses

Votre réponse

Discussions similaires