Discussion :

[RDBAL41]

Bonjour,

Lorsque je sauve mon classeur avec le nom et l'heure, je multiplie les sauvegardes.
Or, pour des raisons évidentes, je n'ai pas besoin d'en avoir des tonnes.
Je cherche à améliorer le code que j'utilise afin d'en avoir que 2 (en effacant la sauve la plus ancienne à chaque fois).

Merci pour votre aide.
RDBAL.

[unparia]

Bonjour
Je n'ai pas ouvert ton classeur (je n'ouvre en aucun cas un classeur tiers).
Utilise donc la fonction Dir pour lister les fichiers dans le dossier de tes sauvegardes
Nomme tes sauvegardes de manière astucieuse (par exemple : le_nomyyyymmdd
il t'est alors facile de déterminer la chaîne de caractère de plus petit poids -->> détruis ce fichier par l'instruction Kill

[RDBAL41]

Bonjour,

Merci pour la réponse, c'est astucieux.
Logique pour l'ouverture du fichier, je n'y avais pas pensé.
Voiçi le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Sub EnregDateHeure()
 
'boite de dialogue
Dim Left1 As Variant
Dim Top1 As Variant
Dim HelpFile1 As Variant
Dim HelpContextId1 As Variant '*****************
Dim Prompt1   As String
Dim Title1 As Variant
Dim Default1 As Variant
Dim Type1 As Variant
'response est fonction du type1
Dim reponse1 As String
Dim chemin As String
 
Dim date1 As String
' si annuler sortie
Left1 = ""
Top1 = ""
HelpFile1 = ""
HelpContextId1 = ""
 
Prompt1 = "Nom du fichier" 'Message à afficher dans la boîte de dialogue
Title1 = "Enregistrer un fichier" 'Titre de la zone de saisie
Default1 = "Exemple du  "
 
Type1 = 2 ' 0 Une formule. 1 Un nombre. 2 Texte (une chaîne). 4 Une valeur logique (True ou False).
'8 Une référence de cellule, sous la forme d'un objet Range. 16 Une valeur d'erreur, telle que #N/A. 64 Un tableau de valeurs.
 
reponse1 = Application.InputBox(Prompt:=Prompt1, Title:=Title1, Default:=Default1, Type:=Type1)
If reponse1 = "" Then Exit Sub
'If reponse1 = False Then Exit Sub
 
chemin = ThisWorkbook.Path & Application.PathSeparator
date1 = Format(Date, " dd-mm-yy ") & " à " & Format(Time, "hh-mm")
 ActiveWorkbook.SaveAs _
            Filename:=chemin & reponse1 & date1 & ".xlsm", _
            FileFormat:=52
 
 MsgBox ("Simple Sauvegarde Réussie.")
End Sub

Merci.

[Menhir]

Tu peux aussi mettre dans un coin de ton classeur une valeur qui sera égale à 1 ou 2 (ou plus si tu le souhaites).
A chaque sauvegarde, tu modifies cette valeur (par exemple en utilisant un opérateur Mod()) et tu l'utilises pour créer le nom du fichier de sauvegarde.
Ainsi, tu feras une "rotation" des fichiers de sauvegarde.
Il suffira de changer le modulo pour définir le nombre de fichiers de sauvegarde que tu souhaites conserver.

Difficile de faire plus simple pour une sauvegarde tournante.

[RDBAL41]

Bonsoir à vous 2.

Je prends l'un et l'autre pour les essais.

Merci

Bonne soirée.