Macro pour supprimer le classeur après la date d’expiration, Excel VBA

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.

S’abonner
Notifier de
0 Commentaires
le plus ancien
le plus récent le plus populaire
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x