Fermeture d'un fichier

Bonjour,
Via le planificateur de tâche sous WINDOWS, je déclenche chaque jour l'ouverture d'un fichier EXCEL qui permet d'imprimer une feuille d'un autre fichier EXCEL(J:\xx\yy.xlsm dans la routine ci-dessous). Ce dernier se ferme automatiquement mais pas le fichier déclenché. Comment compléter cette routine pour que le fichier déclenché se ferme automatiquement.
Merci pour votre aide.
Routine :

Private Sub Workbook_Open()
     Dim Fichier As String
     Dim App As Object
     Dim Book As Workbook
     Dim Sheet As Worksheet
     Set App = CreateObject("Excel.Application")
     App.DisplayAlerts = False
     Set Book = App.Workbooks.Open("J:\xx\yy.xlsm")    
    Set Sheet = Book.Sheets("Principal")
     Sheet.PrintOut
     Set Book = Nothing
     Set Sheet = Nothing
        ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
        IgnorePrintAreas:=False

App.Quit
End Sub