un probleme avec des dates

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:

---

1 2	nomfichier = ActiveWorkbook.FullName anneefichier = Left(Right(nomfichier, 11), 4)

---

Ensuite je compare :

Code:

---

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

salut,
peux-tu nous donner un exemple de ActiveWorkbook.FullName
qu'on puisse te dire si on utilise du replace, du Cdate ou autre chose :mouarf:

Si j'ai bien compris ce qu'on me demande

C:\Documents and Settings\HP_Propriétaire\Mes documents\Mes fichiers reçus\2007(1).xls

plusieurs choses !

On va commencer par la toute première :

On ne compare pas une chaine de caractères avec une date ...

on compare plutôt la date qu'elle représente avec une date ...

EDit : et de toutes manières : > que l'année en cours passe forcément au delà du 31/12 de l'année en cours.

Bé.... Year(date) te donne le millésime de l'année en cours, à comparer donc, tout bêtement, avec le val(millésime-extrait_du_texte)....

A toi... et ne me dis pas que tu ne piges pas cela, hein....

d'accord, si la récupération de ton année est bonne, il faut essayer avec ceci :

Code:

---

1 2	finannee = ("31/12/" & anneefichier) If cdate(finannee) > Date Then

---

Bé !!!!

on compare bêtement Year(Date) avec Val(anneefichier) et cela suffit, non ????

Un grand merci jpcheck, ca fonctionne au top.

:koi:
Vous aimez chercher midi à 14 heures, apparemment ....

Plus grand que le 31/12/une_année est forcément plus grand que le millésime de l'année en cours.
Et il a déjà l'autre millésime ...

c'est tout simplement :

Code:

---

If val(anneefichier) > Year(Date)

---