Comparaison de Date ?

Gousnef à dit:

Salut à tout le monde !!
J'ai un petit problème, je voudrais comparer la date d'aujourdhui avec une date d'échance fixe ! Ce qui me permettra de qualifier le Status de l'action en "ouvert" si la date d'aujourd'hui est superieur a la date inscrite sous une cellule Excel.
J'ai une fonction de récupération de la date mais je crois que ma méthode de comparaison n'est pas bonne (pb de déclaration de variable je crois).

je vous mets juste le debut du code (pour ne pas surcharger :

Dim ligne1 As Integer
Dim D As String

'Récuperation de la date
D = Day(Now) & "/" & Month(Now) & "/" & Year(Now)

'Nbre de lignes
ligne1 = Range("A65536").End(xlUp).Row


For Each Cel In Range("K4:K" & ligne1)

'Déclaration de repere
repere = Cel.Value

'Debut de comparaison des cellule
If repere <> "" And repere < D And Cells(Cel.Row, 12).Value <> "1" Then

En fait je ne crois pas possible de comparer (ici) D et repere (pb Dim ??) ??
je dois dire que :
repere est un rentrée directement sous excel ex: 01/04/08
D est acquis par le code, en reprenant l'exemple ca donnerait ex:1/4/2008

Je ne sais pas si c'est possible de comparer ces 2 formes !
Si une bonne âme pouvait m'éclairer !!
Merci

Cliquez pour agrandir...

'Récuperation de la date
D = Date

Gousnef à dit:

Je ne comprends toujours pas pourquoi cela ne fonctionnait pas auparavant mais bon ce qui compte est le résultat

Cliquez pour agrandir...