Si vous avez certains classeurs qui doivent être supprimés après une certaine période de temps, vous pouvez incorporer un interrupteur horaire dans Excel. Dans l’exemple suivant, un classeur est supprimé en 2001.
Sub DossierAvecDateExpiration () If Date> CDATE ("Decembre 31, 2000") _ Then Kill "C: \ My Files \ Secret.xls" End Sub
Pour faciliter la lecture du code, vous pouvez utiliser la date de comparaison sous forme longue. Pour ce faire, cependant, vous devez utiliser la fonction CDATE, qui convertit en interne la date longue dans un format de date approprié. Si la requête indique que le classeur a expiré, supprimez le classeur souhaité avec l’instruction Kill. Vous pouvez également utiliser cette instruction pour supprimer plusieurs classeurs à la fois. Dans l’exemple suivant, tous les fichiers du répertoire C: \ TEMP sont supprimés sans confirmation.
Sub NettoyerLeRepertoire () On Error GoTo end: ChDir "C: \ temp" Kill "*. *" The End: End Sub
Pour être sûr, ajoutez une instruction On Error à cette macro. Si le répertoire spécifié n’est pas trouvé, l’instruction Kill est contournée en branchant directement à la fin de la macro. Ce sera
Si un répertoire spécifié est trouvé, tous les fichiers sont adressés à l’aide de l’espace réservé *. * Et supprimés sans confirmation à l’aide de l’instruction Kill.