vb6 - excel

Bonjour !!!

j'ai une application qui importe un fichier texte vers un fichier excel qui se déroule bien une premiere fois mais si je la relance sans quitter le projet ça beug ... je ne vois pas d'où ça vient
qqun peut m'aider ??? merci

voilà mon code :

Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel

'Ouverture de l'application

Set appExcel = CreateObject("Excel.Application")

'Ouverture d'un fichier Excel
Workbooks.OpenText FileName:=Chemin, Origin:=xlWindows, _
StartRow:=4, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True

Set wbExcel = appExcel.ActiveWorkbook
Set wsExcel = wbExcel.ActiveSheet

ActiveWorkbook.SaveAs FileName:="C:\Book1.xls", _
FileFormat:=17, CreateBackup:=False


wbExcel.Close 'Fermeture du classeur Excel
appExcel.Quit 'Fermeture de l'application Excel

Salut ;O)

Une bonne chose serait déjà de nettoyer tes objets en fin de code :

Set wsExcel = nothing
Set wbExcel = nothing
Set appExcel = nothing

Même si ca ne règle pas le problème je te le conseil vivement.

Guy

effectivement ça ne régle pas le problème

Mais le conseil reste valable ;O)