Re : date + 1 dans entete et peid de page
Bonsoir manu62, le forum
essaie ce code, que tu insères dans l'évènement du classeur (Alt + F11), tu sélectionnes sur la gauche "ThisWorkbook", et tu colles ces lignes :
Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
.LeftHeader = Format(Date + 1, "dd/mm/yyyy") 'en-tête gauche
.CenterHeader = Format(Date + 1, "dd/mm/yyyy") 'en-tête centre
.RightHeader = Format(Date + 1, "dd/mm/yyyy") 'en-tête droit
.LeftFooter = Format(Date + 1, "dd/mm/yyyy") 'pied de page gauche
.CenterFooter = Format(Date + 1, "dd/mm/yyyy") 'pied de page centre
.RightFooter = Format(Date + 1, "dd/mm/yyyy") 'pied de page droit
End With
End Sub
Avant chaque impression, tu auras ainsi la date du lendemain dans l'en-tête ou le pied de page que tu désireras.