Numérotation d'un classeur excel

Bonjour Christine,

Tu peux utiliser cette macro pour imprimer tout ton classeur

'----------------------------
Sub Imprimer()

Dim Nom As String
Dim Sh As Worksheet
Nom = ActiveSheet.Select
Worksheets.Select
For Each Sh In ActiveWindow.SelectedSheets
With Sh
.PageSetup.RightFooter = "&P sur &N"
.PrintOut ' + paramêtres au besoin voir aide
End With
Next
Sheets(Nom).Select
Set Sh = Nothing
End Sub
'----------------------------

Et si à toutes les fois que tu imprimes ton classeur, c'est toutes les feuilles que tu imprimes :

Tu peux te contenter de ceci dans le ThisWorkbook de ton classeur :


Private Sub Workbook_BeforePrint(Cancel As Boolean)
For Each Sh In ActiveWindow.SelectedSheets
With Sh
.PageSetup.RightFooter = "&P sur &N"
end with
next
End Sub



Salutations!





"Imbeault christine" <Imbeault.christine@qcmines.com> a écrit dans le message de news: ulWjo4tsFHA.2008@TK2MSFTNGP10.phx.gbl...
Bonjour à tous,

J'ai 3 feuilles dans mon classeur Excel. Dans mon classeur, j'ai feuille1
(1 page), feuill2 (2 pages) et feuille3(1 page). Je mets une numérotation
dans le pied de page de la feuille 2. Lorsque j'imprime mon classeur
entier, le pied de page de la feuille 2 page 1 indique la numérotation 2 et
la page 2 indique la numérotation 3. Je dois obtenir à l'impression de la
feuille 2 la numérotation suivante: page 1 la numérotation 1 et la page 2
numérotation 2. Pour obtenir ce résultat, je dois imprimer la feuille 2
seule.


Merci
Christine