Mise en page pour impression

[J-Charles]

Bonsoir à tous,
J'aurais besoin d'un petit conseil, concernant l'impression d'un tableau. Tous les jours je dois imprimer un tableau dont le nombre de lignes diffèrent. J'ai donc écris quelques lignes en VBA afin d'automatiser la tâche.
En ce qui concerne la mise en page, j'ai créé un en-tête personnalisé et j'ai précisé les lignes à répéter en haut. Ces 2 options permettant une répétition sur chaque feuille d'impression, est il possible d'indiquer en VBA que ces 2 options ne s'opèrent pas sur la dernière feuille d'impression.
J'ai fait quelques recherches mais cela me parait difficile. Si quelqu'un a une idée, je serais preneur.
Merci d'avance.

 

[Caillou]

Re : Mise en page pour impression

Bonjour,

Si tu connais le nombre de pages imprimées, tu peux dans ta macro :
- faire ta mise en page avec entete
- lancer l'impression de toutes les pages sauf la dernière
- modifier la mise en page pour supprimer les entetes
- lancer l'impression de la dernière page

Caillou

 

[J-Charles]

Re : Mise en page pour impression

Malheureusement je ne sais pas à l'avance le nombre de pages à imprimer, le nombre de lignes varient chaque jour. Mais est il possible qu'Excel le calcule par rapport au saut de page ?
Merci pour ton intervention

 

[Caillou]

Re : Mise en page pour impression

Peut-être

ActiveSheet.HPageBreaks.Count 'renvoi le nombre de saut de page horizontaux
ActiveSheet.VPageBreaks.Count 'renvoi le nombre de saut de page verticaux

Caillou

 

[J-Charles]

Re : Mise en page pour impression

Je vois ce que je peux faire demain dans la matinée avec ce code et je tiens au courant.
Merci et bonne soirée

 

[J-Charles]

Re : Mise en page pour impression

Bonsoir à tous,
Suite aux conseils de CAILLOU, j'ai procédé de la manière suivante:
Je compte le nombre de saut de page
NbSautPage = ActiveSheet.HPageBreaks.Count

J'imprime toutes les pages sauf la dernière
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=NbSautPage

J'imprime la dernière page avec ma nouvelle mise en page
With ActiveSheet.PageSetup
.CenterHeader = ......
.CenterFooter = .......
.PrintTitleRows = ......
End With
ActiveWindow.SelectedSheets.PrintOut From:=NbSautPage + 1, To:=NbSautPage + 1

Ca fonctionne au poil, alors un grand merci à CAILLOU