Bonsoir à tous,
J'ai essayé de réaliser une boucle comme suit :
Ce code fait parti d'une function située dans un module général !
Le résultat est que ma boucle tourne sans cesse et bloque mon apply.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 'Démarre la jauge de progression. Call acbInitMeter("Fusion vers Word en cours") ' Tant que le formulaire frmStatusMeter est ouvert alors While CurrentProject.AllForms("frmStatusMeter").isloaded ' Boucle. 'rien Wend ' Quitte la boucle 'Démarre Word à l'aide du modèle de fusion de données. Set wrdApp = New Word.Application Set doc = wrdApp.Documents.Add(strPath & conTemplate)
Call acbInitMeter renvoi à une function qui ouvre un formulaire avec une barre de progression. Lorsque ma barre est arrivée au bout ce formulaire, celui-ci se ferme. (ici pas de problème !)
Ensuite :
Je veux attendre que mon formulaire en question se ferme pour continuer les instructions de mon code.
Sauf que ma boucle que j'utilise ici n'engendre rien ! Le curseur de ma souris reste en sablier et bloque mon application.
Merci de votre aide.
Partager