Software » [Excel] Même page, mais footer incrémenté.
[Excel] Même page, mais footer incrémenté.
Publié le 03/12/2010 @ 09:53:41,
Par blietaerBonjour,
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?!
On peut automatiser cela?
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?!
On peut automatiser cela?
Et au besoin s'arrêter.
[Excel] Même page, mais footer incrémenté.
Publié le 03/12/2010 @ 11:30:00,
Par SchnickC'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é.
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é.
Fichier: Presse-papiers-1.jpg
( 87.3 KB - 924 )
La mort, c'est un peu comme une connerie. Le mort, lui, il ne sait pas qu'il est mort. Ce sont les autres qui sont tristes. Le con, c'est pareil. Philippe Geluck
[Excel] Même page, mais footer incrémenté.
Publié le 03/12/2010 @ 11:34:37,
Par blietaerMais 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"
moi je n'en n'ai qu'une et c'est à l'impression qu'il faudrait "tricher"
Et au besoin s'arrêter.
[Excel] Même page, mais footer incrémenté.
Publié le 03/12/2010 @ 11:55:40,
Par PinouTu 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
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
[Excel] Même page, mais footer incrémenté.
Publié le 03/12/2010 @ 12:09:16,
Par ebdalaouebTu 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
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
- Rep = InputBox("Copie multiple", "Nombre de pages à imprimer", 1)
- If Rep < 1 Then Exit Sub
- For NPage = 1 To Rep
- With ActiveSheet.PageSetup
- .RightFooter = NPage
- End With
- ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
- Next
- End Sub
J'avoue, google est mon ami...Il y avait un bon début de réponse ici
Dernière édition: 03/12/2010 @ 12:15:10
[Excel] Même page, mais footer incrémenté.
Publié le 03/12/2010 @ 12:27:28,
Par OlafOu inclure tout ça dans une page word et faire du publipostage?
[Excel] Même page, mais footer incrémenté.
Publié le 03/12/2010 @ 12:43:10,
Par PinouLe 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.
[Excel] Même page, mais footer incrémenté.
Publié le 03/12/2010 @ 13:48:01,
Par blietaerHey superbe!
Mais ..heu..ahem..va falloir que je google pour apprendre à faire un script en VB/Office moi!
Mais ..heu..ahem..va falloir que je google pour apprendre à faire un script en VB/Office moi!
Et au besoin s'arrêter.