fonction enregistrement auto

Salut,

Il suffit de mettre le code suivant dans la procédure de fermeture de ton fichier.

ActiveWorkbook.SaveAs Filename:= _
"C:\Mes documents\test.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

Biensur, tu peux changer le chemin d'enregistrement et le nom du fichier xls.

Pour connaitre le nom de ton fichier via le vba insère dans ta macro ce qui suit.

nom = ActiveWorkbook.Name 'ici tu récupères le nom de ton classeur actif
monchemin="c:\mes documents\" 'tu définis le chemin pour l'enregistrement

ActiveWorkbook.SaveAs Filename:= _
monchemin & nom, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

Voilà bonne journée.

John

merci pour le promptitude de ta réponse

M'a question a été ma formulé, je recherches un enregistrement automatique au cours de l'utilisation du programme.Exemple tout les 15 minutes.

Merci

et bien tu met ton code de fermeture derrière un timer. tu affiche un msgbox en proposant d'enregistrer ou non et si oui tu fais la sauvegarde : ActiveWorkbook.Save

Re,

Voici comment faire pour une sauvegarde automatique toute les 15 minutes.

Tu dois mette me code dans la macro sur l'ouverture de ton fichier.

Private Sub Workbook_Open() 'macro d'ouverture de ton fichier
Start = Timer ' Définit l'heure de début.
pause = 900 '15 minutes = 900 secondes
Do
Do While Timer < Start + pause 'je boucle tant que je ne suis pas arrivé à la condition

DoEvents ' Donne le contrôle à d'autres processus.
If Timer >= Start + pause Then 'si l'heure est = ou > à l'heure de début + ta pause alors j'exécute la sauvegarde
ActiveWorkbook.Save
Start = Timer 'je ré-initialise l'heure de début
End If
Loop
Loop Until Timer < Start + pause 'je fais en sorte d'avoir une boucle infinie
End Sub

J'espère avoir pu t'aider.

John

Merci pour ton astuce,c'est simple et efficace