Thisworkbook

bjr,

Dans ThisWorkbook puis dans Private Sub Workbook_open(), je veux mettre le code vba qui permet l'impression pour une taille de papier ...ex A4.

J'essaie "activebook.pagesetup.papersize = xlpaperA4" mais ça plante...quelqu'un(e) connait le bon code...merci d'avance.

Bonjour,

Utilise ce code

Private Sub Workbook_open()
For Each Sheet In ThisWorkbook.Worksheets
ActiveSheet.PageSetup.PaperSize = xlPaperA4
Next
End sub

A bientôt

Dan