1 er jour du mois

Résolu
Signaler
Messages postés
32
Date d'inscription
mercredi 24 mars 2004
Statut
Membre
Dernière intervention
3 août 2006
-
Messages postés
32
Date d'inscription
mercredi 24 mars 2004
Statut
Membre
Dernière intervention
3 août 2006
-
Bonjour,

Dans une petite appli de calendrier j'utilise des dates mais ca marche pas qd les paramètres régionaux ne sont pas ceux q j'attends....
1/ je récupère une date depuis Excel
2/ j'extraie le jour, mois, année
3/ je crée une date correspondant au premier jour du mois (CDate("01/" & myMonth & "/" & myYear)) et après j'affiche mon calendrier.
Prob si la date n'est pas de la forme dd/mm/yy ca fait boum.
Idéalement je voudrais une fonction qui me renvoie une date en fonction du jour, du mois et de l'année mais j'ai pas trouvé ca dans l'aide...
A défaut, je voudrais pouvoir récupérer le format régional dans VBA pour pouvoir bidouiller ensuite.

Merci pour votre aide
Michael

3 réponses

Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
47
salut,
çà çà irait?
MsgBox DateSerial(Year(Now), Month(Now), 1)

++
PCPT [AFCK]
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci

Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
26
Bonsoir,

Comme PCPT, je ne suis pas sur d'avoir bien compris la question.

Dim MyDate1, MyDate2
MyDate1 =
 DateSerial( 
1970
, 
1
, 
1
)
' Renvoie 1 janvier 1970.
MyDate2 =
DateSerial(
1990 - 10
,
8 - 2
,
1 - 1
)
' Renvoie 31 mai 1980.

3/ je crée une date correspondant au premier jour du mois (CDate("01/" & myMonth & "/" & myYear)) et après j'affiche mon calendrier.
"Problème si la date n'est pas de la forme dd/mm/yy ca fait boum."

la date , c'est quoi, elle vient d'où ???
A tout hasard, myMonth est bien sur 2 caractères et myYear sur 4 caractères.

Avec un peu plus de précision(s), vous aurez certainement une réponse adéquate.

jean-marc
Messages postés
32
Date d'inscription
mercredi 24 mars 2004
Statut
Membre
Dernière intervention
3 août 2006

Merci pour votre aide. Ca m'a bien débloqué!