Fichier limité dans le temps avec 2 conditions ?

Bonjour , je vous expose mon soucis en espérant qu'un marabout du vba passe par là

je limite mon fichier dans le temps avec ce code :

If CDate(Date) < CDate("14/07/2017") Then
    MsgBox "Vous pouvez utiliser le programme"
     Else
    MsgBox "Vous pouvez pas utiliser le programme"
    End If

Je voudrais que si la date est inférieure au 14/07/2017 le fichier soit utilisable là c'est le cas ....ou qu'il soit aussi utilisable et peut importe la date si la cellule B1 de la feuille 1 ( qui s’appelle "mafeuille" par exemple ) soit pleine ou contienne du texte ?

Merci d'avance.

Bonjour,

Déjà :

If Date < DateSerial(2017, 7, 14) Then

sera plus sûr !

Avec ta deuxième condition :

If Date < DateSerial(2017, 7, 14) Or Worksheets("mafeuille").Range("B1") <> "" Then

Les messages te permettent alors d'annoncer ce que tu veux, mais ensuite, que veux-tu qu'il se passe ?

Bonjour, un grand merci !!!! ça à l'air de fonctionner ...