Insérer numéros de pages

[fbernier]

Bonjour,

J'ai une requête qui me permet d'ouvrir une liste de fichiers (un par un à partir d'une liste sous excel), de sélectionner la zone d'impression et de l'imprimer.
Je voudrais rajouter un numéro de page à chaque fichier.
Page 1 sur la première impression, page 2 sur la 2ème impression mais je bloque.

Merci d'avance pour votre aide, je n'ai rien trouvé dans le forum qui ressemble à ce que je veux faire.

Fichier en pièce jointe

 

[Dull]

Re : Insérer numéros de pages

Salut fbernier, le Forum

as-tu essayer ce qui suit:

Fichier/Imprimer
Mise en page
Onglet En tête/pied de page
pied de page personnalisé
Partie Centrale: Page &[Pages]
Ok
Ok

Bonne Journée

 

[fbernier]

Re : Insérer numéros de pages

Non il faut que ce soit dans ma macro, sélectionne, la zone d'impression et imprime les fichier les uns après les autres.

L'idée était de récupérer le numéro en colonne 1 de mon fichier et de faire correspondre à chaque fichier .xls un numéro de page.
soit en copiant la valeur en cellule t78 du fichier que j'imprime dans mon cas.
soit de gérer avec .RightFooter = "&P"

Merci quand même Dull

 

[fbernier]

Re : Insérer numéros de pages

J'ai finalement trouvé tout seul la réponse à ma question. J'ai rajouté :
ActiveSheet.Range("t78") = i - 1