enregistrement classeur bis

Dans thisWorkbook

Dans un module standard

Bonjour

Voici mon problème :
Je souhaiterais que mon classeur soit enregistré automatiquement après un
certain délai d'ouverture (30 secondes environ) et que lorsqu'il
s'enregistre qu'il insére la date du jour avec le nom du fichier.

Merci à Disciplus qui m'a fourni la macro pour l'enregistrement
automatique

à la fermeture et à Philippe.R qui m'a fourni la macro pour renommer le
fichier avec la date. Ces 2 macros fonctionnent très bien séparemment.
Mais

comment faire pour les fusionner en 1 seule macro
et que l'enregistrement du nom de fichier avec la date se fasse à la
fermeture automatique du classeur.

Rappel des macros.

Fermeture automatique du classeur.

dans thisworkbook

Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:15:30"), "Sortie"
End Sub


Dans un module standard

Sub Sortie()
ThisWorkbook.Save
ThisWorkbook.Close
End Sub


Enregistement du fichier avec la date du jour.

Dans thisworkbook

sub enregistresous
'MPFE 07/10/2003
'enregistre le classeur sous un nom comportant la date du jour
Monfichier="Nom"&year(date)&month(date)&day(date)
'chemin ci dessous à adapter
ActiveWorkbook.SaveAs
Filename:=\ServeurDossierSousdossierMonfichier.xlts

Merci à tous pour vos lumières.

Stéphane.

Bonsoir Stéphane

Adaptation des codes prècedents
J'ai rajouté les heures et minutes afin d'éviter le message de
confirmation

d'écrasement en cas de sauvegardes le même jour

Dans thisWorkbook

Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:00:30"), "Sauve"
End Sub
------------------------

Dans un module standard

Sub sauve()
monfichier = "essai" '**a adapter**
ActiveWorkbook.SaveAs FileName:="c:" & monfichier & " " & Day(Date) & "_"
&

Month(Date) & "_" & Year(Date) & " " & Minute(Time) & "_" & Second(Time)
End Sub
----------------------------

Salutations
JJ

"Stéphane Tellier" <stellier@telemarket.r> a écrit dans le message news:
eKiYqSR$DHA.3828@TK2MSFTNGP10.phx.gbl...

Bonjour

Voici mon problème :
Je souhaiterais que mon classeur soit enregistré automatiquement après
un

certain délai d'ouverture (30 secondes environ) et que lorsqu'il
s'enregistre qu'il insére la date du jour avec le nom du fichier.

Merci à Disciplus qui m'a fourni la macro pour l'enregistrement
automatique

à la fermeture et à Philippe.R qui m'a fourni la macro pour renommer le
fichier avec la date. Ces 2 macros fonctionnent très bien séparemment.
Mais

comment faire pour les fusionner en 1 seule macro
et que l'enregistrement du nom de fichier avec la date se fasse à la
fermeture automatique du classeur.

Rappel des macros.

Fermeture automatique du classeur.

dans thisworkbook

Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:15:30"), "Sortie"
End Sub


Dans un module standard

Sub Sortie()
ThisWorkbook.Save
ThisWorkbook.Close
End Sub


Enregistement du fichier avec la date du jour.

Dans thisworkbook

sub enregistresous
'MPFE 07/10/2003
'enregistre le classeur sous un nom comportant la date du jour
Monfichier="Nom"&year(date)&month(date)&day(date)
'chemin ci dessous à adapter
ActiveWorkbook.SaveAs
Filename:=\ServeurDossierSousdossierMonfichier.xlts

Merci à tous pour vos lumières.

Stéphane.