excel généré à partir d'Access - comment modifier les n° de pages

**ver_for** · 20/05/2010, 09h09

Bonjour,

A partir d'Access je génère un fichier xls.
J'utilise le code ci-dessous pour la mise en page.

En particulier la numérotation des pages est gérée ainsi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 
.CenterFooter = "Pagina &P di &N"

et les pages sont donc numérotées de cette manière
Pagina 1 di 3
Pagina 2 di 3
Pagina 3 di 3

Je souhaiterais pouvoir commencer la numérotation avec un numéro différent
et avoir
Pagina 2 di 4
Pagina 3 di 4
Pagina 4 di 4

Comment est-ce possible?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
 
 With xlSheet.PageSetup
        .LeftHeader = "&9Ecole française de Rome"
        .CenterHeader = "&""Arial,Grassetto""REGISTRO DELLE USCITE"
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = "Pagina &P di &N"
        .RightFooter = ""
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .LeftMargin = 10
        .RightMargin = 10
        .LeftMargin = 40
        .TopMargin = 30
        .BottomMargin = 8
        .HeaderMargin = 10
        .FooterMargin = 12
 
 
        .PrintQuality = 600
        .CenterHorizontally = True
        .CenterVertically = True
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        '.Order = xlDownThenOver
        .Order = xlOverThenDown
        .BlackAndWhite = False
        .Zoom = 100
        .PrintErrors = xlPrintErrorsDisplayed
    End With