Date qui limite l'utilisation et auto suppression

Résolu/Fermé
Utilisateur anonyme - 28 sept. 2013 à 18:04
 Utilisateur anonyme - 30 sept. 2013 à 00:28
Bonjour à toutes et à tous
Je cherche une macro qui fait supprimer définitivement le fichier après une date bien définie est-il possible
Merci pour vos aides
Cordialement
A voir également:

1 réponse

via55 Messages postés 14402 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 avril 2024 2 702
29 sept. 2013 à 00:56
Bonsoir

Un fichier ne peut pas se supprimer lui même
mais tu peux par macro effacer des feuilles
ex cette macro qui efface la feuille appelée Feuil2 le 29/9/2013 à l'ouverture du classeur

Private Sub Workbook_Open()
Application.DisplayAlerts = False
If Date = #9/29/2013# Then Sheets("Feuil2").Delete
Application.DisplayAlerts = True
End Sub

Cdlmnt
0
Utilisateur anonyme
29 sept. 2013 à 17:46
Bonjour,
Merci bien pour la réponse.
J'ai trouvé le bon code. je veux t'envoyer le fichier mais je ne sais pas comment faire dans ce site.
Dans cette macro c'est un peu près ce que tu m'a expliqué dans ta réponse, mais c'est pas le même code.
0
via55 Messages postés 14402 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 avril 2024 2 702
29 sept. 2013 à 22:20
Bonsoir

Si tu as trouvé le bon code c'est parfait

Pour envoyer un fichier tu passes par https://www.cjoint.com/ et tu indiques le lien fourni dans un prochain message

Cdlmnt
0
Bonsoir
c'est le lien du fichier, je ne sais pas si j'ai bien réussi

https://www.cjoint.com/?CIDwNde8APO

Merci bien pour l'astuce "cjoint.com"
cordialement
0
via55 Messages postés 14402 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 avril 2024 2 702
29 sept. 2013 à 23:38
je pense que ça devrait marcher mais je n'ai pas accès au code VBA que tu as protégé par un mot de passe ni à la feuille masquée donc je n'ai pu regarder
0
Utilisateur anonyme
30 sept. 2013 à 00:28
Le code VBA n'est pas protégé, valider par OK de la fenêtre mot de passe sans rien taper
je t'envoie un fichier qui sera détruit en 2014

https://www.cjoint.com/?CIEaAaHTOIv

Bonne nuit
0