enregistrement / xlk

[Flaneur]

Bonjour à tous,

je cherche à créer des sauvegardes multiples d'un fichier..
Beaucoup d'entre vous m'ont bien aidé (merci encore)je suis sur la fin !!!
donc un bouton avec quit applic( je sais) doit enregistrer les fichiers.
la premiere fois ,impec, mais aprés il ignore les modifs apportées ?
Pourriez vous me dire ou est mon erreur ?
merci beaucoup!!
Merci en particulier à JC de Lorient pour sa
gentillesse et son aide !!

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
'C:essai', FileFormat _
:=xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:= _
False, CreateBackup:=True
'essai de triple sauvegarde'ActiveWorkbook.SaveAs Filename:= _
'C:WINDOWS/'
ThisWorkbook.Save

Application.Quit
Application.DisplayAlerts = True
End Sub

Sub quitter()

 

[pierrejean]

bonjour Flaneur

au minimum changer

'C:WINDOWS/' en

'C:WINDOWS/essai'

 

[Flaneur]

En effet !!

De plus avec ActiveWorkbook.Save
ça irai mieux!!
la semaine s'annonce bien dur!!
merci !!