Impression d'une suite de page

jeanpierre

Nous a quitté

Repose en paix

• 31 Juillet 2007

• #2

Re : Impression d'une suite de page

Bonjour bobjazz et le forum,

As-tu essayé par Fichier/Mise en page et l'onglet En-tête/Pied de page, En-tête personnalisée, et section de droite. Selectioner la l'icône avec un#

Tu auras donc &[Page]

Ce n'est que pour l'impression.

A te lire,

Bonne journée.

Jean-Pierre

 

Vote positif 0 Vote négatif

bobjazz

XLDnaute Impliqué

• 31 Juillet 2007

• #3

Re : Impression d'une suite de page

Bonjour jeanpierre et le Forum

Oui, j'ai essayé et comme c'est une seule page, il met N° 1 sur toutes les pages en impression.

Merci d'avance

bobjazz

 

Vote positif 0 Vote négatif

Spitnolan08

XLDnaute Barbatruc

• 31 Juillet 2007

• #4

Re : Impression d'une suite de page

Bonjour Bobjazz, JeanPierre,

Si j'ai bien compris, je peux te proposer

Code:

Sub MacroImp()
For i = 1 To 20
    With ActiveSheet.PageSetup
        .LeftHeader = i & "/20"
    End With

    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1
Next
End Sub

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 31 Juillet 2007

• #5

Re : Impression d'une suite de page

Re, Bonjour Spitnolan08,

Plus rapide que moi, mais comme je n'ai pas d'imprimante ici, j'étais en train de me battre avec PrintOut qui beuguer, bien entendu....

 

Vote positif 0 Vote négatif

bobjazz

XLDnaute Impliqué

• 31 Juillet 2007

• #6

Re : Impression d'une suite de page

Bonjour Spitnolan08 et jeanpierre

Merci c'est exactement cela que je voulais
Juste une question pour
For i = 1 To 20
Est ce qu'il serait possible de choisir le nombre "i"
Merci d'avance
Bobjazz

 

Vote positif 0 Vote négatif

Spitnolan08

XLDnaute Barbatruc

• 31 Juillet 2007

• #7

Re : Impression d'une suite de page

Re
En modifiant et si j'ai bien compris :

Code:

Sub MacroImp()
Dim N as integer, i as integer 

N = MsgBox("Saisir le nombre de pages du document :")
For i = 1 To N
    With ActiveSheet.PageSetup
        .LeftHeader = i & "/20"
    End With

    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1
Next
End Sub

Cordialement

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 31 Juillet 2007

• #8

Re : Impression d'une suite de page

Re,

Avec, avant le début de la boucle quelque chose comme cela :

J = InputBox("Nombre de page ?")

et ensuite for I= 1 to J

Pas testé.


Re : encore à la bourre

 

Vote positif 0 Vote négatif

bobjazz

XLDnaute Impliqué

• 31 Juillet 2007

• #9

Re : Impression d'une suite de page

Bonjour Spitnolan08 et jeanpierre

Je vous remercie, avec vos derniers conseils, je suis arrivé au résultat.

Code:
Sub MacroImp()
Dim N As Integer, i As Integer

N = MsgBox("Saisir le nombre de pages du document :")
J = InputBox("Nombre de page ?")

For i = 1 To J
With ActiveSheet.PageSetup
.RightHeader = "N°" & i
End With

ActiveWindow.SelectedSheets.PrintOut From:=1, to:=1
Next
End Sub

Merci au Forum

bobjazz

 

Vote positif 0 Vote négatif