Date qui limite l'utilisation et auto suppression

Résolu
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

1 réponse

  1. 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
    1. 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
    2. 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
    3. 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
    4. 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
    5. 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