Discussion :

[operaq]

Bonjour,

Grace à cette page; http://fring.developpez.com/vba/excel/entetepiedpage/, j'ai pu configurer mes en-têtes et pieds de pages. Mais je rencontre quelque problèmes;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
With ActiveSheet.PageSetup
    'en-tête de page
    .LeftHeader = "&G&16&F"
    .CenterHeader = "&G&16Société"
    .RightHeader = "&G&16&D"
    'pied de page
    .LeftFooter = Sheets(1).Range("AC1")
    .CenterFooter = ""
    .RightFooter = "&G&16&P/&N" '<-- numéro de page / nombre de pages
 
End With

Le gras ne s'affiche pas, mais surtout ".LeftFooter(...)" n'est pas pris en compte, même en mettant un texte simple.
Pourriez vous m'éclairer ?

[parmi]

Bonjour,

Tu ne spécifies pas la version que tu utilises...
Ici, sous 2007, le gras ne s'écrit pas G, mais Gras

Résultat:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
    With ActiveSheet.PageSetup
        .LeftHeader = "&""-,Gras""&16&F"
        .CenterHeader = "&""-,Gras""&16Société"
        .RightHeader = "&""-,Gras""&16&D"
        .LeftFooter = Sheets(1).Range("AC1")
        .RightFooter = "&""-,Gras""&16&P/&N"

[keygen08]

Bonjour, comme ceci peut etre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.LeftFooter ="" & Sheets(1).Range("AC1").value

[parmi]

J'oubliais de mentionner qu'il y a peut-être une erreur sur Sheets(1).
Peut-être que ça ne pointe pas sur la bonne feuille (?)
Autrement, la façon dont je l'ai écrite fonctionne bien.

[operaq]

Bonjour,

Je travail sous 2010, le gras effectivement marche parfaitement maintenant merci.
Helas cela ne fonctionne toujours pas pour .LeftFooter, je suis pourtant sur la feuil1.

[jijie]

bonjour,

alors essaye de remplacer Sheets(1) par sheets("feuil1")