Ménage des classeurs obsolètes

[isa44]

Bonsoir , j'ai trouvé ce code :

Private Sub Workbook_Open()
Dim DateMax As Date
DateMax = DateSerial(2010, 9, 30)
If Date > DateMax Then
On Error Resume Next
ThisWorkbook.Close
On Error GoTo 0
End If
End Sub

Ce serait un début pour faire du ménage sur mon ordi:

Serait il possible d'envoyer ce classeur directement dans la poubelle pour éviter d'accumuler les classeurs obsolètes ?

Merci pour vos conseils

 

[kiki29]

Re : Ménage des classeurs obsolètes

Salut,voir pour ce site via Google

 

[kjin]

Re : Ménage des classeurs obsolètes

Bonsoir,

Ce serait un début pour faire du ménage sur mon ordi:

Je ne vois rien là qui te le laisse penser !
Par contre, si tu nous précisais si ça concerne tous les classeurs, dans tous les répertoires, si la date à retenir est leur date de création, de modification...
A+
kjin

 

[isa44]

Re : Ménage des classeurs obsolètes

Bonjour , en fait cela concerne le seul classeur dont la date de ce code arrive a terme 😀ateMax = DateSerial(2011, 4, 24)

Si la date est terme ; a la fermeture supprimer directement le classeur.

 

[Pierrot93]

Re : Ménage des classeurs obsolètes

Bonjour à tous,

essaye ceci :

Option Explicit
Sub test()
If Date > #12/31/2010# Then
    With ThisWorkbook
        .ChangeFileAccess xlReadOnly
        Kill .FullName
        .Close False
    End With
End If
End Sub

bonne journée
@+

 

[isa44]

Re : Ménage des classeurs obsolètes

Merci Pierrot le test fonctionne très bien