Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Re : Supprimer le contenu d'un dossier avec une macro
Oui c'est ça, juste le contenu.
Par exemple j'ai un dossier "toto" sur mon bureau, je voudrais pouvoir supprimer tt les fichiers excel qui se trouvent dedans via la macro sans supprimer "toto".
La différence dans cette procedure c'est que je souhaite supprimer non pas tout le contenu mais uniquement certain nombre de fichier en fonction de leur date. Par exemple si je veux supprimer des fichiers sauvegardé il ya a peu près 2 ou 3 jours comment le faire?
Voici une partie du code que j'ai pu faire:
Private Sub Workbook_Open()
Dim Chemin As String
Dim fichierTexte As String
Chemin = "\\Ds-srv-hector\commun\DPAPH\Service Tarification\Sauvegarde temps réel\"
NomFic = Day(Date) & "-" & Month(Date) & "-" & Year(Date) & ".txt"
If Dir(Chemin & NomFic) = "" Then 'si le fichier de la date du jour n'existe pas
Call auto_open ' on lance l'effacement
Set fs = CreateObject("Scripting.FileSystemObject") 'on crée le fichier date du jour
Set a = fs.CreateTextFile(Chemin & NomFic, True)
a.Close
Call creation 'on appelle l'autre proc
End If ' Il n'y a pas de sinon puisque si le fichier existe on ne fait rien
Re : Supprimer le contenu d'un dossier avec une macro
bonjour le fil,
lion of ethopia: je ne pense pas que ce soit la bonne solution d'aller chercher de l'aide sur d'autres fils, ça aurait été aussi bien que tu remonte ce fil pour nous montrer comment a évolué ton PB depuis l'autre jour.
en attendant, voici une macro (à adapter) qui j'espère t'aidera :
Code:
[COLOR="Blue"]Sub[/COLOR] test()
[COLOR="Blue"]Dim[/COLOR] myFso, myFile, myFolder
[COLOR="Blue"]Set[/COLOR] myFso = CreateObject("Scripting.FileSystemObject")
[COLOR="Green"]'sélection du dossier à analyser[/COLOR]
[COLOR="Blue"]Set[/COLOR] myFolder = myFso.GetFolder("C:\temp\")
[COLOR="Green"]'boucle sur tous les fichier du dossier[/COLOR]
[COLOR="Blue"]For Each[/COLOR] myFile In myFolder.Files
[COLOR="Green"]'si la date de modification du fichier est antérieure à 3 jours, effacer le fichier[/COLOR]
If DateDiff("d", myFile.DateLastModified, Now) > 3 Then myFile.Delete True
[COLOR="Blue"]Next[/COLOR] myFile
[COLOR="Blue"]End Sub[/COLOR]
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.