Sauvegarde

[degap05]

Bonjour, avec le code suivant, placé dans ThisWorkBook:

'configuration sauvegarde automatique
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False

ThisWorkbook.SaveAs "E:\xxx\ttt\qqq\uuu\Mes documents\MDSH\Sauvegarde\" & "MDSH" & Format(Now, " dd-mm-yy ""à"" hh""h""mm""mn""") & ".xls"
'message de réussite
MsgBox "Une sauvegarde de secours, de MDSH, a été effectuée avec succés !" _
& vbCrLf & " " & vbCrLf & "Emplacement: E:\xxx\ttt\qqq\uuu\Mes documents\MDSH" _

Application.DisplayAlerts = True
End Sub


j'effectue des sauvegardes incrémentées sur l'heure.
Pensez-vous qu'il soit possible de limiter le nombre de sauvegarde à 3 dans le dossier de sauvegarde ?
Le résultat serait que la quatrième sauvegarde écrase la plus ancienne et ainsi de suite🙂

Merci

 

[skoobi]

Re : Sauvegarde

Bonjour,

voir peut-être du coté de la fonction "FileSearch" avec la propriété "FoundFiles" si tu vois ce que je veux dire.

 

[degap05]

Re : Sauvegarde

Bonsoir Skoobi,
Si tu pouvais illustrer par un exemple🙂🙂

Merci

 

[skoobi]

Re : Sauvegarde

Re bonjour,

la fonction "filesearch" permet (comme son nom l'indique) de trouver des fichiers.

Dans ton cas il s'agit d'écraser dans un dossier le fichier le plus ancien lorsqu'il y a 3 fichiers (dis moi si je me trompe)
L'exemple suivant "liste" les fichiers dont le nom commence par "Classeur" dans le dossier C (si leur nombre est égal à 3) puis affiche dans un message le plus ancien? (c'est cela dont je ne suis pas sur et qu'il faut vérifier) des 3 fichiers.

Sub essai()
With Application.FileSearch
    .LookIn = "C:\"
    .FileType = msoFileTypeExcelWorkbooks
    .Filename = "Classeur*"
    .Execute
    If .FoundFiles.Count = 3 Then MsgBox .FoundFiles(1) & " est le fichier le plus ancien?"
End With
End Sub

 

[degap05]

Re : Sauvegarde

Bonjour, Skoobi,

Le fichier aurait un nom comme: MDSH 28-02-08 à 11h48mn, sachant que le nom n'est pas toujours le même, puisqu'il prend la valeur de la date et de l'heure de sauvegarde. Sinon la base du nom est MDSH.

Ensuite, un message est inutile, il suffit d'écraser le fichier le plus ancien🙂

Comment incorporer ton code dans:
Private Sub Workbook_BeforeClose(Cancel As Boolean)

Merci

 

[degap05]

Re : Sauvegarde

Re-bonjour, j'ai essayé de simplifier pour mettre en évidence ce qui ne fonctionne pas, peut-être pourras-tu incorporer ton code ?

Merci

 

[skoobi]

Re : Sauvegarde

Re bonsoir,

Comment incorporer ton code dans:
Private Sub Workbook_BeforeClose(Cancel As Boolean)

comme ça.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Application.FileSearch
    .LookIn = "E:\Forum Excel-Download\Test\"
    .FileType = msoFileTypeExcelWorkbooks
    .Filename = "MDSH*"
    .Execute
    If .FoundFiles.Count = 3 Then
        Kill .FoundFiles(1)
    End If
End With
ThisWorkbook.SaveAs Filename:="E:\Pharma\Secrétariat\Dossiers personnels\M.MORGAND\Mes documents\Sauv\" & "MDSH" & Format(Now, " dd-mm-yy ""à"" hh""h""mm""mn""") & ".xls"
MsgBox "Sauvegarde effectuée!"

End Sub

Tu n'as besoin de rien d'autre.
J'ai fais quelques tests, ça devrait être bon. 🙂

 

[degap05]

Re : Sauvegarde

Bonjour, Skoobi,

Je suis épaté par la simplicité.

Je testerai ta solution dès lundi matin sur mon fichier de travail.

Je te tiendrai au courant aussitôt.


Merci encore et bon weekend🙂

 

[skoobi]

Re : Sauvegarde

Re bonjour,

tu auras remarqué qu'il faudra remplacer le chemin dans
".LookIn" comme ceci:

 .LookIn = "E:\Pharma\Secrétariat\Dossiers personnels\M.MORGAND\Mes documents\Sauv\"

petit oubli de ma part 😉

 

[degap05]

Re : Sauvegarde

Bonjour, oui pas de problème. J'étais tenté d'essayer chez moi, mais Office 2007😡 et FileSearch..........

A lundi dans la journée.

Bon dimanche.

 

[skoobi]

Re : Sauvegarde

Re bonjour,

mais Office 2007😡 et FileSearch..........

tu veux dire que office 2007 ne contient pas la fonction FileSearch?

 

[degap05]

Re : Sauvegarde

Oui d'après ce que j'ai lu, cette commande n'est plus exécutée par Excel2007.

 

[degap05]

Re : Sauvegarde

Bonjour, Skoobi,

C'est parfait🙂🙂

Fonctionnement impeccable!!

Merci beaucoup.

 

[degap05]

Re : Sauvegarde

Skoobi,

Je pense que ta macro peut rendre service à de nombreux visiteurs de ce forum.

Je l'ai mise dans une feuille jointe, prête à être utilisée.

Qu'en penses-tu ?

Il manque juste à éviter le blocage qui se produit lorsqu' on abandonne l'opération et éviter l'ouverture du déboggage.

Peux-tu voir ce qu'il en est ?

Merci.

 

[skoobi]

Re : Sauvegarde

Re bonjour,

lorsqu' on abandonne l'opération

La macro s'exécute automatiquement en fermant le fichier donc on ne peut "abandonné l'opération" non?
Je ne comprend pas.