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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

GADENSEB

XLDnaute Impliqué
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)


Code:
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
 

Pièces jointes

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)
 
Notre forum d’entraide est 100 % gratuit et le restera.
Aucune formation payante, aucun fichier à acheter, rien à vendre. Mais comme tout site, nous devons couvrir nos frais pour continuer à vous accompagner.
Soutenez-nous en souscrivant à un compte membre : c’est rapide, vous choisissez simplement votre niveau de soutien et le tour est joué.

Je soutiens la communauté et j’accède à mon compte membre

Discussions similaires

Réponses
5
Affichages
909
Réponses
0
Affichages
1 K
Retour