Effacer plusieurs celulle a une heure precise tous les jours [Résolu]

Signaler
-
 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
7214
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
19 janvier 2021
601
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
Messages postés
159
Date d'inscription
mardi 29 janvier 2019
Statut
Membre
Dernière intervention
13 janvier 2021
9
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