pied de page perso sur derniere page seulement

J

jetted

XLDnaute Occasionnel

• 26 Mai 2010

• #2

Re : pied de page perso sur derniere page seulement

Bonjour Vincent

Essais ceci

Code:

Sub Test()
    Dim TotPages As Long
    TotPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
    With ActiveSheet.PageSetup
        .RightFooter = "Votre information viens ici...."
        ActiveSheet.PrintOut From:=TotPages, To:=TotPages
        .RightFooter = ""
        ActiveSheet.PrintOut From:=TotPages, To:=TotPages
    End With
End Sub

 

Vote positif 0 Vote négatif

V

vincent50

XLDnaute Occasionnel

• 28 Mai 2010

• #3

Re : pied de page perso sur derniere page seulement

merci, mais je cherche a afficher mon pied de page uniquement sur la derniere page et non sur toutes les pages.

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 28 Mai 2010

• #4

Re : pied de page perso sur derniere page seulement

Bonjour,

Chaque page correspond à un onglet ou un onglet peut contenir une multitude de pages ?
Cette question pour savoir ci il faut travailler avec le dernier saut de page ou avec le dernier onglet ( Ou Feuille)

 

Vote positif 0 Vote négatif

V

vincent50

XLDnaute Occasionnel

• 28 Mai 2010

• #5

Re : pied de page perso sur derniere page seulement

chaque onglet comporte plusieurs pages, je veux mettre un pied de page sur la derniere feuille d'un onglet uniquement et pas sur tout le classeur

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 28 Mai 2010

• #6

Re : pied de page perso sur derniere page seulement

Bis,
Je ne pense pas que l'on puisse jouer sur le pied de page de cette manière.

Par contre, une solution détournée serait par macro de déterminer la dernière ligne de l'onglet en question et d'y ajouter une ligne supplémentaire reprenant les infos que tu désires afficher ( je peux t"écrire un simulation si cela te convient), par contre est ce que l'onglet porte toujours le même nom . Et quelles info veux tu afficher dans ce pied de page

 

Vote positif 0 Vote négatif

V

vincent50

XLDnaute Occasionnel

• 28 Mai 2010

• #7

Re : pied de page perso sur derniere page seulement

oui, je veux bien, l'onglet porte toujours le même nom, les infos a y mettre sont:
a gauche:Le directeur de course:
nom
lic:...
a droite: Le chronometreur:
nom
lic: ...

merci

 

Vote positif 0 Vote négatif

R

Risleure

XLDnaute Occasionnel

• 28 Mai 2010

• #8

Re : pied de page perso sur derniere page seulement

Bonjour Vincent50, le Forum

J'ai pas trouvé la bonne solution mais j'ai une solution inverse : la 1ère page est différente des suivantes! 🙁

Donc au cas où la solution t'intéresse, je te donne mon code.

L'impression est à lancer par Exécuter; Macro "ImpressionSansPiedPourLaPremiere"

Bon courage

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 28 Mai 2010

• #9

Re : pied de page perso sur derniere page seulement

Bonjour à tous ,

Bien la solution que j'ai proposée peut fonctionner mais il faut faire des réglages relativement fins par rapport au contenu de la dernière page.(Sinon pas fiable)
Comme je n'ai pas de modèle de ton fichier , je préfére ne pas envoyer le proto que j'ai écris , la gestion des sauts de pages sur Excel est vraiment la bête noire.

 

Vote positif 0 Vote négatif