Excel

Bonjour

J'ai un petit probleme avec excel et VB6

je defini la procedure suivante

Set appexcel = CreateObject("EXCEL.APPLICATION")
Set wbExcel = appexcel.Workbooks.Open("C:\App_visualbasic\AstraZenecaRapport\RAPPORT_BOSCH3.XLS")
Set wsExcel = wbExcel.Worksheets(1)



'With ActiveChart
' appexcel.ActiveChart.ChartWizard Source:=Worksheets("VALEUR").Range("a1").CurrentRegion, _
' PlotBy:=xlColumns
' End With
End Sub

Private Sub Command2_Click()
wbExcel.Close
appexcel.Quit
Set appexcel = Nothing
Set wbExcel = Nothing
Set wsExcel = Nothing


sans la commande with active chart les commandes
de fermeture fonctionne
mais avec non excel tourne encore et au prochain appel j ai une erreur
comment faire pour terminer excel sans fermer l'application

sinon comment faire pour activer un graph


Merci d avance