rechercher le dernier jour d'un mois

Question

Bonjour,

Je voudrai chercher qd tombe le dernier jour du mois de decembre c'est pour faire une sauvegarde, sachant que si c'est un samedi ou un dimanche il faut ke la sauvegarde se fasse le vendredi!

kkun peut m'aider?

merci par avance

Ickik · Answer

bonjour,
regardes cette source
http://www.vbfrance.com/article.aspx?Val=218
A+

titdiable · Answer

merci pour ton aide c cool !!

j'ai fait ca :

'calcul du jour se sauvegarde

decembre = "31/12/" & an & ""
Today = Format$(decembre, "dddd d mmmm yyyy")
J = Split(Today, " ")

If J(0) = "dimanche" Then
date_sauv = J(1) - 2
Else
date_sauv = J(1)
End If

If J(0) = "samedi" Then
date_sauv = J(1) - 1
Else
date_sauv = J(1)
End If
    

'si l 'annee est finie, sauvegarde des tables de l'annee precedente
If moisc "Décembre" And jour date_sauv Then
MsgBox ("Sauvegarde pour l'année effectuée.")
End If

voila si ca interresse kkun eh eh 
et au fait chouette ton icone ;o)
encore merci

Bye

Ickik · Answer

peut-etre que ce code pourrait etre mis sur le site,
il est tres demande dans le forum

A+

PS:merci pour mon icone :-)

crenaud76 · Answer

Christophe R.

crenaud76 · Answer

Scabreux comme code !!!
Moi je préfère cela :

Select Case WeekDay("31/12/" & year(Now()))
  Case vbSaturday
    date_sauv = 30
  Case vbSunday
   date_sauv = 29
  Case else
   date_sauv = 31
end select

Christophe R.

titdiable · Answer

c'est vrai que c'est quand meme plus propre!!

thinks!

Nico.

Rechercher le dernier jour d'un mois

6 réponses

Discussions similaires