date de peremption

toffard

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

merci
 

ya_v_ka

XLDnaute Impliqué
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
 

Discussions similaires

Statistiques des forums

Discussions
300 892
Messages
1 988 187
Membres
210 098
dernier inscrit
sidimouh