Bonjour à tous.
Voici mon problème:
j'ai créé un fichier excel comprenant 162 onglets.
Chaque onglets représentent un bulletin scolaire de plusieurs pages d'un élève.
Je souhaite faire apparaitre en pied de page, le nom de l'élève; l'année scolaire;et le nombre de page.
le nom de l'élève et l'année scolaire apparaissent chacun dans une cellule en début de bulletin.
j'ai essayé celà:
Private Sub CommandButton42_Click()
' Ajout pied de page dans tous les onglets
Dim i As Integer
Application.ScreenUpdating = False
For i = 11 To Worksheets.Count - 4 'de la feuille 11 à -4 de la fin qui représente le bulletins
With Sheets(i).PageSetup
.LeftFooter = Range("h16") & " " & Range("e17")
.CenterFooter = Range("d19") & " " & Range("d18")
.RightFooter = "Page &P/&N"
End With
Next i
Application.ScreenUpdating = True
End Sub
Dans tous les pieds de page, c'est le nom de l'élève et l'année scolaire de la feuille (onglet) active qui seront insérés et non le nom de l'élève sur chaque bulletins. Pourquoi ça ne marche pas???????
J'ai essayer XXXXXmacros, mais rien n’aboutis correctement.
Merci pour votre aide....
Quelqu'un pourrait-il me répondre juste pour savoir si mon message à bien été envoyé aux internautes? Merci.
A bientôt..
Voici mon problème:
j'ai créé un fichier excel comprenant 162 onglets.
Chaque onglets représentent un bulletin scolaire de plusieurs pages d'un élève.
Je souhaite faire apparaitre en pied de page, le nom de l'élève; l'année scolaire;et le nombre de page.
le nom de l'élève et l'année scolaire apparaissent chacun dans une cellule en début de bulletin.
j'ai essayé celà:
Private Sub CommandButton42_Click()
' Ajout pied de page dans tous les onglets
Dim i As Integer
Application.ScreenUpdating = False
For i = 11 To Worksheets.Count - 4 'de la feuille 11 à -4 de la fin qui représente le bulletins
With Sheets(i).PageSetup
.LeftFooter = Range("h16") & " " & Range("e17")
.CenterFooter = Range("d19") & " " & Range("d18")
.RightFooter = "Page &P/&N"
End With
Next i
Application.ScreenUpdating = True
End Sub
Dans tous les pieds de page, c'est le nom de l'élève et l'année scolaire de la feuille (onglet) active qui seront insérés et non le nom de l'élève sur chaque bulletins. Pourquoi ça ne marche pas???????
J'ai essayer XXXXXmacros, mais rien n’aboutis correctement.
Merci pour votre aide....
Quelqu'un pourrait-il me répondre juste pour savoir si mon message à bien été envoyé aux internautes? Merci.
A bientôt..