XL 2010 PAge.setup / optimisation de macro et Retour à la ligne pour CenterHeader

[GADENSEB]

hello Le Forum
je voudrais créer en auo les entetes et pieds de page pour tous mes docs Excel.
Je ferais de cette macro une XLA.

Pour l'instant j'en suis là ....
Un peu brouillon du coup je cherche à l'optimiser :
- Mettre tout &""century gothic"" pour tous les items (leftheader, centerheader......)
- Et surtout faire un retour à la ligne pour le centereader si texte trop long sinon c'est moche !!! (comme sur mon fichier)

Sub toutes_feuilles()
Dim x As Byte

For x = 1 To Sheets.Count
    With Sheets(x).PageSetup
        'en-tête de page
        .LeftHeader = "&8&""century gothic""texte section gauche"
        .CenterHeader = "&G&14&""century gothic""&F" 'nom fichier
        .RightHeader = "&8&""century gothic""texte section droite"
        .LeftFooter = "&8&""century gothic""Sébastien GADEN"
        .CenterFooter = "&8&""century gothic""&A" 'nom feuille
        .RightFooter = "&8&""century gothic""&D / &T" '<-- date / heure
        '.RightFooter = "&P/&N" '<-- numéro de page / nombre de pages
    End With
Next x

End Sub

Qu'est-ce que vous en pensez ?
Thnaks bonne Am
Seb

 

[Staple1600]

Bonjour à tous

Pourquoi ne pas simplement mettre ces paramètres par défaut dans Excel?
Tu peux faire cela en créant un modèle spécifique avec ces paramètres.

 

[GADENSEB]

Hello !!
- paramètres par défaut dans Excel? je connais pas l'astuce. c'est ou ?
- pour les modéles j'ai pas encore essayé j'avoue

 

[Staple1600]

Re

Tu ouvres un nouveau classeur, tu le personnalise à souhait (nombre de feuilles, mise en page, police etc)
puis tu l'enregistres en tant que modèle (extension *.xlst)

(Voir les nombreux exemples sur le Web qui expliquent comment créer et utiliser un modèle Excel)

 

[GADENSEB]

ok ok je vais jeter un oeil !!!
Thanks