vb6 - excel

Question

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

Neo.balastik · Answer

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

elbrahimo · Answer

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

Neo.balastik · Answer

Mais le conseil reste valable ;O)

Vb6 - excel

3 réponses

Discussions similaires