Effectuer une macro pour imprimer un onglet d'un fichier excel

J'ai rédigé une macro dans un fichier excel intitulé J:\xx\yy.xlsm qui est la suivante :
Sub impressionautofichierpilote()
'
' impressionautofichierpilote Macro
'
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:\zz\ww.xlsm")
Set Sheet = Book.Sheets("Feuil15")
Sheet.PrintOut Copies:=1, Preview:=False, Collate:=False
Set Book = Nothing
Set Sheet = Nothing
App.Quit
End Sub
'
End Sub

Je voudrai savoir comment je dois paramétrer le planificateur de tâche sous Windows car je n'y arrive pas. Le fichier s'ouvre mais la macro ne se lance pas.

Merci pour ton aide.

Bonjour,
Ben, deja, pouqruoi creer une deuxieme appli excel pour ouvrir le fichier a imprimer?
Ensuite y a deux sub et deux end sub, faut choisir soit le code est dans

Private Sub Workbook_Open()

, soit vous appelez la procedure

Sub impressionautofichierpilote() 

dans

Workbook_Open()

!!!!