pied de page différent sur 1ère page

Version imprimable

15/10/2007, 15h51
fmh1982

pied de page différent sur 1ère page

bonjour,

il y a t-il un moyen sur excel(2000 ou 2003) d'insérer un pied de page vide pour la 1ère et un autre pour le reste des page.

j'ai essayé avec les macros Hpagebreaks et le footer mais impossible ca ne donne pas de résultat,,

en fait la meilleure solution est d'utiliser les sauts de page mais avec en disant dans le premier saut de page le footer est vide et le reste est différent,

mais je n'arrive pas à traduire ca en macros en tout cas j'ai essayé mais rien
si qq1 peut m'aider svp !!!

Pour automatiser l'impression de la feuille désignée lorsque tu appuies sur le bouton imprimer de la barre d'outils.

Mets dans le module ThisWorkbook :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub Workbook_BeforePrint(Cancel As Boolean)
 
Dim Sh As Worksheet
 
Set Sh = Worksheets("Feuil1")
With Sh
With .PageSetup
'Défiinis les caractéristiques de présentation de ta première page :
.LeftHeader = "Quelle belle journée"
.RightFooter = "Ok, je suis d'accord"
 
'Cette commande n'imprime que la page 1
Sh.PrintOut 1, 1
 
'Pour toutes les autres feuilles, tu définis d'autres caractéristiques
.LeftHeader = "J'ai faim"
.RightFooter = "Ok, je vais déjeuner"
 
'Si une caractéristique a été définie pour la première page et que tu ne veux
'pas l'utiliser sur la seconde, il FAUT que tu la vides de la façon suivante :
.RightFooter = ""
 
'Commande pour imprimer toutes les autres feuilles à partir de la feuille 2:
Sh.PrintOut 2
End With
End With
End Sub

:yaisse2:

15/10/2007, 21h12
fmh1982

merci

j'ai déjà essayé ça hier mais ça m'imprime directement les pages et ça ne fonctionne pas ...d'ailleurs je l'ai pris sur un autre site
16/10/2007, 07h13
Couettecouette

Citation:

Envoyé par fmh1982

merci

j'ai déjà essayé ça hier mais ça m'imprime directement les pages et ça ne fonctionne pas ...d'ailleurs je l'ai pris sur un autre site

Ben ça n'imprime que quand tu demandes à imprimer !?! :?
16/10/2007, 13h04
fmh1982

j'ai réessayer ce code ,,, j'ai rien modifier ça m'imprime 2X les mêmes pages , essaye le si tu veux
16/10/2007, 14h04
Couettecouette

Citation:

Envoyé par fmh1982

j'ai réessayer ce code ,,, j'ai rien modifier ça m'imprime 2X les mêmes pages , essaye le si tu veux

As-tu fais "aperçu avant impression" avant ?
Car en effet, j'ai eu le problème une fois et c'était ça il me semble ... à voir.
16/10/2007, 16h03
fmh1982

non j'ai rein fait ,,, il lance 2X l'impression ça m'énerve
mais comme j'ai dis au début il faut à mon avis travailler avec les hpagebreaks et détecter la première page et dans le code mettre si c'est la 1ère page .centerfooter est vide sinon .centerfooter = "chaine" ,mais je n'arrive pas coder ça en vBA

bonjour

tu peux tester

Code:

1
2
3
4
5
6
7
With Feuil1
    .PageSetup.CenterFooter = "Pied de page 1"
    .PrintOut From:=1, To:=1
 
    .PageSetup.CenterFooter = "Pieds de Pages 2 à 3"
    .PrintOut From:=2, To:=3
End With

bonne journée
michel

17/10/2007, 10h26
fmh1982

Merci

la c'est déjà mieux et plus propre mais il imprime séparément les pages et comme mes pages seront imprimés en pdf,,, ça joue pas, il y n' y a pas moyen de passer par VB
17/10/2007, 11h22
SilkyRoad

Citation:

et comme mes pages seront imprimés en pdf,,, ça joue pas, il y n' y a pas moyen de passer par VB

Dans ce cas utilise les dernières cellules de chaque page comme des pieds de page.

michel