date de peremption

[toffard]

bonsoir est il de condamner une feuille ou un classeur avec une date de peremption par exemple.

merci

 

[ya_v_ka]

salut

je pense que cela est possible, en tout cas pour une feuille, avec une fonction si (en VBA), lorque la date du jour est plus àlevée que la date de référence, ca supprime la feuille... pour le classeur je ne sais pas !

ca donnerait quelque chose comme ca :

Private Sub Workbook_Open()
Dim MyDate
MyDate = 38698 '12.12.2005
On Error Resume Next
If MyDate < Date Then
Application.DisplayAlerts = False
Worksheets('feuil3').Delete
Application.DisplayAlerts = True
End If
End Sub



ya'v

Message édité par: ya_v_ka, à: 11/12/2005 01:11