KTM
XLDnaute Impliqué
Bonsoir Forum
Jai un dossier "Save" dans lequel j"enregistre des copies de sauvegarde de mon Fichier "Produit" à chaque enregistrement du fichier
selon le code :
Dim chemin$
chemin = ThisWorkbook.Path & "\Save\"
If Dir(chemin, vbDirectory) = "" Then MkDir chemin
ThisWorkbook.SaveCopyAs chemin & Format( Now, & ThisWorkbook.Name
Jaimerais supprimer a chaque sauvegarde les copies vielles de plus de 3 jours. Est ce possible? Merci.
Jai un dossier "Save" dans lequel j"enregistre des copies de sauvegarde de mon Fichier "Produit" à chaque enregistrement du fichier
selon le code :
Dim chemin$
chemin = ThisWorkbook.Path & "\Save\"
If Dir(chemin, vbDirectory) = "" Then MkDir chemin
ThisWorkbook.SaveCopyAs chemin & Format( Now, & ThisWorkbook.Name
Jaimerais supprimer a chaque sauvegarde les copies vielles de plus de 3 jours. Est ce possible? Merci.