Bloquer macro par date

Bonjour le Forum,

Je voudrais bloquer toutes mes macros dans un fichier à partir d'une date précise.

Je voudrais en fait que ce fichier ne prenne plus en charge les macros au delà de cette date.

J'ai fait un test avec "If Date > "30/04/2016" Then End", mais le 31/03/2016 les macros n'étaient déjà plus actives.

Existe-t'il une solution à ma demande ?

Merci pour votre aide.

Bonjour

Teste ce code dans une feuille vierge et change la valeur de i à ta convenance

Sub test()
MsgBox "salut"
End Sub

Sub lance()
Dim i As Date
i = "31/03/2016"
If Date > i Then
Exit Sub
Else

test
End If
End Sub

Bonjour M12,

J'ai fais le test sur feuille vierge et ensuite comme cela fonctionnait, j'ai adapté un bout de ton code dans mes macros.

Dim i As Date

i = "02/04/2016"

If Date > i Then

Exit Sub

Else

End If

J'ai testé avec et sans "Else" et cela a l'air de fonctionner.

Vaut-il mieux laisser ou enlever "Else" dans ce bout de code sachant que derrière j'ai une macro de recherche et d'autres pour imposer les majuscules etc... .

Merci déjà pour ton aide et pour une éventuelle nouvelle réponse.

Bonjour,

Moi j'ai mis le ELSE pour qu'il poursuive sur la procèdure de TEST ----> Affichage MSGBOX

De toute façon, s'il rencontre la variable i et que la condition est respectée, il stoppe la procèdure par le EXIT SUB.

Re-bonjour M12

Merci pour ta réponse.

Bonne journée