PB initialisation calendar

[sylsyl]

Bonjour a tous,

Voici mes lignes de commande (largement inspirees de ce forum):

MainForm.Calendar1 = Now
CWeek = Format(MainForm.Calendar1.Value, "ww")

"CWeek" est le nom d'un label sur l'Userform nomme "Mainform"

Cette commande se lance a l'ouverture de la macro.

Ca marche tres bien jusqu'a 12h00 (midi), apres le calendrier m'affiche le jour suivant

Exemple:Aujourd'hui a 14h30 il m'affiche 19 sept.
et quand je fais un MsgBox(Now) pour verifier, tout est correct !!

J'ai cherche dans l'aide excel et dans ce forum mais j'ai rien trouve qui puisse me mettre sur une piste.

Merci.

Syl

 

[michel]

bonsoir Sylsyl

peux tu tester le fichier ci joint

je ne suis pas un spécialiste des formats , mais je suis surpris que tu puisses avoir "19 sept" avec un format "ww"

bonne soirée
Michel

 

[sylsyl]

Bonjour michel,

je me suis mal expliquer. Le CWeek stock bien la valeur de la semaine (CWeek = Current week). En fait le calendar aide l'utilisateur a choisir une semaine et c'est la valeur par defaut du calendar qui est mauvaise.

Je travaille sur un PC du bureau et il m'est formellemnt interdit de telecharger des fichiers (Je suis dans une grosse boite en Angleterre et le reseau est supersurveille).

De toute facon je pense avoir trouve la solution a mon probleme (il y a environ 10 min) en mettant "Date" au lieu de "Now".

Merci beaucoup.
A++