Ménage des classeurs obsolètes

kiki29

XLDnaute Barbatruc

• 22 Avril 2011

• #2

Re : Ménage des classeurs obsolètes

Salut,voir pour ce site via Google

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 22 Avril 2011

• #3

Re : Ménage des classeurs obsolètes

Bonsoir,

isa44 à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

I

isa44

XLDnaute Occasionnel

• 23 Avril 2011

• #4

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.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 23 Avril 2011

• #5

Re : Ménage des classeurs obsolètes

Bonjour à tous,

essaye ceci :

Code:

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
@+

 

Vote positif 0 Vote négatif

I

isa44

XLDnaute Occasionnel

• 23 Avril 2011

• #6

Re : Ménage des classeurs obsolètes

Merci Pierrot le test fonctionne très bien

 

Vote positif 0 Vote négatif