J'aimerai récuperer une date dans une cellule puis la comparer avec la date d'aujourd'hui. Il y a ca dans la cellule (1,5) : 20/12/2001.
 
Dim DateReunion, DateNow As Date
 
DateNow = Format(Date, "dd/mm/yyyy" )
DateReunion = WSReunion.Cells(1, 5).Value
 
If DateReunion < DateNow Then
 MsgBox ("J'aime le sucre" )
End If
 
Mais le probleme est que la date que je recupere est converti en string : "20/12/2001" du coup le if par en sucette.    
QQ1 pourai me guider ?
 
 
HELP !  
 
 
PS : si ca peux aider voila les variables locales :
DateReunion : "20/12/2001" : Variant/String  
DateNow : #10/06/2002# : Date

ben si tu utilises aussi format, ça ne marche pas ??

 
comment ca ??
 

comme ca ?! je vais essayer
 
DateReunion = Format(Date, WSReunion.Cells(1, 5).Value)

Il faut utiliser "CDate" pour convertir une chaine en date :
DateReunion = CDate(WSReunion.Cells(1, 5).Value)

ben si tu fais un format sur la date que tu récupères avec cells, ça ne marche pas ??
 
ou bien ptet que le paramètre de format doit obligatoirement etre une date ?  
 
au pire (je dis bien au pire paske ça fouette comm méthode), tu crée une méthode qui te converti ta string contenant la date en une date ...
 
ms bon !!

 
 
certes je n'y avais pas pensé !!

je vais tester CDate !

ca a l'air de marcher !!!
 
 
 
j'ai fait comme ca en fait :
 
DateReunion = WSReunion.Cells(LigneReunion, 5).Value
DateReunion = CDate(DateReunion)
 
  el scorcho  

CA marche !!!!!
       
 
Merci bcp !!
 
EnJoY !
 
 
 

Autre pb :
 
Quand je copie une date d'une cellule vers une autre lorsque le jours est inferieur a 12, il y a une inversion entre le jour et le mois.
 
Exemple :
 
20/01/2001 reste bien 20/01/2001
mais
10/01/2001 deviens 01/10/2001 ( inversion du jour et du mois )
 
WTF ?
 
PS :   hihi

c bon g trouvé !