imprimer un classeur à une date precise

[Brigitte]

Bonjour le forum,

Je voudrais imprimer un classeur à une date precise ou si la date est dépassé
qu'il s'imprime quand même. Je sais qu'il faut utiliser:

ThisWorkbook.Sheets.PrintOut

Merci à ceux qui m'apportent la solution.

@Brigitte

 

[steplof]

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

 

[Brigitte]

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