modifier une date dans une macro

c_fifi

XLDnaute Nouveau
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

XLDnaute Impliqué
Re : modifier une date dans une macro

Bonsoir Fifi,

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

Code:
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

XLDnaute Nouveau
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.
 

Discussions similaires

Statistiques des forums

Discussions
312 016
Messages
2 084 622
Membres
102 618
dernier inscrit
Elise751