Re : Controle de dates dans une macro
Par rapport à mon problème de date dans le délai + ou - 10 jours, la raison était simple.
Avec ma condition :
If (CDate(DateDePreparation) - Date) > 10 Or (CDate(DateDePreparation) - Date) < 10 Then
Quelque soit le résultat, il était forcémment plus petit ou plus grand que 10.
Je m'en suis sorti en remplacant par :
If Int((CDate(DateDePreparation) - Date)) > 10 Then
Par contre, je suis toujours interressé par une proposition pour sortir de la boucle :
entree = InputBox(Message, Title, Default)
Do While Not IsDate(Replace(entree, ".", "/"))
entree = InputBox(Message, Title, Default)
Loop
DateDePreparation = CDate(Replace(entree, ".", "/"))
en tapant juste entrée.
De plus, si je mets une date plus éloignée que 10 jours ou qui tombe sur un week-end, il m'affiche la nouvelle InputBox avec le message adéquate. Si je clique sur annuler, il va quand même ouvrir l'autre fichier et y écrire FALSE.
Est-il possible de lui dire de sortir de la macro si la personne clique sur Annuler?
Fab