Calcul de Date dans une Macro

Bonjour à tous !

Dans un projet, j'ai un code que je modifie tous les ans pour y indiquer une date butoir qui est le 30 avril de l'année en cours. J'aimerai pouvoir automatiser ce calcul de date butoir mais malheureusement, mes connaissances en VBA ne me permettent pas de trouver une solution. Auriez-vous un petit moment pour pouvoir trouver une solution à mon problème ?

Je vous joins le code où se trouve cette date :

If Cells(LgTableau, 6) > 1 And ExtraireLaDate(DateFin) <> "30/04/2017" Then
    Worksheets(MatNomPrenom).Cells(LgTab, 2) = ExtraireLaDate(DateFin) - 1
 Else
    Worksheets(MatNomPrenom).Cells(LgTab, 2) = ExtraireLaDate(DateFin)
 End If

Un grand merci pour votre aide.

Cordialement,

Philoche

Bonjour,

C'est à dire ? Quel est le problème ?

Bonjour,

Essaie :

If Cells(LgTableau, 6) > 1 And ExtraireLaDate(DateFin) <> "30/04/" & Year(Date) Then

A+

[Edit] Je suis incorrigible ! Jamais foutu de faire un aperçu !

Bonjour galopin01,

Non Malheureusement ça ne marche pas !

en debug, il affiche bien 30/04/2017 mais à l'éxecution VBA ne doit pas le considérer comme une date.

en VBA, existe t il une fonction du style DATE (Année,Mois,Jour) ??

Merci encore de ton aide.

Cordialement,

Philoche

Avec une peau de sauce... Difficile de dire si le saucisson est bon !

Essaie :

If Cells(LgTableau, 6) > 1 And ExtraireLaDate(DateFin) <> CDate("30/04/" & Year(Date)) Then

Bonjour galopin01,

C'est exactement ce que je voulait ! parfait !

Merci beaucoup de ton aide et désolé de ma réponse tardive !

Bonne journée.

Cordialement,

Philoche