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