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

Question

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

cs_Le Pivert · Accepted Answer

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à

Utilisateur anonyme · Answer

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

Effacer plusieurs celulle a une heure precise tous les jours

2 réponses

Discussions similaires

Newsletters