> Tous les forums > Forum Bureautique
 Supprimer fichiers de plus de 3 moisSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Yaloo
  Posté le 19/11/2010 @ 11:53 
Aller en bas de la page 
Petit astucien

Bonjour,

Je fais suite à ce sujet.

Je reçois mon fichier initial tous les mois, je fais mes modifs et j'enregistre mon nouveau fichier (après modifications).

Je ne souhaite garder que les fichiers de moins de 3 mois, puis-je supprimer (par macro) les fichiers de plus de 3 mois, se trouvant dans mon répertoire.

Merci de vos réponses



Modifié par Yaloo le 19/11/2010 11:53
Publicité
galopin01
 Posté le 20/11/2010 à 07:21 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonjour,

En l'absence d'autres indications je répondrai : Oui !

L'instruction :

kill "NomDuFichier" permet de supprimer des fichiers.

En supposant que les fichiers sont nommées astucieusement...

kill "*07??.xls" permet de supprimer tous les fichiers .xls du mois de juillet

"dupont_0705.xls"
"duschmoll_0726.xls"
...

Sinon si tu ne peux te baser que sur la date du dernier enregistrement, il faut utiliser la fonction FileDateTime dans une boucle Dir...

Voir l'aide de VBA sur ces notions.

A+

ferrand
 Posté le 20/11/2010 à 08:30 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Je pense tout d'un coup (ça m'arrive ) après déjeuner, que ton sujet fait suite au précédent, dans lequel si je me souviens bien tu reçois mensuellement un classeur dans lequel, seule une feuille t'intéresse.

Tu as adopté la solution consistant à copier ou déplacer la feuille dans un nouveau classeur, puis détruire l'ancien.

Rien ne t'empêche à la place de la déplacer dans un classeur contenant les feuilles des 3 mois précédents. La manoeuvre sera la même.

Tu n'aurais donc plus à supprimer le classeur de plus de 3 mois, mais la feuille de ton classeur unique parvenue en fin de vie. Je me vote un café après cet effort matinal .

Yaloo
 Posté le 20/11/2010 à 13:29 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour Ferrand, Galopin,

J'avais créé un post sur Excel-donwload et j'ai eu une réponse qui me satisfait parfaitement.

Le lien du post est ici

Voici la macro :

Sub Test()
Call DelFilesInFolder("D:\DossierTest\", False)
End Sub
Sub DelFilesInFolder(SourceFolderName As String, IncludeSubfolders As Boolean)
' [url=http://msdn.microsoft.com/en-us/library/hww8txat(VS.85).aspx]Scripting Run-Time Reference[/url]
Dim FSO As Object
Dim SourceFolder As Object, SubFolder As Object
Dim FileItem 'As Scripting.File
Dim VDate As Date
' Date Minimum = aujourdhui - 3 mois
VDate = Now() - (3 * 30.42)
' Utilise le FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
Set SourceFolder = FSO.GetFolder(SourceFolderName)
' Pour Chaque fichier du dossier
For Each FileItem In SourceFolder.Files
' Vérifier si la date de création est inférieure à la date minimum souhaitée
If FileItem.DateCreated < VDate Then
' Si oui, on supprime le fichier - ATTENTION ! IRREVERSIBLE
Kill FileItem
End If
Next FileItem
' Faire les sous-dossier
If IncludeSubfolders Then
For Each SubFolder In SourceFolder.SubFolders
DelFilesInFolder SubFolder.Path, True
Next SubFolder
End If
' Effacer les variables objet
Set FileItem = Nothing
Set SourceFolder = Nothing
Set FSO = Nothing
End Sub

Pour Galopin, je n'avais pas trouvé la méthode pour utiliser FileDateTime donc cette macro me convient complètement.

Merci encore à vous 2.

Yaloo

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
87,91 €Carte mère Asus ROG Strix B450-F Gaming II (socket AM4) à 87,91 € livrée
Valable jusqu'au 20 Octobre

Amazon Allemagne fait une promotion sur la carte mère Asus ROG Strix B450-F Gaming II à 80,57 €. Comptez 7,04 € pour la livraison en France soit un total de 87,61 € au lieu de 120 €. La carte mère ASUS STRIX B450-F GAMING II est idéale pour concevoir un PC puissant et à l'aise dans toutes les situations : multimédia, bureautique et jeux vidéo, vous pourrez assembler la configuration de vos rêves avec un AMD Ryzen sur socket AM4.


> Voir l'offre
79,99 €SSD Samsung 870 QVO 1 To à 79,99 €
Valable jusqu'au 20 Octobre

Cdiscount fait une promotion sur le SSD Samsung 870 QVO 1 To qui passe à 79,99 € au lieu de 100 €. Ce SSD offre des vitesses de 560 Mo/s en lecture et 530 Mo/s en écriture. Il est garanti 3 ans.


> Voir l'offre
1349,99 €PC portable 15,6 pouces HP Omen (R7 5800H, 16Go/SSD 512Go, GeForce RTX 3070) à 1349,99 € (via ODR)
Valable jusqu'au 20 Octobre

Cdiscount fait une belle promotion sur le PC portable HP Omen 15-en1006nf qui passe à 1499,99 €. Or HP rembourse actuellement 150 € pour l'achat de cet ordinateur qui vous reviendra à 1349,99 € après remboursement. On le trouve ailleus à plus de 2000 €.

e portable dispose d'un écran 15,6 pouces Full HD IPS (1920 x 1080 pixels) à 144 Hz, d'un processeur AMD Ryzen 7 5800H à 8 coeurs, de 16 Go de RAM, d'un SSD NVMe de 512 Go. Il intègre également une carte graphique dédiée GeForce RTX 3070 8 Go.

Il possède 4 ports USB 3.2, un port USB 3.2 Type C, un lecteur de carte mémoire, une webcam, le WiFi 6, bluetooth 5.0 et un port Ethernet Gigabit. Il tourne sous Windows 10. Un ordinateur très performant, parfait pour un usage bureautique, multimédia et gaming.


> Voir l'offre

Sujets relatifs
Supprimer des dossiers/Fichiers en doubles
Fichiers Word impossible à supprimer
Supprimer fichiers sur CD
WORD 2010 ; Impossible supprimer les fichiers
Supprimer des fichiers suivant condition
Supprimer des fichiers suivant condition par macro
supprimer les fichiers word.
supprimer des fichiers
MODIFIER pagination et supprimer page blanche - WORD 2010
Word 2007 : Comment supprimer tous les retours à la ligne indésirables
Plus de sujets relatifs à Supprimer fichiers de plus de 3 mois
 > Tous les forums > Forum Bureautique