Discussion :

[hprfr]

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

[Jean-Philippe André]

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

[hprfr]

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

[ucfoutu]

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....

[Jean-Philippe André]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ucfoutu]

Bé !!!!

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

[hprfr]

Un grand merci jpcheck, ca fonctionne au top.

[ucfoutu]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

If val(anneefichier) > Year(Date)