Comparaison de dates
Bonjour à tous,
Après avoir parcouru plusieurs forums sur le sujet de comparaison de dates, je ne parviens toujours pas à résoudre mon problèmes. Qui est celle-ci :
J'ai une colonne S (correspond aux dates de debut du projet) et la colonne T (les dates de fin de projet). Je souhaiterai extraire (ou exporter) dans un nouveau fichier excel que les dates (DateDebut <= (Aujourd'hui) et DateDeFin > Aujourd'hui).
En VBA :
Dim DateDeb As Date, DateFin As Date, DateCible As Date
DateCible = Date 'Aujourd'hui (exemple 19/01/2016)
For lg = 4 To Ligne
DateDeb = Workbooks(nomsource).Sheets(n).Range("S" & lg).Value
DateFin= Workbooks(nomsource).Sheets(n).Range("T" & lg).Value
'Cette condition qui ne fonctionnement pas
If (DateDeb <= Date) And (DateFin > DateCible) Then
Instruction
End if
Merci d'avancé et Cordialement.
Après avoir parcouru plusieurs forums sur le sujet de comparaison de dates, je ne parviens toujours pas à résoudre mon problèmes. Qui est celle-ci :
J'ai une colonne S (correspond aux dates de debut du projet) et la colonne T (les dates de fin de projet). Je souhaiterai extraire (ou exporter) dans un nouveau fichier excel que les dates (DateDebut <= (Aujourd'hui) et DateDeFin > Aujourd'hui).
En VBA :
Dim DateDeb As Date, DateFin As Date, DateCible As Date
DateCible = Date 'Aujourd'hui (exemple 19/01/2016)
For lg = 4 To Ligne
DateDeb = Workbooks(nomsource).Sheets(n).Range("S" & lg).Value
DateFin= Workbooks(nomsource).Sheets(n).Range("T" & lg).Value
'Cette condition qui ne fonctionnement pas
If (DateDeb <= Date) And (DateFin > DateCible) Then
Instruction
End if
Merci d'avancé et Cordialement.
