macro pour imprimer et incrémenter une date

[klorane]

Bonjour à tous,

voilà j'ai une feuille excel comprenant une date que je dois imprimer chaque jour et une fois imprimée, je dois modifier la date pour mettre celle du lendemain et l'enregistrer ensuite.

En ajoutant un bouton imprimer dans celle feuille quelle macro faudrait il y attacher pour que lorsque je clique sur ce bouton la page s'imprime, et qu'ensuite la date s'incrémente de +1.

Merci et bonne fêtes à tous.

Sylvain

 

[michel_m]

Re : macro pour imprimer et incrémenter une date

bonjour,

Si ta date est en C3 par exemple

essaies:

Sub imprimer_dater1()
If Range("C3") = Date Then
ActiveWindow.SelectedSheets.PrintOut
Range("C3") = Range("C3") + 1
ThisWorkbook.Save
End If
End Sub

 

[ccpapy]

Re : macro pour imprimer et incrémenter une date

bonjour à tous
pour la date, pourquoi ne mets-tu pas la formule
=aujourd'hui()
dans ta cellule tout simplemnt ?
quant à la macro, quelque chose du style

ActiveWindow.SelectedSheets.PrintOut
à controler ...
tu peux te servir de l'enregistreur de macro pour avoir un code fiable
(outils/macro/nouvelle macro)
à+

edit, désolé pour le retard et la collision, et bonjour michel

 

[klorane]

Re : macro pour imprimer et incrémenter une date

Merci Michel ça marche super!

Encore merci