Poster une réponse à un sujet: [Excel] Même page, mais footer incrémenté.
Attention, ce sujet est un sujet ancien (5093 jours sans réponse)
blietaer
Hey superbe!
Mais ..heu..ahem..va falloir que je google pour apprendre à faire un script en VB/Office moi! :boggled: :shy:
Pinou

Le problème c'est que là tu crées les feuilles dans ton document. Blietaer veut incrémenter son numéro de page à l'impression.
Il faut donc incrémenter le footer (ici j'ai mis le numéro de page à droite...) et on lance l'impression


Il suffit après de sélectionner toute les pages et d'imprimer.
Mais c'est clairement une solution pourrie pour résoudre rapidement son problème.
La tienne est pas mal, je note. :write:
Olaf
Ou inclure tout ça dans une page word et faire du publipostage?
ebdalaoueb
Tu peux vite faire une Macro

Option Explicit

Public Sub Copy()
CopySheet "Sheet1", 99
End Sub

Private Sub CopySheet(SheetName As String, NbCopy As Integer)
Dim i As Integer
For i = 1 To NbCopy
Sheets(SheetName).Copy After:=Sheets(Sheets.Count)
Next i
End Sub


Le problème c'est que là tu crées les feuilles dans ton document. Blietaer veut incrémenter son numéro de page à l'impression.
Il faut donc incrémenter le footer (ici j'ai mis le numéro de page à droite...) et on lance l'impression

  1. Rep = InputBox("Copie multiple""Nombre de pages à imprimer"1
  2. If Rep < 1 Then Exit Sub 
  3. For NPage = 1 To Rep     
  4.     With ActiveSheet.PageSetup 
  5.         .RightFooter = NPage 
  6.     End With 
  7.     ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 
  8. Next 
  9. End Sub


J'avoue, google est mon ami...Il y avait un bon début de réponse ici
Pinou
Tu peux vite faire une Macro

Option Explicit

Public Sub Copy()
CopySheet "Sheet1", 99
End Sub

Private Sub CopySheet(SheetName As String, NbCopy As Integer)
Dim i As Integer
For i = 1 To NbCopy
Sheets(SheetName).Copy After:=Sheets(Sheets.Count)
Next i
End Sub
blietaer
Mais les field sdes footer/header ne vont s'incrémenter que s'il y a effectivement 100 pages, non?
moi je n'en n'ai qu'une et c'est à l'impression qu'il faudrait "tricher"
Schnick
C'est quel version d'Excel ?

En Word 2007, il y a la possibilité d'insérer des "Fields" que tu programmes. Il y a peut-être moyen en Excel mais en parcourant vite fait, j'ai pas trouvé.
blietaer
Bonjour,

Dans Excel, j'ai un tableau qui tient sur une page.
Je peux l'imprimer sur une feuille,pas de soucis.
Je peux l'imprimer 100x, pas de soucis...

Mais comment l'imprimer 100x, avec un footer (numéro de page) qui augmente?
Je dois faire un copier-coller de 100x mon tableaux?! :totoz:
On peut automatiser cela?
Catégorie:  






Ada
CSS
Cobol
CPP
HTML
Fortran
Java
JavaScript
Pascal
Perl
PHP
Python
SQL
VB
XML
Anon URL
DailyMotion
eBay
Flickr
FLV
Google Video
Google Maps
Metacafe
MP3
SeeqPod
Veoh
Yahoo Video
YouTube
6px
8px
10px
12px
14px
16px
18px
Informaticien.be - © 2002-2024 AkretioSPRL  - Generated via Kelare
The Akretio Network: Akretio - Freedelity - KelCommerce - Votre publicité sur informaticien.be ?