Discussion :

[HookerSeven]

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 !

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)

Le résultat est que ma boucle tourne sans cesse et bloque mon apply.

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.

[deaqu1]

Si jeu bien compris tu veux ouvrir un formulaire et "suspendre l'exécution du prog" tant que tu n'as pas récupérer l'info d'un autre formulaire...

[deaqu1]

Code :

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

1
2
3
4
5
6
    'Affiche la fenétre de type d'HISTORIQUE
    While gbytChoixHistorique = 0
        Screen.MousePointer = 1
        DoCmd.OpenForm "Choix_Historique", , , , , acDialog
        DoEvents
    Wend

J'ai eu un probléme similaire et j'ai mis ca en place, tu la place dans ton prog et lorsque tu arrive a ce code, et ouvre l'autre formulaire en modal, tant que l'on a pas effectuer ce qu'on a faire il tourne indéfiniment...

[HookerSeven]

Salut deaqu1,

Merci de ton aide !

Mais mon souhait est d'ouvrir un formulaire appelé "frmStatusMeter" et de "suspendre l'exécution de ma function de fusion Word" tant que je n'ai pas fermer ce même formulaire que je viens d'ouvrir.

Ce formulaire contient une barre de progression qui permet de visualiser l'attente de mon function "fusion Word".

Si tu vois ce que je veux dire, peux-tu m'expliquer si ton code solutionnerait mon problème ?

[DMboup]

Tu crée une variable globale boolean que tu met à false lorsque tu ouvre ton formulaire frmStatusMeter

Tu boucle tan que cette variable reste à false

En fermant ton formulaire tu met ta variable à true

[Maxence HUBICHE]

si tu mettais un petit DoEvents dans ta boucle, juste histoire de redonner un peu la main au système de temps en temps ?

[HookerSeven]

Bonjour,

Merci à tous pour votre aide, ca fonctionne correctement maintenant

Voici pour info ma boucle avec la variable "check" de DMboup mise sur ouverture et fermeture de mon formulaire et le DoEvents spécifié par Maxence :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    'Démarre la jauge de progression.
Call acbInitMeter("Fusion vers Word en cours")
 
' Tant que le formulaire frmStatusMeter est ouvert alors
Do While CurrentProject.AllForms("frmStatusMeter").isloaded  ' Boucle.
check = True
DoEvents
Loop   ' 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)

Merci et à bientôt