Bonjour.
Je cherche désespérément la façon d'automatiser l'écriture du même pieds de
page dans toutes les feuilles du classeur, ainsi que dans celles insérer par
la suite.
Merci d'avance pour vos explications.
Alain
Sub PedPage() For Each s In ActiveWorkbook.Sheets s.PageSetup.CenterFooter = "Cegos" Next s End Sub
Cordialement JB
JB
Tous les classeurs d'un répertoire:
Sub PedPage2() nf = Dir("*.xls") Do While nf <> "" Workbooks.Open Filename:=nf For Each s In ActiveWorkbook.Sheets s.PageSetup.CenterFooter = "Cegos" Next s ActiveWorkbook.Save ActiveWorkbook.Close nf = Dir ' classeur suivant Loop End Sub
JB
Tous les classeurs d'un répertoire:
Sub PedPage2()
nf = Dir("*.xls")
Do While nf <> ""
Workbooks.Open Filename:=nf
For Each s In ActiveWorkbook.Sheets
s.PageSetup.CenterFooter = "Cegos"
Next s
ActiveWorkbook.Save
ActiveWorkbook.Close
nf = Dir ' classeur suivant
Loop
End Sub
Sub PedPage2() nf = Dir("*.xls") Do While nf <> "" Workbooks.Open Filename:=nf For Each s In ActiveWorkbook.Sheets s.PageSetup.CenterFooter = "Cegos" Next s ActiveWorkbook.Save ActiveWorkbook.Close nf = Dir ' classeur suivant Loop End Sub
