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