Nombre de sauvegardes de fichier

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion degap05
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
D

degap05

XLDnaute Impliqué
Bonjour,

J'ai besoin de votre aide.

Grâce au forum, j'ai mis en place sur un fichier, une sauvegarde automatique en quittant, avec nombre de sauvegardes paramétrables.
Format de sauvegarde avec date et heure.
Ce code fonctionne parfaitement.
Mais il ne prend plus en compte le nombre d'exemplaires choisi dans le dossier sauvegarde lorsqu'on change de mois.
Comment résoudre ce problème pour ne prendre en compte que le nom du fichier tout en gardant la date et l'heure (plus facile pour choisir le bon fichier en cas de problème).

Merci.
A+
 

Pièces jointes

Trier par date Trier par votes
Re : Nombre de sauvegardes de fichier

Bonsoir Degap05,

Code: 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Application.FileSearch
    .LookIn = "C:\Documents and Settings\mamorgan\Bureau\Porte-documents\Sauvegarde\"
    .FileType = msoFileTypeExcelWorkbooks
    .Filename = "essai*"
    .Execute
    If .FoundFiles.Count = 2 Then
        Kill .FoundFiles(1)
    End If
End With
ThisWorkbook.Unprotect
ThisWorkbook.SaveAs Filename:="C:\Documents and Settings\mamorgan\Bureau\Porte-documents\Sauvegarde\" & "essai" & Format(Now, " dd-mm-yy ""à"" hh""h""mm""mn""") & ".xls"
MsgBox "Sauvegarde effectuée!"
ThisWorkbook.Protect
End Sub
De ce que je vois dans ton code, c'est le premier fichier trouvé dans ta liste qui est supprimé
et comme tu les nomment avec "dd-mm-yy"
Le 07-04-09 se retrouvera devant celui du 31-03-09

Une solution peut-être serait de les nommer dans le sens inverse, à savoir
"yy-mm-dd"

Comme ça 09-03-31 va bien se retrouver devant 09-04-07"

A essayer 😉

A+
 
Vote positif 0 Vote négatif
Re : Nombre de sauvegardes de fichier

Bonjour,

J'ai modifié selon les indications de BrunoM45, mais c'est toujours pareil.
Au changement de mois, le dernier fichier sauvegardé du mois précédent, n'est plus pris en compte pour être supprimé.
La mise à jour de la sauvegarde ne se fait plus que sur un fichier et non pas deux comme cela est paramétré.

Peut-être un testeur entre mai et juin ?
Dans ce cas, sauvegarder deux fois en mai, puis recommencer en juin.
Résultat à confirmer par celui ou celle qui voudra tester.

Merci.
A+
 
Vote positif 0 Vote négatif
Re : Nombre de sauvegardes de fichier

Salut Degap05,

Je ne comprends pas pourquoi, cela devrait ne pas fonctionner 😕

Puisque il vérifie seulement le nombre de fichier dans le répertoire "Sauvegarde", rien à voir avec les dates !?

Je vais tester tout de même 😉

Confirmation chez moi cela fonctionne très bien, même en changeant de mois !?

A+
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Nombre de sauvegardes de fichier

BrunoM45 à dit:
Salut Degap05,

Je ne comprends pas pourquoi, cela devrait ne pas fonctionner 😕

Puisque il vérifie seulement le nombre de fichier dans le répertoire "Sauvegarde", rien à voir avec les dates !?

Je vais tester tout de même 😉

Confirmation chez moi cela fonctionne très bien, même en changeant de mois !?

A+
Cliquez pour agrandir...

Bonjour,

Peux-tu tester en situation réelle, lors du changement mai/juin ?
Je ferai la même chose et je mettrai le fichier de sauvegarde en pièce jointe.

Merci de ton aide.

A+
 
Vote positif 0 Vote négatif
Re : Nombre de sauvegardes de fichier

Salut Degap05,

Désolé pour ce fil décousu, mais avec ces chaleurs, je suis plutôt dehors 😛

Qu'entends-tu par
Peux-tu tester en situation réelle, lors du changement mai/juin ?
Cliquez pour agrandir...
Changer l'horloge de ton PC est une situation réelle !
Il est bien évident qu'avant j'avais quitté Excel.

Question : as-tu bien mis le code avec : yy-mm-dd 😕

Code: 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Dim VPath As String
  VPath = "C:\Documents and Settings\mamorgan\Bureau\Porte-documents\Sauvegarde\"
  With Application.FileSearch
    .LookIn = VPath
    .FileType = msoFileTypeExcelWorkbooks
    .Filename = "essai*"
    .Execute
    If .FoundFiles.Count = 2 Then
      Kill .FoundFiles(1)
    End If
  End With
  ThisWorkbook.Unprotect
  ThisWorkbook.SaveAs Filename:=VPath & "essai" & Format(Now, " [COLOR=blue][B]yy-mm-dd[/B][/COLOR] ""à"" hh""h""mm""mn""") & ".xls"
  MsgBox "Sauvegarde effectuée!"
  ThisWorkbook.Protect
End Sub

De plus tu fais ta sauvegarde dans le porte-documents !?
Est-ce que la synchronisation ne gène pas le processus ?

A+
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Nombre de sauvegardes de fichier

BrunoM45 à dit:
Salut Degap05,

Désolé pour ce fil décousu, mais avec ces chaleurs, je suis plutôt dehors 😛

Qu'entends-tu par
Changer l'horloge de ton PC est une situation réelle !
Il est bien évident qu'avant j'avais quitté Excel.

Question : as-tu bien mis le code avec : yy-mm-dd 😕

Code: 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Dim VPath As String
  VPath = "C:\Documents and Settings\mamorgan\Bureau\Porte-documents\Sauvegarde\"
  With Application.FileSearch
    .LookIn = VPath
    .FileType = msoFileTypeExcelWorkbooks
    .Filename = "essai*"
    .Execute
    If .FoundFiles.Count = 2 Then
      Kill .FoundFiles(1)
    End If
  End With
  ThisWorkbook.Unprotect
  ThisWorkbook.SaveAs Filename:=VPath & "essai" & Format(Now, " [COLOR=blue][B]yy-mm-dd[/B][/COLOR] ""à"" hh""h""mm""mn""") & ".xls"
  MsgBox "Sauvegarde effectuée!"
  ThisWorkbook.Protect
End Sub

De plus tu fais ta sauvegarde dans le porte-documents !?
Est-ce que la synchronisation ne gène pas le processus ?

A+
Cliquez pour agrandir...

Bonjour BrunoM45,

Question : as-tu bien mis le code avec : yy-mm-dd : Oui,

Pour le reste, je vais vérifier encore une fois et je vérifierai comment la sauvegarde s'est effectuée sur mes fichiers de travail, le 1er juin.
Si je constate une anomalie, je reposterai à ce moment là.

Merci encore pour ton suivi.

A+
 
Vote positif 0 Vote négatif
Re : Nombre de sauvegardes de fichier

Bonjour le forum, BrunoM45,

C'est confirmé.
Ce matin j'ai ouvert et fermé plusieurs fois le fichier, pour obtenir des sauvegardes datées du 2 juin.
Or il reste une sauvegarde datée de mai et une seule datée de juin.
Celle qui est datée de mai n'est donc pas prise en compte dans le comptage et le remplacement.

Bizarre non ?

A+
 
Vote positif 0 Vote négatif
Re : Nombre de sauvegardes de fichier

Salut Degap05,

Je ne comprends pas ce qui ce passe chez toi 😕
Qu'elle est ta configuration (version de windows et d'Office) ?

quand tu changes la date manuellement sur ton PC est-ce que cela te fait la même chose !?

Sinon tu peux essayer
Code: 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Dim VPath As String
  VPath = "D:\Nos Documents\Mes Docs EXCEL\_Excel-downloads\Sauvegarde\"
  With Application.FileSearch
    '.LookIn = "C:\Documents and Settings\mamorgan\Bureau\Porte-documents\Sauvegarde\"
    .LookIn = VPath
    .FileType = msoFileTypeExcelWorkbooks
    .Filename = "essai*"
    .Execute
    If .FoundFiles.Count = 2 Then
      If .FoundFiles(1) < .FoundFiles(2) Then
        Kill .FoundFiles(1)
      Else
        Kill .FoundFiles(2)
      End If
    End If
  End With
  ThisWorkbook.Unprotect
  ThisWorkbook.SaveAs Filename:=VPath & "essai" & Format(Now, " yy-mm-dd ""à"" hh""h""mm""mn""") & ".xls"
  MsgBox "Sauvegarde effectuée!"
  ThisWorkbook.Protect
End Sub

A+
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

N
  • Question Question
Microsoft 365 Calcul de prix moyen pondéré de recettes
2
Réponses
15
Affichages
868
Nino63
N
Z
  • Question Question
XL 2010 Empêcher la demande de sauvegarde pour un fichier non modifié utilisant un Complément Xlam
5 6 7
Réponses
96
Affichages
3 K
Zorgloub
Z
M
  • Résolu(e)
Autres calcul de présence
Réponses
3
Affichages
305
micke32
M
S
  • Question Question
XL 2013 enregistrer une feuille excel converti en pdf dans un répertoire selon la valeur d'une cellule
Réponses
5
Affichages
699
Phil69970
Phil69970
P
  • Résolu(e)
XL 2016 VBA Insérer une date dans le nom de fichiers PDF publipostés via WORD à partir d"excel
Réponses
3
Affichages
741
PHIL37
P
dysorthographie
GitLab permet de gérer et partager des projets, suivre les changements et collaborer avec d’autres personnes.
Réponses
0
Affichages
177
dysorthographie
dysorthographie
BALANCIE
  • Question Question
XL 2019 Limiter le nombre de mes sauvegardes.
Réponses
11
Affichages
946
BALANCIE
BALANCIE
C
  • Résolu(e)
XL 2016 humains VS chatGPT
Réponses
9
Affichages
914
AtTheOne
AtTheOne
J
  • Résolu(e)
Microsoft 365 Problème de décompte avec PQ
Réponses
8
Affichages
578
José FELIX
J
M
  • Question Question
XL 2021 Générateur Tournoi Ecole de Rugby
Réponses
5
Affichages
883
Magis
M
A
  • Question Question
Microsoft 365 recherche multicritère de la valeur suivante
2
Réponses
29
Affichages
2 K
alexga78
A
M
  • Question Question
Microsoft 365 Calcul du nombre de chiffres dans une cellule. Mise en page d'un fichier.
Réponses
2
Affichages
552
MCOTTEND
M
E
  • Question Question
Microsoft 365 Problème de conversion des mois en périodes dans Excel avec VBA
Réponses
2
Affichages
815
RyuAutodidacte
RyuAutodidacte
cathodique
  • Résolu(e)
XL 2010 tableau de comptage sans doublon
2 3
Réponses
44
Affichages
3 K
cathodique
cathodique
A
  • Question Question
XL 2021 Module d’envoi à la Corbeille qui ne fonctionne pas en 64 Bits
2
Réponses
20
Affichages
992
patricktoulon
patricktoulon
Lu76Fer
Office XLS : Fonction simplifiant l'utilisation de la fenêtre FileDialog
Réponses
6
Affichages
905
Lu76Fer
Lu76Fer
D
  • Question Question
XL 2016 Future date la plus proche d'aujourd'hui + mise en forme conditionnelle
Réponses
8
Affichages
569
vgendron
vgendron
C
  • Résolu(e)
XL 2016 Nombre de jours effectués par mois
Réponses
12
Affichages
1 K
CathU
C
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
Lu76Fer
Conversion entre Date Universelle GMT et Date Localisée, puis correction de date extraite du DOS
Réponses
0
Affichages
594
Lu76Fer
Lu76Fer
Retour