modifier une date dans une macro

[c_fifi]

Bonjour àtous,
J'aimerai savoir si je peux modifier la date : CDate ,dans ma macro :30/06/08 par l'intermédiaire d'un userForm textBox ou autre ?

Voici mon début de la private Sub :
Private Sub Ok_Click()
'Limitation d'utilisation à une date déterminée
If Date > CDate("30/06/08") Then
MsgBox "Chr(13) & Date d'utilisation Dépassée" & Chr(13) & Chr(13) & " Accès Refusé"
'Fermeture du classeur sans enregistrer
ActiveWorkbook.Close savechanges:=False
End If

D'avance merci pour vos réponses
Fifi.

 

[cbea]

Re : modifier une date dans une macro

Bonsoir Fifi,

Si j'ai bien compris ta demande, voici une solution.

Private Sub Ok_Click()
    'Limitation d'utilisation à une date déterminée
    If IsDate(TextBox1.Value) Then
        If CDate(TextBox1.Value) > CDate("30/06/08") Then
            MsgBox Chr(13) & "Date d'utilisation Dépassée" & Chr(13) & Chr(13) & "Accès Refusé"
            'Fermeture du classeur sans enregistrer
            ActiveWorkbook.Close savechanges:=False
        End If
    End If
End Sub

 

[c_fifi]

Re : modifier une date dans une macro

Bonsoir Cbea
Merci pout ta réponse.
En fait je voulais pouvoir changer la date limite d'utilisation, et j'ai trouvé une solution bien plus simple par l'intermédiaire d'un contol calendar, où la date est renvoyée en feuille 3, cellule G4 .

voilà le bout de code si celà peut servir à quelqu'un ...

Private Sub Ok_Click() 'Macro enregistrée par FiFi

'Limitation d'utilisation à une date déterminée
DateLimite = Sheets("3").Range("G4").Value
If Date > DateLimite Then
MsgBox Chr(13) & "Date d'utilisation Dépassée" & Chr(13) & Chr(13) & " Accès Refusé"
'Fermeture du classeur sans enregistrer
ActiveWorkbook.Close savechanges:=False
End If

Encore merci pour avoir essayé de me dépatouillé .

Fifi.