Macro limitée dans le temps

Bonjour le forum,

Je me demande s'il existe une macro à bute destructif? bizar comme question je sais

A vrais dire je cherche à mettre toutes les macros d'un classeur à terme à une date precise!

Possible

Bonjour,

Sub test()
Dim Limite As String
Limite = "15/12/2009" 'date butée
If Date > CDate(Limite) Then Exit Sub
End Sub

Amicalement

Claude.

Re,

Merci Dubois, juste quelques détails:

La macro elle s'execute automatiquement en ouvrant le fichier à la date signalée ou bien je soit inserrer une commande pour cela?

Aussi, la macro prend elle la date et heure du bios? parceque je vien de faire un teste avec 21/12/2009 changé sur windows et ça marche pas!

Crdt,

Bonjour Kikim, Claude,

La macro elle s'execute automatiquement en ouvrant le fichier à la date signalée ou bien je soit inserrer une commande pour cela?

Pour qu'elle s'exécute à l'ouverture mets ce code dans THISWORKBOOK

Private Sub Workbook_Open()
Call Test
End Sub

Aussi, la macro prend elle la date et heure du bios? parceque je vien de faire un teste avec 21/12/2009 changé sur windows et ça marche pas!

La macro TEST prend en compte ce que tu mets comme valeur dans DATE LIMITE.

Amicalement

Dan

Re,

Ca marche !

Merci beaucoup NadDan, Dubois

@+