[Excel] Comment mettre le meme pied de page sur toute les feulles

Comment mettre le meme pied de page sur toute les feulles [Excel] - Programmation

Marsh Posté le 24-08-2001 à 10:27:56    

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


---------------
Une ptite aide en VB et jVBien
Reply

Marsh Posté le 24-08-2001 à 10:27:56   

Reply

Marsh Posté le 24-08-2001 à 10:36:18    

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

Reply

Marsh Posté le 24-08-2001 à 10:43:51    

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


---------------
Une ptite aide en VB et jVBien
Reply

Marsh Posté le 24-08-2001 à 12:47:05    

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.... :??:


---------------
Une ptite aide en VB et jVBien
Reply

Marsh Posté le 24-08-2001 à 15:21:49    

alors  une idee?


---------------
Une ptite aide en VB et jVBien
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed