Impression et pied de page en VBA

[xvella]

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]

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" :

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]

Re : Impression et pied de page en VBA

Re,

pour appliquer le code sur une seule feuille :

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

 

[xvella]

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