Supprimer contenu
Existe-t-il une vba qui supprime les fichiers d'un classeur automatiquement à une date précise
Merci d'avance de votre collaboration
Merci Amadéus pour ta réponse mais aurais tu la possiblité de m'envoyer un fichier comme exemple
Merci d'avance
et surtout tous les dossiers ont plusieurs feuilles que je ne sais définir de 5 à 45 feuilles
et l'exemple est pour une feuille et la date n'est pas définie comme dans le fichier IV1
Code dans thisWorkBook
Code: Tout sélectionner
Private Sub Workbook_Open()
Dim today As Date
today = Date
If [a1] = Date Then
Call Effacer
End If
End Sub
Code dans Module1
Code: Tout sélectionner
Sub Effacer()
Sheets("Feuil1").Select
Range("B9:Z150").ClearContents
Range("B8").Select
End Sub
Encore merci pour ton aide
Bonjour
Si tu ne connais pas le nombre de feuilles..
Ce Code crée une Feuille nommée « Supprime », y insére un message et supprime toutes les autres feuilles.
Sub SupprimerFeuilles()
'on neutralise les messages d'alerte
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'on contrôle si une feuille nommée "Supprime" existe
Dim Ws As Worksheet
For Each Ws In ActiveWorkbook.Worksheets
'Si une feuille nommée "Supprime" existe, on la détruit
If Ws.Name = "Supprime" Then
Ws.Delete
Exit For
End If
Next
'On ajoute (ou on recrée) une Feuille nommée "Supprime"
Sheets.Add
ActiveSheet.Name = "Supprime"
'On y insére un texte
Range("C15").Select
ActiveCell.FormulaR1C1 = "La date limite est atteinte."
Range("C16").Select
ActiveCell.FormulaR1C1 = "Les feuilles du classeur ont été supprimées!"
Range("C17").Select
'On supprime toutes les feuilles sauf la feuille "Supprime"
Dim W As Worksheet
For Each W In ActiveWorkbook.Worksheets
If W.Name = "Supprime" Then
Else: W.Delete
End If
Next W
'On enregistre le fichier
ActiveWorkbook.Save
'On réactive les messages d'alerte Excel
Application.DisplayAlerts = True
End SubCordialement