Fermeture d'un classeur à une date voulue

CBernardT

XLDnaute Barbatruc

• 22 Septembre 2010

• #2

Re : Fermeture d'un classeur à une date voulue

Bonjour Mimi et le forum,

Macro à placer dans le module Thisworkbook :

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

 

Vote positif 0 Vote négatif

Mimi

XLDnaute Occasionnel

• 22 Septembre 2010

• #3

Re : Fermeture d'un classeur à une date voulue

Bonjour CBernardT,
Merci pour ta réponse, je test et je te dis si sa ma va
@ plus
Mimi

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 22 Septembre 2010

• #4

Re : Fermeture d'un classeur à une date voulue

Salut Mimi, CBernardT, le Forum

Une autre Macro dans la même veine

VB:

Private Sub Workbook_Open()
If Date >= DateSerial(2010, 10, 1) Then
MsgBox "Vous ne pouvez plus ouvrir ce classeur" & Chr(10) & Chr(10) _
& "                           Désolé"
ThisWorkbook.Close savechanges:=False
Else
Feuil2.Activate
End If
End Sub

A noter quand même que si la personne n'active pas les macros, le classeur s'ouvrira quand même

Bonne Journée

 

Vote positif 0 Vote négatif

Mimi

XLDnaute Occasionnel

• 22 Septembre 2010

• #5

Re : Fermeture d'un classeur à une date voulue

Bonsoir le forum,
Merci à tous les deux sa marche nikel
A bientot
Michel

 

Vote positif 0 Vote négatif

A

ascal44

XLDnaute Occasionnel

• 22 Avril 2011

• #6

Re : Fermeture d'un classeur à une date voulue

Bonjour le forum ,

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 ?

 

Vote positif 0 Vote négatif