Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

VBA : Supprimer les fichiers plus vieux de X jours

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Shinreih
  • 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
S

Shinreih

Guest
Bonjour à vous tous

Je me permets de vous solliciter autour de mon problème :

J'ai un code vba qui générè des sauvegardes a chaque enregistrement de mon fichier excel.
Afin de ne pas saturer le dossier de sauvegarde je souhaiterais automatiser la suppression des fichiers excel plus vieux de X jours

Les sauvegardes sont nommées selon cette nomenclature:

emplacement\sauvegardefichier_jourdesauvegardeheuredesauvegarde.xlsm

J'ai un code VBA me permettant de supprimer un fichier défini


Code: 
'macro de suppression des fichiers de sauvegardes ancines
Sub purgersauvegarde()
    'verifie l'existence du fichier de sauvegarde
    Call TESTDOSSIERSAVE
            
    'Emplacement des sauvegardes à supprimer
    cheminsauvegardes = Sheets("CRITERES").Range("Z14").Value
    
    'Nom et emplacement du fichier actuel
    nomsauvegardes = Sheets("CRITERES").Range("Z8").Value
    
    'supprime la sauvegarde fichier
    Dim GestionFichier As New Scripting.FileSystemObject
    GestionFichier.DeleteFile "cefichier"
    Set GestionFichier = Nothing

End Sub



mon soucis c'est qu'il me manque la méthode pour supprimer les fichiers plus vieux de X jours

Pouvez-vous m'orienter s'il vous plait ?
Merci d'avance de votre précieuse aide et de m'accorder ainsi un peu de votre cogito!

Bien à vous!

Cordialement,
Shinreih
 
Dernière modification par un modérateur:
Trier par date Trier par votes
Re : VBA : Supprimer les fichiers plus vieux de X jours

Bonjour,

comme ceci

VB: 
Sub testdate()
chemin = "C:\Users\Marcel\Documents\"
nf = chemin & "Testini.ini"
DateModifFichier = FileDateTime(nf)
MsgBox DateModifFichier
End Sub
 
Vote positif 0 Vote négatif
Re : VBA : Supprimer les fichiers plus vieux de X jours

gilbert_RGI à dit:
Bonjour,

comme ceci

VB: 
Sub testdate()
chemin = "C:\Users\Marcel\Documents\"
nf = chemin & "Testini.ini"
DateModifFichier = FileDateTime(nf)
MsgBox DateModifFichier
End Sub
Cliquez pour agrandir...


Merci de votre aide...

Cependant je suis confuse


C'est un message qui donne la date , cependant je ne comprends comment on teste la date de chaque fichier et on les supprime le cas échéant avec ce code? 😕

Pourriez-vous éclairez ma lanterne de touchoteuse de VBA s'il vous plaît ?


Très courtoisement,
Shinreih
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : VBA : Supprimer les fichiers plus vieux de X jours

Attention mise en garde 🙁
les fichiers n' ayant eu une modification ou un enregistrement datant de 7 jours et plus seront supprimés définitivement.

voir à ne pas employer au retour de congés par exemple 🙄
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : VBA : Supprimer les fichiers plus vieux de X jours

J'ai finalement trouver encore plus simple

mes fichiers de sauvegardes s'appelle tous sauvegardenomfichier_datedecreationsauvegarde.xlsms

1. dans une cellule 1 j'entre = aujourdhui()
2. dans une 2eme cellule = cellule 1 - X ce qui créer la date de création des fichiers à supprimer
3. dans la cellule Z17 je concatène le nom de nom fichier et la date de création des fichiers à supprimer sans le .xlsm ensuite j'entre ce code dans visual basic

Code: 
Sub PURGELESSAUVEGARDES()
    'japelle la macro qui créer les sauvegarde pour etre sure qu'il m'enreste au moins une
    Call creersauvegarde
     'j'appelle la valeur de la cellule où j'ai définis le nom des fichiers à supprimer
    radicalasupprimer = Sheets("CRITERES").Range("Z17").Value
    
    Dim GestionFichier As New Scripting.FileSystemObject
    MsgBox "Confirmer la purge des sauvegardes j-1 ?"
    On Error Resume Next
    ' efface plusieurs fichiers à la fois grâce à l'étoile : La ligne suivante efface tous les fichiers qui commencent par la valeur comprise dans radicalasupprimer mais dont l'extension est ".xlsm"
    GestionFichier.DeleteFile radicalasupprimer & "*" & ".xlsm", True
    
    On Error GoTo 0
    'MsgBox "Purge des sauvegarde effectuée"
    Set GestionFichier = Nothing
    
End Sub


Je sais c'est de la bidouille mais du coup pour changer les délais de suppression je n'ai plus qu'à aller dans ma feuille et non dans VBA

Merci gilbert pour votre aide

Très courtoisement
Shinreih

sources très complètes
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : VBA : Supprimer les fichiers plus vieux de X jours

a vous de voir

@ plus peut-être

je n'ai plus qu'à aller dans ma feuille et non dans VBA

c'est aussi faisable avec le fichier que j'ai mis 😱
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

C
  • Résolu(e)
XL 2013 VBA - Afficher les propriété d'une liste de fichiers
Réponses
10
Affichages
857
Chrystel01
C
F
  • Résolu(e)
Microsoft 365 Supprimer des lignes en fonction de la date et de l'heure
Réponses
8
Affichages
1 K
AtTheOne
P
  • Résolu(e)
XL 2016 4 étapes en 1 seule Excel vba
Réponses
4
Affichages
899
Pygos691
P
  • Question Question
XL 2019 HTML Corps de mail
Réponses
6
Affichages
934
My<3
  • Résolu(e)
XL 2016 Problèmes de Range, tentative de boucle entre 2 fichiers
Réponses
4
Affichages
847
R3n0W
  • Résolu(e)
XL 2016 supprimer des données de plusieurs fichiers Excel VBA
2
Réponses
15
Affichages
2 K
hastaz
  • Question Question
Microsoft 365 Macro .XLA découpage de fichiers à passer en X64
Réponses
8
Affichages
931
GADENSEB
A
  • Question Question
Microsoft 365 Réorganiser les colonnes de plusieurs fichiers automatiquement par VBA
Réponses
2
Affichages
731
mapomme
L
  • Question Question
XL 2016 Macro et suppressions de lignes
Réponses
9
Affichages
1 K
fanfan38
  • Question Question
XL 2016 Supprimer les fichiers plus vieux de 3 jours
Réponses
3
Affichages
764
KTM
R
  • Question Question
XL 2016 Gestion de chemin de fichiers + VBA
Réponses
0
Affichages
3 K
Ryoken
R
D
  • Question Question
Microsoft 365 Ajouter une ligne pour deux tableaux structurés l'un à côté de l'autre
Réponses
8
Affichages
1 K
Diego-Andres
D
S
  • Question Question
XL 2013 Convertir classeur en PDF, crypter avec mot de passe et envoyer via Outlook
Réponses
2
Affichages
2 K
Saliou MBALO
S
B
  • Question Question
XL 2013 [RESOLU] Excel VBA - Incompatibilité de Type
Réponses
2
Affichages
1 K
BENAM69
B
N
  • Question Question
XL 2013 Relever mots-clés de fichiers Word vers un tableau Excel
Réponses
1
Affichages
1 K
nicolo9
N
L
  • Question Question
VBA ? détecter le nombre de degerbages pour chaque chargement
2
Réponses
28
Affichages
3 K
Ludovic56
L
M
  • Question Question
SUPPRIMER TOUTES LES COLONNES DE H à T ne comprenant pas la valeur choisie
Réponses
7
Affichages
1 K
Merlin258413
M
T
  • Question Question
[Besoin de méthode d'optimisation de temps de traitement, macro VBA][RESOLU]
2
Réponses
22
Affichages
6 K
Thibault LB
T
Y
  • Question Question
Supprimer fichiers de plus de 3 mois
2
Réponses
16
Affichages
3 K
YANN-56
S
  • Question Question
Supprimer des lignes entre 2 fichiers via une boucle
Réponses
10
Affichages
2 K
Sun
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…