Macro "signature"

[Rick@]

Bonjour,

Je me suis fais une macro pour signer mes documents. J'ai utilisé l'enregistreur de macro mais voilà, c'est vraiment long. Je ne suis pas expert en VBA mais il y a sûrement moyen de simplifier la formule...

Merci pour votre expertise!

Sub Signature()
'
' Signature Macro
' Macro enregistrée le 2012-03-13 par bh7997
'

'
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = "$B$1:$V$36"
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = _
"&""Arial,Gras italique""&5Rick@&""Arial,Italique""" & Chr(10) & "Équipe support opérationnel DCRC"
.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0)
.TopMargin = Application.InchesToPoints(0)
.BottomMargin = Application.InchesToPoints(0)
.HeaderMargin = Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperLetter
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = xlPrintErrorsDisplayed
End With
End Sub

 

[JCGL]

Re : Macro "signature"

Bonjour à tous,

Peux-tu essayer :

With ActiveSheet.PageSetup
.RightFooter = "&""Arial,Gras italique""&5Rick@&""Arial,Italique""" & Chr(10) & "Équipe support opérationnel DCRC"
.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0)
.TopMargin = Application.InchesToPoints(0)
.BottomMargin = Application.InchesToPoints(0)
.HeaderMargin = Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0)
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlLandscape
.FirstPageNumber = xlAutomatic
.FitToPagesWide = 1
.FitToPagesTall = 1
End With

A + à tous

 

[Rick@]

Re : Macro "signature"

Bonjour JCGL,

Merci pour le retour, mais voici le message obtenu.


"Erreur de compilation:
End Sub attendu"

 

[JCGL]

Re : Macro "signature"

Bonjour à tous,

J'ai oublié une précision qui a son importance...

Soit tu mets ce code dans un module standard et tu mets en première ligne

Sub Signature()
... le code ...
End Sub

ou dans le module ThisWorkBook

Private Sub Workbook_BeforePrint(Cancel As Boolean)
... le code ...
End Sub

A chaque impression la signature sera apposée automatiquement

A + à tous

Edition : Lance un Aperçu avant Impression...

 

[Rick@]

Re : Macro "signature"

Super! C'est plus rapide comme çà.

Gros merci GCGL!

 

[JCGL]

Re : Macro "signature"

Bonjour à tous,

Regarde le fichier du #4, il devrait être encore plus rapide...

A++
A + à tous

 

[Rick@]

Re : Macro "signature"

Effectivement c'est encore mieux.

On arrête pas le progrès...

Encore merci!