Fermeture Excel

Résolu
Signaler
Messages postés
940
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
3 février 2011
-
Messages postés
940
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
3 février 2011
-
Bonjour à tous,

Je lance à 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ème est que mon code pr sortir sans sauver ne marche pas et tous les tuto que j'ai pû trouver là dessus ne marche pas.
J'ai bien fait référence à 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érer des donné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

1 réponse

Messages postés
940
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
3 février 2011
9
J'ai trouvé
Il faut créer un objet Workbook
Dim WbExcel as Excel.workbook

et faire à la fin
Call WbExcel.close(false)
TBBUIM
3