Date d'impression

Bonjour à tous,

A l'aide de ce code que j'ai trouve sur le forum ::

Sub ImpZoneEtTitle()

With Worksheets("Stock").PageSetup

.CenterHorizontally = True

.PrintArea = "$A$1:$F$14"

.PrintTitleRows = ("$A$1:$A$2")

.Orientation = xlPortrait

.FitToPagesWide = 1

.FitToPagesTall = 1

End With

Worksheets("Stock").PrintOut

End Sub

Je voudrai en plus imprimer dans une cellule, par exemple la cellule A15, la date à laquelle le document est imprimé.

Comment faire ?

merci de votre aide

bonjour,

en rajoutant

.RightFooter = "&D"

dans ton code cela devrait te donner le résultat attendu.

Sub ImpZoneEtTitle()
With Worksheets("Stock").PageSetup
.CenterHorizontally = True
.PrintArea = "$A$1:$F$14"
.PrintTitleRows = ("$A$1:$A$2")
.Orientation = xlPortrait
.FitToPagesWide = 1
.FitToPagesTall = 1
.RightFooter = "&D"
End With
Worksheets("Stock").PrintOut
End Sub

cordialement

Oups, j'avais pas vu que tu voulais la date en A15

soit tu utilises le code

    Sub ImpZoneEtTitle()
worksheets("Stock").range("A15")= Date
With Worksheets("Stock").PageSetup
    .CenterHorizontally = True
    .PrintArea = "$A$1:$F$15"
    .PrintTitleRows = ("$A$1:$A$2")
    .Orientation = xlPortrait
    .FitToPagesWide = 1
    .FitToPagesTall = 1
End With
Worksheets("Stock").PrintOut
End Sub

Soit tu rentres la formule suivante en A15 :

=AUJOURDHUI()

avec le code

    Sub ImpZoneEtTitle()
With Worksheets("Stock").PageSetup
    .CenterHorizontally = True
    .PrintArea = "$A$1:$F$15"
    .PrintTitleRows = ("$A$1:$A$2")
    .Orientation = xlPortrait
    .FitToPagesWide = 1
    .FitToPagesTall = 1
End With
Worksheets("Stock").PrintOut
End Sub

cordialement

Merci ca marche