fermer completement excel

[Mini Moi]

Bonjour à tous, voila j'ai un fichier excel avec ne macro qui s'execute à l'ouverture du fichier et qui referme le fichier à la fin de la macro. Probleme: la macro ne fermeque le fichier , pas excel, je dois fermer manuelement la fenetre excel grise . Je recherche un code à rajouter à ma macro pour fermer completement excel, merci d'avance pour votre aide.

Private Sub Workbook_Open()
'
' Macro19 Macro
' Macro enregistrée le 12/04/2006 par
'

' ActiveSheet.Protect Password:='GRATC', UserInterfaceOnly:=True
Application.DisplayAlerts = Oui
ActiveWorkbook.SaveAs Filename:='E:\\DONNEES\\kzbrpt\\APPDATA\\gendbase\\kzbrpt\\BaseC262\\49ZBH\\SE102J.prn', _
FileFormat:=xlTextPrinter, CreateBackup:=False
ActiveWorkbook.Save
Application.DisplayAlerts = Oui
ActiveWindow.Close
End Sub

 

[JeanMarie]

Bonjour

Essaye en remplaçant ActiveWindow.Close par Application.Quit.

@+Jean-Marie

 

[porcinet82]

Salut Mini Moi, enfin Mini Toi :silly:

En rajoutant à la fin de ton code la ligne suivante, a devrait le faire

ActiveWindow.Close

@+

Edition : Oups, salut JeanMarie, pas rafraichit

Message édité par: porcinet82, à: 23/06/2006 15:15

 

[Mini Moi]

Merci jean marie, j'ai rajouté Application.Quit àla place de ActiveWindow.Close et ca marche , excel se ferme completement, merci encore pour ton aide