Discussion :

[fleur_langloy]

bonjour

je fais un test pour savoir si un formulaire est ouvert : CurrentProject.AllForms(stDocName).IsLoaded
et il arrive quelques fois que le retour soit vrai alors que le formulaire est bien fermé

Merci pour votre aide !

[marot_r]

Bonjour.

Es-tu sur qu'il est ferme et pas seulement invisible ?

A+

[fleur_langloy]

bonjour,
j'ai testé plusieurs façons de fermer : macro; vba docmd.close;
a chaque fois le même problème mais qui n'arrive pas tout le temps !
le test revoit "true" alors qu'il est fermé

[Ric500]

Bonjour,

Tu peux essayer avec cette fonction?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function EstOuvert(NomFormulaire)
          ' Argument(s) : un nom de formulaire.
          ' Action : détermine si un formulaire est actif.
          ' Valeur(s) renvoyée(s) : True si le formulaire spécifié est actif ;
          '          False dans le cas contraire.
          ' Voir : Chapitre 3.
 
              Dim i
              EstOuvert = False
              For i = 0 To Forms.Count - 1
              If Forms(i).FormName = NomFormulaire Then
                  EstOuvert = True
                  Exit Function   ' Quitte la fonction une fois le formulaire trouvé.
              End If
              Next
End Function

[fleur_langloy]

SUPER !
je vais essayer de suite
MERCI