sauvegarde et impression toutes les heures

[db84]

excel 2000 et windows 2000

salut a tous,
J'aimerais pouvoir sauvegarder mon fichier excel toutes les heures sous un autre nom puis l'imprimer, tout cela automatiquement.
Est ce possible?
Merci d'avance pour vos reponses.

 

[Goodparts]

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

 

[david84]

salut goodparts et le forum,
je te remercie por ton aide.
effectivement mon fichier s'ouvre a nouveau pour executer la macro.
SI quelqu'un avait une idéé a me soumettre pour effecer se defaut , je lui en serai reconnais.
Merci