Discussion :

[marco56]

Bonjour,
Je débute en VBA (et sur le forumm)

J'essaie de développer une petite application sous access, pour laquelle j'ai besoin de télécharger un fichier excel, et d'y ajouter une date, qu'un utilisateur aurait sélectionner dans un calendrier (control calendar 10.0).

j'essaie donc de récupérer la valeur de la date dans une variable

Le problème que j'ai avec ma macro, est que lorsque j'ouvre le formulaire dans lequel j'ai intégré le calendrier, la macro ne s'arrête pas, elle continue jusqu'à la fin, ce n'est qu'a la fin que je peux sélectionner ma date.

Pouvez vous m'aider svp.

Merci
Marc

voici le Code

Code :

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

1
2
3
4
5
6
7
8
Sub testcalendrier()
Dim extdate
Form_popup_calendar.Visible = True
Form_popup_calendar.SetFocus
 
MsgBox "procedure terminée" + CStr(extdate)
 
end sub

code du bouton du formulaire :

Code :

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

1
2
3
4
5
6
Private Sub Command20_Click()
Dim extdate
extdate = Calendar7.value
MsgBox "You selected the date : " + CStr(extdate)
Form_popup_calendar.Visible = False
End Sub

[Jean-Philippe André]

je suppose que par macro, ici tu entends ta procédure testcalendrier

Pourrais-tu stp expliciter ce que tu appelles dans

elle continue jusqu'à la fin

la fin de quoi ?

[marco56]

Bonjour,

Merci pour ta réponse rapide.

En fait la procédure testcalendrier se termine, et la msgbox s'affiche avec le message sans la date.

Le calendrier s'affiche entre temps mais je n'y ai pas accès car la procédure tourne toujours. Une fois que la msgbox s'affiche, j'ai accès au calendrier et je peux sélectionner ma date.

Je voudrais que le calendrier s'affiche, que je sélectionne la date, qu'elle s'enregistre dans une variable puis que la procédure testcalendrier reprenne.

Merci

Marc

[Jean-Philippe André]

hum, le setfocus ne sert pas à grand chose
Si tu veux faire un test, je te propose à la rigueur de le faire dans l'evenement BeforeChange ou AfterChange du calendar

[marco56]

Comment ça dans le before change ou after change du calendar?

Il faut que je fasse stopper ma procédure ?

[Jean-Philippe André]

Dans ton test actuel tu te contentes de rendre visible ton calendar, tu lui donnes le focus puis tu affiches son contenu... Le fait de donner le focus puis d'afficher sans que rien ne soit demandé entre, ca pose effectivement un problème, non pas de code, mais de conception de ton test

[marco56]

En fait la, dans ce cas, je souhaiterais que la denrière msgbox, me donne le message "procédure terminée" + la date. Mais la procédure se termine et le message s'affiche "procédure terminée", ensuite je peux accéder à mon calendrier.

Comment dois je faire pour que le calendrier s'affiche , que je sélectionne la date, et qu'ensuite la procédure reprenne et m'affiche le bon message.

théoriquement ma procédure est plus longue, car j'ouvre un fichier excel, et j'y fais des modifications.

merci encore de ton aide

[Jean-Philippe André]

OK,
pour ne pas te donner le code tout fait, je te donne les pistes
-La mise à visible de ton calendar se fait à quel moment dans ton process ?
- Il n'est pas nécessaire d'enchainer immédiatement l'affichage à visbile de ton calendar puis celui de sa valeur, il faut laisser l'utilisateur choisir la dite valeur
-L'affichage d'un resultat ne se fait qu'une fois le choix d'une date a été effectué (Event Calendar_AfterUpdate par exemple)

[marco56]

En fait dans ce cas, l'affiche du calendar se fait au début, mais dans l'idéal, je voudrais pouvoir le faire à n'importe quel moment du process.

mon idée était de faire afficher le calendrier, que l'utilisateur choisisse la date, et qu'il valide en cliquant sur le bouton " Command20". (c'est l'objet du code du bouton)

ensuite retourner dans le process, en récupérant la valeur sélectionner dans le calendrier et l'afficher dans un message..

Je n'arrive justement pas à laisser l"utilisateur choisir la date avant la fin du process.

merci beaucoup pour ton aide.

Je vais travailler la dessus.

Marc

[marco56]

Re-bonjour,

Merci pour ton aide. J'ai finallement réussi (enfin je crois)?
Je n'ai pas réussi à avec le Afterupdate, mais j'ai dans le code de mon boutton j'ai modifié Form_popup_calendar.Visible = False par DoCmd.Close

et j'ai rajouté un call au sur l'évennement onclose du formulaire.

Merci encore

Marc