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)
Qu'est-ce que vous en pensez ?
Thnaks bonne Am
Seb
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 SubQu'est-ce que vous en pensez ?
Thnaks bonne Am
Seb