Discussion :

[poney01]

Bonjour,
j'aimerai savoir comment il est possible que le controle active x calendrier se positionne sur la date du jour dans mon formulaire car je suis en fait obligé de sélectionner cette dernière à chaque ouverture du formulaire.

Ci joint le bout de code que j'ai sous mon calendrier:

Private Sub Calendrier_Updated(Code As Integer)

End Sub
Merci de votre aide

[Dolphy35]

Bonjour et bienvenue sur le Forum,

Compte tenu que tu ne veux pas recevoir de MP je te demanderais de consulter les règles du Forum ainsi que ce threads Important : *~* >>>>> A Lire Avant De Poster - Imperatif


Concernant ton problème :

Sur l'évenement sur ouverture de ton Formulaire =>

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MonCalendrier = Date

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MonCalendrier=Now()

Dolphy

[poney01]

je n'ai pas réussi à mettre à jour mon calendrier dans mon formulaire.
La fonction MonCalendrier = Date ou MonCalendrier = now() ne marche.
Peut être ne l'ai je pas mis au bon endroit?

je l'ai mis à la suite de cette instruction
Private Sub Form_Open(Cancel As Integer) sous le code de l'ouverture de mon formulaire

[Dolphy35]

Salut,

Cela devrait fonctioner là où tu l'a mis, par contre as-tu remplacer MonFormulaire par le nom de ton Formulaire ?

Dolphy

[poney01]

je vais passer pour un bleu mais je suis vraiment novice en la matière mais ce qui compte c'est la motivation.
Ou est ce que je peux remplacer mon Formulaire par le nom de mon formulaire .

[Dolphy35]

en quatre mots

désolé j'ai coffouillé.

il faut remplacer MonCalendrier par le nom de ton contrôle ActiveX (calendrier)

Dolphy

[poney01]

Quand je fais un clic droit dans le formulaire sur mon objet calendrier, son nom est Calendrier.
De ce fait , je met donc Calendrier = now() dans le code d'ouverture de mon formulaire. Résultat ca ne marche pas

[Dolphy35]

Salut,

tu as un contrôle ActiveX (Calendar) lorsque sur l'évenement Open_Form tu mets ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MonCalendrier=Now()

que se passe t-il éxactement ?

Normalement la date du jour doit être sélectionnée.

Dolphy

[francishop]

Bonjour;

Au chargement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Form_Load()
' Équivalent à Me.cal.Today : Me.cal.Value = Now
Me.cal.Today
'Et si besoin était:
Me.cal.Refresh

Cordialement.

Ps : Evidemment "Cal" est le nom du calendrier

[helas]

Aller dans les propriétés du calendrier
Effacer le champ Nom et réécrire Calendrier sans espaces devant ni derrière
et réécrire dans l'événement Open du formulaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
 calendrier = Now()

mettre en commentaires ( ' devant les lignes de code) tout ce qui se rapporte au calendrier dans le reste du code

si la date du jour ne s'affiche toujours pas, supprimer le calendrier et réinstaller le

Vérifier dans les références la présence de Microsoft Calendar Control ...
sinon le rajouter

Installation de l'activeX calendar
Dans l'editeur Visual Basic, cliquer Outils\Références
Cliquer Parcourir
Dans Type de fichiers , sélectionner Controle ActiveX (.ocx)
sélectionner c:\Program Files\Microsoft Office\Office10\mscal.ocx
cliquer Ouvrir

si l'emplacement est différent, faire une recherche sur mscal.ocx pour trouver l'emplacement exact