Discussion :

[fmh1982]

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 !!!

[Couettecouette]

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 :

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

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

[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

[Couettecouette]

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 !?!

[fmh1982]

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

[Couettecouette]

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.

[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

[SilkyRoad]

bonjour

tu peux tester

Code :

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

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

[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

[SilkyRoad]

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