OVH Cloud OVH Cloud

récupérer dernier jour du mois précédent

8 réponses
Avatar
Laurent M
Bonjour,

Je récupère dans ma base de données Access une date, et je souhaite dans mon
code VBA transformer cette date de manière à obtenir le dernier jour du mois
précédent !

merci beaucoup !

8 réponses

Avatar
AV
En vba
Si x est le N° de série de la date

MsgBox Format(Evaluate("date(year(" & x & "),month(" & x & "),0)"), "dd/mm/yy")

AV
Avatar
Patrick BASTARD
Bonjour, *Laurent M*
J'ai lu ton post
avec le plus grand intéret :

Avec ta date en B10, essaie ceci :
ÚTE(ANNEE(B10);MOIS(B10);JOUR(1)-1)

En attendant les kadors "c'est l'heure de la sieste...) qui vont sûrement
te proposer plus simple.
;-)

Bien cordialement,

Patrick.


Bonjour,

Je récupère dans ma base de données Access une date, et je souhaite
dans mon code VBA transformer cette date de manière à obtenir le
dernier jour du mois précédent !

merci beaucoup !


Avatar
Patrick BASTARD
Re.

Désolé, le coup est parti tout seul, et dans ma précipitation, je n'avais
pas intégré "VBA"...
...et je découvre que Alain ne faisait pas la sieste.
;-)

Bien cordialement,

Patrick.


Bonjour,

Je récupère dans ma base de données Access une date, et je souhaite
dans mon code VBA transformer cette date de manière à obtenir le
dernier jour du mois précédent !

merci beaucoup !


Avatar
Daniel.M
Bonjour,

DernJrMoisPr = MaDate-Day(MaDate)

En formule (si besoin est) :
¡-JOUR(A1)

Salutations,

Daniel M.

"Laurent M" wrote in message
news:
Bonjour,

Je récupère dans ma base de données Access une date, et je souhaite dans mon
code VBA transformer cette date de manière à obtenir le dernier jour du mois
précédent !

merci beaucoup !


Avatar
GD
;o)))
heu Auguste...???
SGDM ????
31/12/2005 ????
pense quand même à régler ta pendule !!!

NewDate= DateSerial(Year(MyDate), Month(MyDate), 0)
mais AV l'avait déja dit !!!
@+

Paul V. wrote:
Bonjour,

En suposant que ta date se trouve dans la variable MyDate

NewDate= DateSerial(Year(MyDate), Month(MyDate), 1) - 1

SGDM

A+

Paul V
"Laurent M" a écrit dans le
message de news:
Bonjour,

Je récupère dans ma base de données Access une date, et je souhaite
dans mon
code VBA transformer cette date de manière à obtenir le dernier jour
du mois
précédent !

merci beaucoup !




Avatar
FxM
Bonsoir Paul,

Passe de bonnes fêtes. Meilleurs voeux :o)

@+
FxM

PS : regarde ton horloge



Bonjour,

En suposant que ta date se trouve dans la variable MyDate

NewDate= DateSerial(Year(MyDate), Month(MyDate), 1) - 1

SGDM

A+

Paul V
"Laurent M" a écrit dans le message de
news:

Bonjour,

Je récupère dans ma base de données Access une date, et je souhaite dans
mon
code VBA transformer cette date de manière à obtenir le dernier jour du
mois
précédent !

merci beaucoup !







Avatar
Paul V.
Bonjour

SGBM = Sans garantie de moi :-)

A+
Paul V
PS: Ma montre a fait un saut spatio-temporel durant un test de procédure
VB.Net sans que je ne comprenne pourquoi. J'ai fait un bond en arrière
manuel et cela doit être OK maintenant mais je vais surveiller

"GD" a écrit dans le message de news:
%230kp4S$
;o)))
heu Auguste...???
SGDM ????
31/12/2005 ????
pense quand même à régler ta pendule !!!

NewDate= DateSerial(Year(MyDate), Month(MyDate), 0)
mais AV l'avait déja dit !!!
@+

Paul V. wrote:
Bonjour,

En suposant que ta date se trouve dans la variable MyDate

NewDate= DateSerial(Year(MyDate), Month(MyDate), 1) - 1

SGDM

A+

Paul V
"Laurent M" a écrit dans le
message de news:
Bonjour,

Je récupère dans ma base de données Access une date, et je souhaite
dans mon
code VBA transformer cette date de manière à obtenir le dernier jour
du mois
précédent !

merci beaucoup !








Avatar
twinley
Quand la main est ferme, c'est ce qu'il y a de plus sûr...

;-)

à+twinley

Bonjour

SGBM = Sans garantie de moi :-)

A+
Paul V
PS: Ma montre a fait un saut spatio-temporel durant un test de procédure
VB.Net sans que je ne comprenne pourquoi. J'ai fait un bond en arrière
manuel et cela doit être OK maintenant mais je vais surveiller

"GD" a écrit dans le message de news:
%230kp4S$

;o)))
heu Auguste...???
SGDM ????
31/12/2005 ????
pense quand même à régler ta pendule !!!

NewDate= DateSerial(Year(MyDate), Month(MyDate), 0)
mais AV l'avait déja dit !!!
@+

Paul V. wrote:

Bonjour,

En suposant que ta date se trouve dans la variable MyDate

NewDate= DateSerial(Year(MyDate), Month(MyDate), 1) - 1

SGDM

A+

Paul V
"Laurent M" a écrit dans le
message de news:

Bonjour,

Je récupère dans ma base de données Access une date, et je souhaite
dans mon
code VBA transformer cette date de manière à obtenir le dernier jour
du mois
précédent !

merci beaucoup !