Bonsoir,
Dans "aperçu avant impression", dans "en tête et pied de page", on peut
mettre une date. Je souhaite pouvoir avoir "année 2004" afin que celle-ci
change chaque année.
Merci
Titus
With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "année 2004" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "pour changer l'année, faudra la mimine sauf si un crack passe par là" End With ActiveWindow.SelectedSheets.PrintPreview
jps
Titus a écrit:
Bonsoir, Dans "aperçu avant impression", dans "en tête et pied de page", on peut mettre une date. Je souhaite pouvoir avoir "année 2004" afin que celle-ci change chaque année. Merci Titus
bonjour titus
un truc dans ce genre, peut-être?
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "année 2004"
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = "pour changer l'année, faudra la mimine sauf si
un crack passe par là"
End With
ActiveWindow.SelectedSheets.PrintPreview
jps
Titus a écrit:
Bonsoir,
Dans "aperçu avant impression", dans "en tête et pied de page", on peut
mettre une date. Je souhaite pouvoir avoir "année 2004" afin que celle-ci
change chaque année.
Merci
Titus
With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "année 2004" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "pour changer l'année, faudra la mimine sauf si un crack passe par là" End With ActiveWindow.SelectedSheets.PrintPreview
jps
Titus a écrit:
Bonsoir, Dans "aperçu avant impression", dans "en tête et pied de page", on peut mettre une date. Je souhaite pouvoir avoir "année 2004" afin que celle-ci change chaque année. Merci Titus
garnote
Et si en A1, on entrait la formule : ="année " & ANNEE(AUJOURDHUI()) avec caractères blancs et :
Sub Année() With ActiveSheet.PageSetup .CenterHeader = [A1] .RightFooter = [A1] End With ActiveWindow.SelectedSheets.PrintPreview End Sub
serait-ce raisonnable ?
Serge
"sabatier" a écrit dans le message de news:
bonjour titus un truc dans ce genre, peut-être?
With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "année 2004" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "pour changer l'année, faudra la mimine sauf si un crack passe par là" End With ActiveWindow.SelectedSheets.PrintPreview
jps
Titus a écrit:
Bonsoir, Dans "aperçu avant impression", dans "en tête et pied de page", on peut mettre une date. Je souhaite pouvoir avoir "année 2004" afin que celle-ci
change chaque année. Merci Titus
Et si en A1, on entrait la formule :
="année " & ANNEE(AUJOURDHUI())
avec caractères blancs et :
Sub Année()
With ActiveSheet.PageSetup
.CenterHeader = [A1]
.RightFooter = [A1]
End With
ActiveWindow.SelectedSheets.PrintPreview
End Sub
serait-ce raisonnable ?
Serge
"sabatier" <jpsabatdelaile@wanadoo.fr> a écrit dans le message de news:
402424F9.1090808@wanadoo.fr...
bonjour titus
un truc dans ce genre, peut-être?
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "année 2004"
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = "pour changer l'année, faudra la mimine sauf si
un crack passe par là"
End With
ActiveWindow.SelectedSheets.PrintPreview
jps
Titus a écrit:
Bonsoir,
Dans "aperçu avant impression", dans "en tête et pied de page", on peut
mettre une date. Je souhaite pouvoir avoir "année 2004" afin que
celle-ci
Et si en A1, on entrait la formule : ="année " & ANNEE(AUJOURDHUI()) avec caractères blancs et :
Sub Année() With ActiveSheet.PageSetup .CenterHeader = [A1] .RightFooter = [A1] End With ActiveWindow.SelectedSheets.PrintPreview End Sub
serait-ce raisonnable ?
Serge
"sabatier" a écrit dans le message de news:
bonjour titus un truc dans ce genre, peut-être?
With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "année 2004" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "pour changer l'année, faudra la mimine sauf si un crack passe par là" End With ActiveWindow.SelectedSheets.PrintPreview
jps
Titus a écrit:
Bonsoir, Dans "aperçu avant impression", dans "en tête et pied de page", on peut mettre une date. Je souhaite pouvoir avoir "année 2004" afin que celle-ci
change chaque année. Merci Titus
garnote
Avec des minutes, ça semble fonctionner.
En A1 et caractères blancs : ="minute "&MINUTE(MAINTENANT())
ET :
Private Sub Workbook_Open() Call Minute End Sub
Sub Minute() With ActiveSheet.PageSetup .CenterHeader = [a1] .RightFooter = [a1] End With ActiveWindow.SelectedSheets.PrintPreview End Sub
Serge
"garnote" a écrit dans le message de news: CNVUb.18703$
Et si en A1, on entrait la formule : ="année " & ANNEE(AUJOURDHUI()) avec caractères blancs et :
Sub Année() With ActiveSheet.PageSetup .CenterHeader = [A1] .RightFooter = [A1] End With ActiveWindow.SelectedSheets.PrintPreview End Sub
serait-ce raisonnable ?
Serge
"sabatier" a écrit dans le message de news:
bonjour titus un truc dans ce genre, peut-être?
With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "année 2004" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "pour changer l'année, faudra la mimine sauf si un crack passe par là" End With ActiveWindow.SelectedSheets.PrintPreview
jps
Titus a écrit:
Bonsoir, Dans "aperçu avant impression", dans "en tête et pied de page", on peut
mettre une date. Je souhaite pouvoir avoir "année 2004" afin que celle-ci
change chaque année. Merci Titus
Avec des minutes, ça semble fonctionner.
En A1 et caractères blancs :
="minute "&MINUTE(MAINTENANT())
ET :
Private Sub Workbook_Open()
Call Minute
End Sub
Sub Minute()
With ActiveSheet.PageSetup
.CenterHeader = [a1]
.RightFooter = [a1]
End With
ActiveWindow.SelectedSheets.PrintPreview
End Sub
Serge
"garnote" <rien@absent.net> a écrit dans le message de news:
CNVUb.18703$2g.13250@charlie.risq.qc.ca...
Et si en A1, on entrait la formule :
="année " & ANNEE(AUJOURDHUI())
avec caractères blancs et :
Sub Année()
With ActiveSheet.PageSetup
.CenterHeader = [A1]
.RightFooter = [A1]
End With
ActiveWindow.SelectedSheets.PrintPreview
End Sub
serait-ce raisonnable ?
Serge
"sabatier" <jpsabatdelaile@wanadoo.fr> a écrit dans le message de news:
402424F9.1090808@wanadoo.fr...
bonjour titus
un truc dans ce genre, peut-être?
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "année 2004"
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = "pour changer l'année, faudra la mimine sauf si
un crack passe par là"
End With
ActiveWindow.SelectedSheets.PrintPreview
jps
Titus a écrit:
Bonsoir,
Dans "aperçu avant impression", dans "en tête et pied de page", on
peut
mettre une date. Je souhaite pouvoir avoir "année 2004" afin que
celle-ci
En A1 et caractères blancs : ="minute "&MINUTE(MAINTENANT())
ET :
Private Sub Workbook_Open() Call Minute End Sub
Sub Minute() With ActiveSheet.PageSetup .CenterHeader = [a1] .RightFooter = [a1] End With ActiveWindow.SelectedSheets.PrintPreview End Sub
Serge
"garnote" a écrit dans le message de news: CNVUb.18703$
Et si en A1, on entrait la formule : ="année " & ANNEE(AUJOURDHUI()) avec caractères blancs et :
Sub Année() With ActiveSheet.PageSetup .CenterHeader = [A1] .RightFooter = [A1] End With ActiveWindow.SelectedSheets.PrintPreview End Sub
serait-ce raisonnable ?
Serge
"sabatier" a écrit dans le message de news:
bonjour titus un truc dans ce genre, peut-être?
With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "année 2004" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "pour changer l'année, faudra la mimine sauf si un crack passe par là" End With ActiveWindow.SelectedSheets.PrintPreview
jps
Titus a écrit:
Bonsoir, Dans "aperçu avant impression", dans "en tête et pied de page", on peut
mettre une date. Je souhaite pouvoir avoir "année 2004" afin que celle-ci
change chaque année. Merci Titus
ChrisV
Bonjour Titus,
Dans la feuille de code de ThisWorkbook...
Private Sub Workbook_BeforePrint(Cancel As Boolean) ActiveSheet.PageSetup _ .CenterHeader = "année " & Format(Date, "yyyy") End Sub
ChrisV
"Titus" a écrit dans le message de news:
Bonsoir, Dans "aperçu avant impression", dans "en tête et pied de page", on peut mettre une date. Je souhaite pouvoir avoir "année 2004" afin que celle-ci change chaque année. Merci Titus
Bonjour Titus,
Dans la feuille de code de ThisWorkbook...
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup _
.CenterHeader = "année " & Format(Date, "yyyy")
End Sub
ChrisV
"Titus" <Titus@noproblemo.fr> a écrit dans le message de news:
OGkJrRQ7DHA.360@TK2MSFTNGP12.phx.gbl...
Bonsoir,
Dans "aperçu avant impression", dans "en tête et pied de page", on peut
mettre une date. Je souhaite pouvoir avoir "année 2004" afin que celle-ci
change chaque année.
Merci
Titus
Private Sub Workbook_BeforePrint(Cancel As Boolean) ActiveSheet.PageSetup _ .CenterHeader = "année " & Format(Date, "yyyy") End Sub
ChrisV
"Titus" a écrit dans le message de news:
Bonsoir, Dans "aperçu avant impression", dans "en tête et pied de page", on peut mettre une date. Je souhaite pouvoir avoir "année 2004" afin que celle-ci change chaque année. Merci Titus
garnote
Enfin, les cracks se manifestent !
Serge
"ChrisV" a écrit dans le message de news:
Bonjour Titus,
Dans la feuille de code de ThisWorkbook...
Private Sub Workbook_BeforePrint(Cancel As Boolean) ActiveSheet.PageSetup _ .CenterHeader = "année " & Format(Date, "yyyy") End Sub
ChrisV
"Titus" a écrit dans le message de news:
Bonsoir, Dans "aperçu avant impression", dans "en tête et pied de page", on peut mettre une date. Je souhaite pouvoir avoir "année 2004" afin que celle-ci
change chaque année. Merci Titus
Enfin, les cracks se manifestent !
Serge
"ChrisV" <chrisve@wanadoo.fr> a écrit dans le message de news:
umOMT6Q7DHA.1428@TK2MSFTNGP12.phx.gbl...
Bonjour Titus,
Dans la feuille de code de ThisWorkbook...
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup _
.CenterHeader = "année " & Format(Date, "yyyy")
End Sub
ChrisV
"Titus" <Titus@noproblemo.fr> a écrit dans le message de news:
OGkJrRQ7DHA.360@TK2MSFTNGP12.phx.gbl...
Bonsoir,
Dans "aperçu avant impression", dans "en tête et pied de page", on peut
mettre une date. Je souhaite pouvoir avoir "année 2004" afin que
celle-ci
Private Sub Workbook_BeforePrint(Cancel As Boolean) ActiveSheet.PageSetup _ .CenterHeader = "année " & Format(Date, "yyyy") End Sub
ChrisV
"Titus" a écrit dans le message de news:
Bonsoir, Dans "aperçu avant impression", dans "en tête et pied de page", on peut mettre une date. Je souhaite pouvoir avoir "année 2004" afin que celle-ci
change chaque année. Merci Titus
Titus
Merci beaucoup à tous, je n'ai que l'embarras du choix Titus
"garnote" a écrit dans le message de news:R4WUb.19137$
Enfin, les cracks se manifestent !
Serge
"ChrisV" a écrit dans le message de news:
Bonjour Titus,
Dans la feuille de code de ThisWorkbook...
Private Sub Workbook_BeforePrint(Cancel As Boolean) ActiveSheet.PageSetup _ .CenterHeader = "année " & Format(Date, "yyyy") End Sub
ChrisV
"Titus" a écrit dans le message de news:
Bonsoir, Dans "aperçu avant impression", dans "en tête et pied de page", on peut
mettre une date. Je souhaite pouvoir avoir "année 2004" afin que celle-ci
change chaque année. Merci Titus
Merci beaucoup à tous, je n'ai que l'embarras du choix
Titus
"garnote" <rien@absent.net> a écrit dans le message de
news:R4WUb.19137$2g.8314@charlie.risq.qc.ca...
Enfin, les cracks se manifestent !
Serge
"ChrisV" <chrisve@wanadoo.fr> a écrit dans le message de news:
umOMT6Q7DHA.1428@TK2MSFTNGP12.phx.gbl...
Bonjour Titus,
Dans la feuille de code de ThisWorkbook...
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup _
.CenterHeader = "année " & Format(Date, "yyyy")
End Sub
ChrisV
"Titus" <Titus@noproblemo.fr> a écrit dans le message de news:
OGkJrRQ7DHA.360@TK2MSFTNGP12.phx.gbl...
Bonsoir,
Dans "aperçu avant impression", dans "en tête et pied de page", on
peut
mettre une date. Je souhaite pouvoir avoir "année 2004" afin que
celle-ci
Merci beaucoup à tous, je n'ai que l'embarras du choix Titus
"garnote" a écrit dans le message de news:R4WUb.19137$
Enfin, les cracks se manifestent !
Serge
"ChrisV" a écrit dans le message de news:
Bonjour Titus,
Dans la feuille de code de ThisWorkbook...
Private Sub Workbook_BeforePrint(Cancel As Boolean) ActiveSheet.PageSetup _ .CenterHeader = "année " & Format(Date, "yyyy") End Sub
ChrisV
"Titus" a écrit dans le message de news:
Bonsoir, Dans "aperçu avant impression", dans "en tête et pied de page", on peut
mettre une date. Je souhaite pouvoir avoir "année 2004" afin que celle-ci
change chaque année. Merci Titus
sabatier
merci, chris : ce que j'avais subodoré sans être parvenu à l'écrire... jps
ChrisV a écrit:
Bonjour Titus,
Dans la feuille de code de ThisWorkbook...
Private Sub Workbook_BeforePrint(Cancel As Boolean) ActiveSheet.PageSetup _ .CenterHeader = "année " & Format(Date, "yyyy") End Sub
ChrisV
"Titus" a écrit dans le message de news:
Bonsoir, Dans "aperçu avant impression", dans "en tête et pied de page", on peut mettre une date. Je souhaite pouvoir avoir "année 2004" afin que celle-ci change chaque année. Merci Titus
merci, chris : ce que j'avais subodoré sans être parvenu à l'écrire...
jps
ChrisV a écrit:
Bonjour Titus,
Dans la feuille de code de ThisWorkbook...
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup _
.CenterHeader = "année " & Format(Date, "yyyy")
End Sub
ChrisV
"Titus" <Titus@noproblemo.fr> a écrit dans le message de news:
OGkJrRQ7DHA.360@TK2MSFTNGP12.phx.gbl...
Bonsoir,
Dans "aperçu avant impression", dans "en tête et pied de page", on peut
mettre une date. Je souhaite pouvoir avoir "année 2004" afin que celle-ci
change chaque année.
Merci
Titus
merci, chris : ce que j'avais subodoré sans être parvenu à l'écrire... jps
ChrisV a écrit:
Bonjour Titus,
Dans la feuille de code de ThisWorkbook...
Private Sub Workbook_BeforePrint(Cancel As Boolean) ActiveSheet.PageSetup _ .CenterHeader = "année " & Format(Date, "yyyy") End Sub
ChrisV
"Titus" a écrit dans le message de news:
Bonsoir, Dans "aperçu avant impression", dans "en tête et pied de page", on peut mettre une date. Je souhaite pouvoir avoir "année 2004" afin que celle-ci change chaque année. Merci Titus
Michel Pierron
.CenterHeader = "année " & Year(Date) MP
"ChrisV" a écrit dans le message de news:
Bonjour Titus,
Dans la feuille de code de ThisWorkbook...
Private Sub Workbook_BeforePrint(Cancel As Boolean) ActiveSheet.PageSetup _ .CenterHeader = "année " & Format(Date, "yyyy") End Sub
ChrisV
"Titus" a écrit dans le message de news:
Bonsoir, Dans "aperçu avant impression", dans "en tête et pied de page", on peut mettre une date. Je souhaite pouvoir avoir "année 2004" afin que celle-ci
change chaque année. Merci Titus
.CenterHeader = "année " & Year(Date)
MP
"ChrisV" <chrisve@wanadoo.fr> a écrit dans le message de
news:umOMT6Q7DHA.1428@TK2MSFTNGP12.phx.gbl...
Bonjour Titus,
Dans la feuille de code de ThisWorkbook...
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup _
.CenterHeader = "année " & Format(Date, "yyyy")
End Sub
ChrisV
"Titus" <Titus@noproblemo.fr> a écrit dans le message de news:
OGkJrRQ7DHA.360@TK2MSFTNGP12.phx.gbl...
Bonsoir,
Dans "aperçu avant impression", dans "en tête et pied de page", on peut
mettre une date. Je souhaite pouvoir avoir "année 2004" afin que
celle-ci
Private Sub Workbook_BeforePrint(Cancel As Boolean) ActiveSheet.PageSetup _ .CenterHeader = "année " & Format(Date, "yyyy") End Sub
ChrisV
"Titus" a écrit dans le message de news:
Bonsoir, Dans "aperçu avant impression", dans "en tête et pied de page", on peut mettre une date. Je souhaite pouvoir avoir "année 2004" afin que celle-ci
change chaque année. Merci Titus
Ricky [MVP]
Bonjour *Titus* (et tous les lecteurs) | Bonsoir, | Dans "aperçu avant impression", dans "en tête et pied de page", on | peut mettre une date. Je souhaite pouvoir avoir "année 2004" afin que | celle-ci change chaque année. | Merci | Titus
Tu places tout ce que tu veux dans la (les) première(s) ligne(s) de la feuille et tu utilises comme en-tête dans Fichier / Mise en page / Feuille
Bonjour *Titus* (et tous les lecteurs)
| Bonsoir,
| Dans "aperçu avant impression", dans "en tête et pied de page", on
| peut mettre une date. Je souhaite pouvoir avoir "année 2004" afin que
| celle-ci change chaque année.
| Merci
| Titus
Tu places tout ce que tu veux dans la (les) première(s) ligne(s) de la feuille et tu utilises comme en-tête dans Fichier / Mise en page / Feuille
Bonjour *Titus* (et tous les lecteurs) | Bonsoir, | Dans "aperçu avant impression", dans "en tête et pied de page", on | peut mettre une date. Je souhaite pouvoir avoir "année 2004" afin que | celle-ci change chaque année. | Merci | Titus
Tu places tout ce que tu veux dans la (les) première(s) ligne(s) de la feuille et tu utilises comme en-tête dans Fichier / Mise en page / Feuille
