Discussion :

[marot_r]

Bonjour à tous et merci de votre temps et de votre aide.

J'ai un truc étrange avec le pied de page d'une feuille que je défini par VBA.
bien que mon code spécifie :

Code :

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

.CenterFooter = "Page &P de &N" 'ce code vient directement de l'enregistreur de macro

Ce que j'obtiens à l'impression c'est "Page 1 de".
Je suis allez voir le pied page via l'interface et en effet il n'est défini que comme "Page &P de".
Le VBA ne fait donc fait qu'une assignation partielle de la propriété.

J'ai essayé :

Code :

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

.CenterFooter = "Page &P"

Et là il ne reste que le mot "Page" sans même l'espace.

Si on passe par l'interface on est capable d'assigner "Page &P de &N" et d'avoir le nombre total de page.

À date j'assigne "Page &P &N" ce qui me permet au moins d'avoir le numéro de la page courante mais ce n'est pas très propre.

Je ne sais pas si cela à de l'importance mais la feuille n'est pas dans le même classeur que le code de mise en forme.
C'est une copie de la page du classeur courant dans un nouveau classeur qui ne contient plus que ce qui est actuellement affiché sans les macros et les autres fonctionnalités du classeur courant.

Si quelqu'un a une idée, je suis preneur.

P.S.

J'ai essayé "Page &P de &N &F" et il s'arrête toujours au &N.

A+

[eriiic]

Bonjour,

tu devrais préciser la version excel.
Sur 2010 aucun problème.
eric

[marot_r]

Bonjour.

Comme mentionné dans le titre je suis dans Excel 2010 et cela ne fonctionne ni sur mon poste, ni sur celui de mon collègue.
Et pour info le numéro de version est 14.0.7227.5000 (32 bits).

De plus je viens de refaire le test :
J'enregistre dans le classeur une macro qui modifie le pied de page en incluant Page de &N de &P.
J'efface le pied de page.
Je lance la macro ... et pas de nombre total, juste Page 1 de.

Plus étrange, je relance cette macro et j'obtiens Page 1 d.

J'a ajouté au code :

Code :

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

1
2
3
4
5
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .CenterFooter = ""
    End With
    Application.PrintCommunication = True

Et là. cela stabilise le bug à Page 1 de.

A+

[unparia]

Bonjour
Tout cela est assez étrange, en effet.
Question : n'y aurait-il pas un conflit avec les marges du document concerné ?
As-tu essayé (ne mange pas de pain) d'aider VBA à "aligner sur les marges" ? -->>

Code :

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

ActiveSheet.PageSetup.AlignMarginsHeaderFooter = True

Essaye, à tout hasard.
Je ne vois personnellement vraiment rien d'autre à te proposer. Etrange, tout cela ...

EDIT : deux autres questions quand même :

1) que se passe-t-il avec ce texte : "blablablablabla blibliblibli" en lieu et place -->> est-il imprimé totalement ou tronqué ?
2) que se passe-t-il en utilisant leftfooter en lieu et place de centerfooter ? -->> toujours le même phénomène ?

[Docmarti]

Bonjour.

Le probleme est explique ici. Il existe depuis Excel 2010 et est cause par la ligne

Code :

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

Application.PrintCommunication = False

Et une solution y est proposee : Supprimer toutes les commandes "PrintCommunication = "

[unparia]

Merci Docmarti.
Hé bé !
Voilà donc une propriété créée dans un but d'amélioration (de la vitesse), mais qui s'avère être finalement un boulet dans certains cas .
Bon .. Je suis heureux d'être resté avec ma version 2007.

As-tu observé, Docmarti, que l'un des intervenants dans la discussion de ton lien a un pseudo (DocMarten) presque identique au tien ?
Ce qui m'a "frappé", c'est la solution dont il dit qu'elle marche chez lui, à savoir l'utilisation d'une variable toto pour "construire" à sa guise le texte à mettre dans l'entête, puis l'instruction genre :

Code :

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

ActiveSheet.PageSetup.LeftHeader = toto

plutôt que de se laisser "bercer" par la facilité de la notation proposée.
Je ne peux essayer, n'ayant que 2007

[marot_r]

Bonjour.

Merci Docmarti, cela fonctionne en effet.

A+