Bonjour,

Voila mon probleme : je veux comparer des dates afin de faire des actions avec mes macros.

Je recherche l' annee contenue dans le nom du fichier et je l'extrait

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
nomfichier = ActiveWorkbook.FullName
anneefichier = Left(Right(nomfichier, 11), 4)
Ensuite je compare :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
finannee = ("31/12/" & anneefichier & " ")
If finannee > Date Then ...
Else ...
Une partie des dates sont du style jj/mm/aaaa et l'autre jj.mm.aaaa en plus il doit y avoir un soucis avec les chaines de caracteres pour les transformer en date, enfin bon si vous pouvez m'aider ...


Merci