Salut,
Pour insérer un pied de page ou une entête pas de problème par macro, par contre pour ce qui est la modification de ceux-ci je ne vois pas comment tu pourrais empêcher la modification à part empêcher l'accès à la modification de la mise en page en bloquant le menu (mais ça je ne sais pas comment le faire).
Enfin voici le code pour modifier le pied de page par macro. Si tu veux tu le places dans la partie workbook open comme ça à chaque fois qu'on ouvre le classeur le pied de page est ré-initialisé au cas où quelqu'un l'aurai changé.
With ActiveSheet.PageSetup
.PrintTitleRows = ''
.PrintTitleColumns = ''
End With
ActiveSheet.PageSetup.PrintArea = ''
With ActiveSheet.PageSetup
.LeftHeader = '' 'ici tu mets ce que tu veux pour l'entête de la page
.CenterHeader = '(C) 2006 - FERY John' 'ici tu mets ce que tu veux pour l'entête de la page
.RightHeader = '' 'ici tu mets ce que tu veux pour l'entête de la page
.LeftFooter = '' 'ici tu mets ce que tu veux pour le pied de page
.CenterFooter = '(C) 2006 - FERY John' 'ici tu mets ce que tu veux pour le pied de page
.RightFooter = '' 'ici tu mets ce que tu veux pour le pied de page
.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 = 300
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
End With
Voilà j'espère que ça pourra t'aider.
Bonne journée.
John
Message édité par: john, à: 07/01/2006 13:15