Comment mettre le meme pied de page sur toute les feulles d'un meme classeur?
 
Si qqun le sait  

Fichier Mise en page / onglet "En tête / Pied de page"

ok merci  
Mais il fo le mettre sur toutes les pages
 
pour cela il suffit juste de selectionner toute les pages
Merci

le resultat de la macro automatique donne :
 
 
 
Firma = InputBox("Fußzeile Rechts : ", "Firma Name" )
If Firma = "" Then Exit Sub
 
version = InputBox("Fußzeile Mittel : ", "version" )
If version = "" Then Exit Sub
    Sheets(Array("purchase", "sales", "axis", "actual", "files", "offer" )).Select
 
 With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
         
        .LeftFooter = Firma
        .CenterFooter = version
        .RightFooter = Date + Time
         
        .LeftMargin = Application.InchesToPoints(0.787401575)
        .RightMargin = Application.InchesToPoints(0.787401575)
        .TopMargin = Application.InchesToPoints(0.984251969)
        .BottomMargin = Application.InchesToPoints(0.984251969)
        .HeaderMargin = Application.InchesToPoints(0.4921259845)
        .FooterMargin = Application.InchesToPoints(0.4921259845)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
 
 
Mais au final ca me change le pied de page que ds une seule feuille. et je ne sais pas pourquoi.
Pourtant ala mais si on selectionne les 6 feuilles ca le change sur les six en meme tps  
 
en fait ca le change selement sur la feuille active  et  
    Sheets(Array("purchase", "sales", "axis", "actual", "files", "offer" )).Activate
 
'existe pas....

alors  une idee?