Imprimer un fichier à l'ouverture et le fermer

[Pierreau]

Bonjour,
Je souhaite imprimer automatiquement un fichier Excel à l'ouverture de celui ci puis le fermer en enregistrant les modifs. Pour la partie impression, voici le code que j'ai utilisé :
Sub Autpen()
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub
Ca ne fonctionne pas ! Quelqu'un peut m'aider svp. Il faudra que je vois ensuite la fermeture du fichier.

 

[herve62]

Bonjour
Je ne sais pas mais mon exemple ci dessous fonctionne bien ,j'imprime la page que je désire
la sub est dans Thisworkbook
A mon avis ta structure du titre de Sub n'est pas bonne et pas au bon endroit !!

Private Sub Workbook_Open()
Worksheets("data").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
End Sub