problème de mise en page

gilles94rp1 · 29 Mai 2007

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.

Pierrot93 · 29 Mai 2007

Re : problème de mise en page

Bonjour Gilles

je ne suis pas sur que l'on puisse appliquer une mise en page pour un classeur par vba, par contre tu peux appliquer le code ci dessous en bouclant sur toutes les feuilles :

Code:

Private Sub Workbook_Open()
Dim sh As Worksheet
For Each sh In Worksheets
    sh.PageSetup.PaperSize = xlPaperA4
Next sh
End Sub

bonne journée
@+

problème de mise en page

gilles94rp1

Guest

Pierrot93

XLDnaute Barbatruc

Discussions similaires

problème de mise en page

gilles94rp1

Guest

Pierrot93

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency