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

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²

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

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

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

---

# LE PARTAGE EST NOTRE FORCE #    [ Lien ]

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

ESSAI CELA:

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