Discussion :

[faroukvazaha]

Bonjour à tous,

Dans un classeur j'ai plusieurs feuilles à enregistrer sous forme d'un seul fichier PDF.
Le fichier est bien créé, cela ne pose aucun problème, mais la pagination n'est pas correcte : la numérotation recommence à chaque page !
J'ai essayé plusieurs méthodes mais aucune ne donne le résultat voulu : une numérotation dans le pied de page qui soit continue.

Pied de page défini dans chaque page avec le menu "Mise en page" : la numérotation est discontinue;
Pied de page défini dans chaque page avec le code VBA : la numérotation est discontinue;
Pied de page défini pour toutes les pages(sélection multiple) avec le code VBA : la numérotation est discontinue;

Ah oui : dans tous les cas le nombre total de pages est correct ="/&N"

Code/Paramètres pour la numérotation

Code :

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

1
2
3
4
5
With ActiveSheet.PageSetup
...........
.RightFooter = "Page &P/&N" & vbLf & "&A"
...........
end with

Cela fait 2 jours que je cherche sur le net sans succès donc si l'un d'entre vous a eu ce problème ou pense à une solution : je suis preneur.

Merci à tous.

Farouk

[Philippe PONS]

Salut,

je n'ai pas de solution directe,
mais une proposition:
utiliser Range.ExportAsFixedFormat

Cordialement,

[faroukvazaha]

Bonjour,

@Philippe : merci pour ta réponse et pour ton temps.
J’utilise effectivement ce paramètres mais la pagination n'est pas corrigée pour autant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
    Sheets(arrPrintableSheetNames).Select
 
    Sheets(CoverSheetName).Activate
    ActiveSheet.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=strOutputFilePath, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False

Merci

[Philippe PONS]

as tu utilisé l'enregistreur de macro, pour voir:
1- si la pagination est correcte
2- le code généré

[faroukvazaha]

Re-bonjour,

Oui, effectivement j'ai essayé avec et sans l'enregistreur de macro.
Le total de pages reste bon, mais la pagination page/pages non.

Si un onglet est scindé en 2 feuilles : j'ai bien page "1 / total" et "2 / total" mais à l'onglet suivant le compteur repart à 1 avec le bon "total".

Bref je m'arrache les cheveux (image !!)

Merci

Farouk

[Philippe PONS]

Alors, si c'est le fait de changer d'onglet qui réinitialise la numérotation,
peut être pourrais tu préparer l'ensemble des zones à imprimer
dans un même et unique onglet!
C'est juste une proposition, je n'ai rien testé!

Cordialement,