Discussion :

[mouaa]

Bonjour !

Voilà, j'ai un souci:

J'ai du code VBA qui permet d'importer un fichier Excel.
Certaines données de ce fichier peuvent être incomplètes.
J'invite donc l'utilisateur à sélectionner une donnée complète.
Pour cela, je demanda à VBA d'ouvrir un formulaire, dans lequel l'utilisateur va sélectionner les bonnes données.
Une fois cela fait, je voudrais que la procédure d'importation continue.

Pour ça, j'ai essayé ce code:

Code :

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

1
2
3
            While CurrentProject.AllForms("F_reftaches_sans_couts").IsLoaded
                'attente de fermeture du formulaire
            Wend

Access n'a pas beaucoup aimé.
Comment je peux faire ?

[Jean-Philippe André]

salut,
pourquoi n'ajoutes tu pas une fonction sur l'évènement "sur fermeture" de ton formulaire ?

[mouaa]

j'y ai bien pensé oui, mais la question est : rajouter quoi comme fonction ?

[mouaa]

Sinon, est-ce qu'il est possible de créer une msgbox avec une liste déroulante ?

Comme ça, tant que la msgbox n'est pas fermée, le code ne continue pas

Et ça m'éviterait de créer un form pour presque rien

[Jean-Philippe André]

l'idée est de faire ton

Code :

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

UserForm.Show

et de mettre le code à la suite, car cela continuera une fois ton

Code :

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

Unload Me

effectué dans le code du formulaire, tu pourras continuer le reste de la procédure normalement.

[mouaa]

super, merci !

[GorMsoN]

Bonjour,

Le post date un chouillat mais je cherche à faire la même chose, je m'explique :

Lorsque je lance ma procédure de sauvegarde de ma configuration de calcul, j'ai un formulaire qui s'ouvre avec une zone de texte servant à remplir un champ commentaires de ma BDD.

j'ouvre habituellement mes formulaire avec :

Code :

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

DoCmd.OpenForm "Commentaires", , , stLinkCriteria

Malheureusement j'ai ma fonction qui continue toute seule, et qui plante evidement puisqu'elle essais de remplis le champ commentaire avant qu'il soit sasis.

J'ai donc voulu mettre en oeuvre l'utilisation de .show et unload Me mais dés le début le .show n'est pas accepté sur mon formulaire.

Merci donc de me dire ce que je fais de travers

[nico84]

Bon alors j'utilise mon savoir tout neuf d'aujourd'hui :

Code :

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

DoCmd.OpenForm "Commentaires", , , stLinkCriteria,, acdialog

Avant je mettais

Code :

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

Do While CurrentProject.AllForms("Commentaires").IsLoaded: DoEvents: Loop

ça marchait aussi mais bon

[GorMsoN]

Arf c'est absolument parfait c'est exactement ce qu'il me fallait ça fait tout comme il faut super

Un grand merci à toi