Effacer plusieurs celulle a une heure precise tous les jours

Résolu/Fermé
-
 Geo -
Bonjour,

j'ai une feuille excel patager sur drive pour que mes employés puissent la remplir.

j'aimerai que tous les soirs la feuille s'effacer pour etre vierge pour la journée du lendemain.

C'est possible ?

D'avance merci

2 réponses

Messages postés
7656
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
28 janvier 2022
678
Bonjour,

l'opération va se faire à la 1ère ouverture du classeur.
La date se met à la fermeture et à l'ouverture on vérifie. Si la date est différente on efface.

Faire Alt F11 pour accéder à l'éditeur. En haut à gauche sélectionner ThisWorkbook et coller ceci:

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Worksheets("Feuil2").Range("A1") = Format(Date, "dd/mm/yyyy") 'adapter le nom de la feuille
End Sub
Private Sub Workbook_Open()
If Format(Date, "dd/mm/yyyy") = Worksheets("Feuil2").Range("A1") Then 'adapter le nom de la feuille
Else
Worksheets("Feuil1").Cells.ClearContents 'adapter le nom de la feuille
End If
End Sub


Voilà
Bonjour,

Merci beaucoup pour cette solution :)

Bonne journée

Tu copié colle trente fois le même fichier vierge dans le dossier pour le mois en cours ?
Bonjour,

Merci d'avoir répondu mais c'est un peu hors sujet...

Bonne journée