imprimer un classeur à une date precise

Salut à tous,
Brigitte,

tu peux peut être faire quelque chose de ce type

Private Sub Workbook_Open()
If Date >= "29/01/03" And Sheets(1).Range("a1").Value <> "imprimé" Then
ThisWorkbook.Sheets.PrintOut
Sheets(1).Range("a1").Value = "imprimé"
End If
End Sub

ça te teste la date sydteme de l'ordi et une valeur que tu lets dans une cellule lorsque t'as imprimé ton classeur.

c'est primaire mais ça fonctione.

tu pourrais envisager de changer la prochaine date d'impression par input box en réinitialiser ta cellule test...

en espérant t'avoir aidée
Steplof

Bonjour Steplof, bonjour le forum,

Merci pour ton code, tu m'as mis sur la bonne voie.
J'ai fait une toute petite modif, et ça fonctionne.

Merci beaucoup

@Brigitte