Hello db84 & le forum,
Voilà ce que je te propose :
Private Sub auto_open()
Application.OnTime Now + TimeValue("01:00:00"), "enregistre"
End Sub
Private Sub enregistre()
Application.ScreenUpdating = False
With ActiveWorkbook
.SaveAs "monfichier.xls"
.PrintOut
End With
Application.OnTime Now + TimeValue("01:00:00"), "enregistre"
Application.ScreenUpdating = True
End Sub
Mais il y a juste un petit prob. , c'est que quand on ferme le fichier, après le temps donner pour l'exécution de la macro le fichier s'ouvre à nouveau pour exécuter la macro. Je pense que nos amis vébéïste plus expérimenté que moi pourront rapidement résoudre ce problème.
Bonne fin d'apès-midi
Goodparts