Les mêmes pieds de pages pour un classeurs complet

Bonjour,

Pour bien suivre le forum : un outil comme Outlook Express, Thunderbird
,...etc..
il suffit ensuite de cliquer ici:
news://news.microsoft.com/microsoft.public.fr.excel

--
lSteph


"eehfils" <eehfils@discussions.microsoft.com> a écrit dans le message de
news: 953B40A7-C13B-4B31-9032-7B89F106F977@microsoft.com...

par simplicité peut on mettre des options pour un pieds de page défini,
sont
strictement le même pour le classeur???!!!
Merci à vous

*Bonjour à toi aussi eehfils*,
A mettre dans le Thisworkbook :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
.LeftHeader = "Haut gauche"
.CenterHeader = "Haut Centre"
.RightHeader = "Haut Droit"
.LeftFooter = "Bas Gauche"
.CenterFooter = "Bas Centre"
.RightFooter = "Bas Droit"
End With
End Sub

par simplicité peut on mettre des options pour un pieds de page défini, sont
strictement le même pour le classeur???!!!
Merci à vous

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

Merci
beacoup à toi
dès fois, on ne peut pas mettre des choses en automatique comme le nom de
l'onglet.
Merci de tout tout de même
a+

*Bonjour à toi aussi eehfils*,
A mettre dans le Thisworkbook :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
.LeftHeader = "Haut gauche"
.CenterHeader = "Haut Centre"
.RightHeader = "Haut Droit"
.LeftFooter = "Bas Gauche"
.CenterFooter = "Bas Centre"
.RightFooter = "Bas Droit"
End With
End Sub

par simplicité peut on mettre des options pour un pieds de page défini, sont
strictement le même pour le classeur???!!!
Merci à vous

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

Bonjour,

Ne t'affole pas du texte ci-dessous, ce n'est qu'un exemple que l'on
fait presque instinctivement par la suite :o)

Essaie ce truc sous Excel :
outils | macro | nouvelle macro (donne un nom) et choisis de
l'enregistrer dans "Ce classeur"
(une barre d'outil apparaît)
fichier | mise en page | onglet entête/pied de page
Pied de page personnalisé
clic gauche dans Partie centrale
Dans les boutons apparents, tu en as un qui représente une feuille avec
plusieurs onglets en bas, clique dessus ...
...dans ta case apparaît &[Onglet]
Sélectionne ce texte puis clique sur le bouton "A"
Change la police et tout ce que tu souhaites, sors par OK (plusieurs fois)
Lorsque tu es revenu sur le classeur Excel, arrête l'enregistreur de
macro en cliquant sur le carré bleu de la barre d'outil apparue avant.
Alt-F11 pour accéder à l'éditeur VBA
Double-clic dans l'explorateur de projets (coté gauche) dans le
"Modules" de ton "VBAProject(lenom de ton fichier)"
Double clic sur Module1
L'enregistreur de macro a jeté plein de lignes dont celle-ci :
.CenterFooter = "&""Terminal,Gras""&9&A"

&""Terminal,Gras" est la police que j'ai choisie
"&9 est la taille des caractères
&A signifie &[Onglet] pour Excel

Elle est pas belle la vie ???

@+
FxM

Merci
beacoup à toi
dès fois, on ne peut pas mettre des choses en automatique comme le nom de
l'onglet.
Merci de tout tout de même
a+

*Bonjour à toi aussi eehfils*,
A mettre dans le Thisworkbook :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
.LeftHeader = "Haut gauche"
.CenterHeader = "Haut Centre"
.RightHeader = "Haut Droit"
.LeftFooter = "Bas Gauche"
.CenterFooter = "Bas Centre"
.RightFooter = "Bas Droit"
End With
End Sub

par simplicité peut on mettre des options pour un pieds de page défini, sont
strictement le même pour le classeur???!!!
Merci à vous
--

____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

Bonjour,

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftHeader = ActiveSheet.Name
End Sub

JB

Merci
beacoup à toi
dès fois, on ne peut pas mettre des choses en automatique comme le nom de
l'onglet.
Merci de tout tout de même
a+

*Bonjour à toi aussi eehfils*,
A mettre dans le Thisworkbook :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
.LeftHeader = "Haut gauche"
.CenterHeader = "Haut Centre"
.RightHeader = "Haut Droit"
.LeftFooter = "Bas Gauche"
.CenterFooter = "Bas Centre"
.RightFooter = "Bas Droit"
End With
End Sub

par simplicité peut on mettre des options pour un pieds de page d éfini, sont
strictement le même pour le classeur???!!!
Merci à vous

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O