Impression et pied de page en VBA

xvella · 2 Juin 2010

Bonsoir Tous,
Bonsoir Forum,

Voilà j'ai un petit souci, je souhaite via VBA intercepté la commande Impression, puis y ajouté un pied de page définit ("une phrase") et de couleur définit.

Si vous avez une idée pour m'aider.

Merci d'avance pour votre aide.

@+

Pierrot93 · 3 Juin 2010

Re : Impression et pied de page en VBA

Bonjour xvella

pour le texte, essaye peut être le code ci-dessous à placer dans le module "thisworkbook" :

Code:

Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.CenterFooter = "ton texte "
End Sub

Attention ce code se déclenchera sur toute les feuilles de ton classeur, il y aura peut être lieu de contrôler le nom de la feuille active...

pour la couleur de la police, à priori ce n'est pas disponible sous excel 2003...

bonne jouirnée
@+

Pierrot93 · 3 Juin 2010

Re : Impression et pied de page en VBA

Re,

pour appliquer le code sur une seule feuille :

Code:

Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "NomFeuille" Then
    ActiveSheet.PageSetup.CenterFooter = "ton texte "
End If
End Sub

xvella · 3 Juin 2010

Re : Impression et pied de page en VBA

Bonjour Pierrot93,
Bonjour forum,

Un Grand Merci sa Marche du tonnerre. (J'adore Waouh!!!)

A+ et encore MERCI

Impression et pied de page en VBA

xvella

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

xvella

XLDnaute Occasionnel

Discussions similaires

Impression et pied de page en VBA

xvella

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

xvella

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency