Fermeture ExcelRésolu

Question

Bonjour &#224; tous,

Je lance &#224; partir de VB6 un classeur excel dans lequel je fais des ajouts, que j'imprime et que je voudrais fermer sans sauver les changements...
Le probl&#232;me est que mon code pr sortir sans sauver ne marche pas et tous les tuto que j'ai p&#251; trouver l&#224; dessus ne marche pas.
J'ai bien fait r&#233;f&#233;rence &#224; la library Excel, voici le code

 Dim ClasseurXLS  As Excel.Application
'On Error GoTo fin
    Set ClasseurXLS = CreateObject("Excel.application")
    ClasseurXLS.Workbooks.Open App.Path & "\Excel.xls"
    'Activation de la feuille que l'on veut remplir
    ClasseurXLS.Workbooks("Excel.xls").Worksheets("Feuil1").Activate
    'Pour ins&#233;rer des donn&#233;es dans les cellules
    ClasseurXLS.Cells(5, 2) = "truc"
    'Range("A1:E10").Select
    'Range("E" & ligne).Activate
    'ActiveSheet.PageSetup.PrintArea = "$A$1:$E$10"
    'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
'fin:
    'Fermeture du classeur sans le sauver
    Call ClasseurXLS.Workbooks.Close(False)
    ClasseurXLS.Quit
    'Fermeture de l'objet Excel
    Set ClasseurXLS = Nothing

Merci pr votre aide
TBBUIM

tbbuim1 · Accepted Answer

J'ai trouv&#233; 
Il faut cr&#233;er un objet Workbook
Dim WbExcel as Excel.workbook

et faire &#224; la fin
Call WbExcel.close(false)
TBBUIM

Fermeture Excel

1 réponse

Discussions similaires