Sauvegarde Automatique A La Fermeture Du Fichier

Re : Sauvegarde Automatique A La Fermeture Du Fichier

Bonjour Tatiak, merci pour ta soluce, je l'ai un peu améliorer avec une msgbox, mais peux-tu me dire après le choix de vouloir créer la sauvegarde, si il existe déjà sauvegarde à l'endroit stipuler j'ai une boite me stipulant qu'il existe déjà une sauvegarde et si oui ou non je veux la remplacer, j'aurais voulu ne pas avoir cette deuxième boite msg et qu'il la remplace d'office.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ndf As String
ndf = Replace(ActiveWorkbook.Name, ".xls", "TEST") & Year(Now()) & Format(Month(Now()), "00") & Format(Day(Now()), "00")
Dim RETOU As String
RETOU = MsgBox("VOULEZ-VOUS CREER UNE SAUVEGARDE ?", vbYesNo, "SAUVEGARDE")
If RETOU = vbYes Then
ActiveWorkbook.Save
ActiveWorkbook.SaveAs (Range("Feuil1!A2").Value & ndf)
End If
End Sub

Re : Sauvegarde Automatique A La Fermeture Du Fichier

Re : Sauvegarde Automatique A La Fermeture Du Fichier

Bonjour KIKI 29, Ok pour ton mais peux tu m'en dire un peu plus car j'ai beau essayer de l'ingréter dans les lignes de commandes précédentes, 1) bug au niveau des ...., il me parle de devoir le mettre entre [], et si je le fais je n'ai pas de changement par rapport au fait de cette deuxième msg box
Ah oui j'ai cette ligne en jaune :ActiveWorkbook.SaveAs (Range("Feuil1!A2").Value & ndf)

Ca y est j'ai trouvé cela fonctionne merci à tous les deux.