Aide :impression 50 pages identiques à pied de pages differents

Victor21

XLDnaute Barbatruc

Supporter XLD

• 7 Janvier 2014

• #2

Re : Aide :impression 50 pages identiques à pied de pages differents

Bonsoir à vous aussi, sihamidi.

Moi, j'aimerais bien avoir un extrait de votre fichier (sans données confidentielles, mais en reprenant sa structure) qui illustrerait votre exigence.

 

Vote positif 0 Vote négatif

H

Hamidexcel

XLDnaute Occasionnel

• 7 Janvier 2014

• #3

Re : Aide :impression 50 pages identiques à pied de pages differents

Bonjour Merci Victor21 pour la réponse

Le fichier ci joint n'est pas le réel mais reflète un peu ce que je veux je suis maintenant à domicile et le fichier réel
est dans le poste de travail

 

Pièces jointes

• effectif.xlsx

  10.5 KB · Affichages: 49
• effectif.xlsx

  10.5 KB · Affichages: 51
• effectif.xlsx

  10.5 KB · Affichages: 55

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 7 Janvier 2014

• #4

Re : Aide :impression 50 pages identiques à pied de pages differents

Bonsoir,
Pas sûr que le tampon suive, il faudra peut-être temporiser

Code:

For i = 1 To 50
    With ActiveSheet
        .[e17] = "Nonbre de pages: " & i
        .PageSetup.CenterFooter = "Page " & i
        .PrintPreview                'coche pour imprimer
        '.PrintOut From:=1, To:=1     'décoche pour imprimer
    End With
Next

kjin

 

Vote positif 0 Vote négatif

H

Hamidexcel

XLDnaute Occasionnel

• 7 Janvier 2014

• #5

Re : Aide :impression 50 pages identiques à pied de pages differents

Merci Kjin Pour la réponse ,je vais essayer d’exécuter la macro

 

Vote positif 0 Vote négatif

H

Hamidexcel

XLDnaute Occasionnel

• 8 Janvier 2014

• #6

Re : Aide :impression 50 pages identiques à pied de pages differents

Bonsoir,

ça marche impeccable je l'ai essayé sur mon fichier c'est bien ce que je veux juste une question si je veux arrêter l'impression à une étape intermédiaire exemple à 20 page je fais échappe, mais ça n’aboutit pas qu’après plusieurs échappe
y a -t -il un ajout sur la macro pour arrêter une fois faire échappe
merci pour l'aide

 

Vote positif 0 Vote négatif