Trouver dernier jour mois précédent Résolu/Fermé

Question

Bonjour, 

Je cherche à trouver la date du dernier jour du mois dernier (hors week end).

Pour cela, j'ai testé le code suivant (qui ne fonctionne pas) :

Dim annéeDim MoisCh As StringDim first, last As Dateannée = Year(Now())MoisCh = Format(Now(), "mm")first = "01\" & MoisCh & "\" & annéelast = first - 1If Weekday(last) = 7 Then    last = last - 1ElseIf Weekday(last) = 1 Then    last = last - 2End If

la ligne : last = first - 1  ne renvoit pas le jour précédant le premier jour du mois actuel (= le dernier jour du mois précédant).

Auriez-vous une solution ?

Merci d'avance !

Zoul67 · Answer

Bonjour

last = DateSerial(Year(Date), Month(Date), 1) - 1

A+

a51432 · Answer

Merci beaucoup ça fonctionne !

PlacageGranby · Answer

Bonjour,

Quelques petites erreur.

first = "01\" & MoisCh & "\" & année
Ne donnera pas une date mais une chaine texte.
Il faut utiliser Cdate()  pour convertir la chaine texte en date.
Aussi,  un backslash  \  n'est pas reconnu comme délimiteur de date dans excel.
C'est soit le slash /  ou le tiret - 

Donc

Dim année
Dim MoisCh As String
Dim first as date, last As Date

année = Year(Now())
MoisCh = Format(Now(), "mm")
first = cdate("01/" & MoisCh & "/" & année)
last = first - 1


Dernière subtilitée
Dim first, last As Date
VBA n'assigne pas toute les variable comme étant une énumération du même type.
Ta déclaration,  First sera un type variant, et Last sera une date.

Il n'y aura pas d'erreur même si First est un variant, mais j'imagine que le type variant consomme plus de mémoire et ton code est moins optimisé.

Trouver dernier jour mois précédent

3 réponses

Discussions similaires