Function FormIsLoaded(oForm As Form) As Boolean
Dim Frm As Object, bFound As Boolean
FormIsLoaded = False
For Each Frm In Forms
If Frm Is oForm Then FormIsLoaded = True: Exit For
Next Frm
Set Frm = Nothing
End Function
' NB : POUR UTILISER 'FormIsVisible' vous devez aussi copier 'FormIsLoaded'
Function FormIsVisible(oForm As Form) As Boolean
If FormIsLoaded(oForm) Then
Dim Frm As Object
Set Frm = oForm
FormIsVisible = Frm.Visible
Set Frm = Nothing
Else
FormIsVisible = False
End If
End Function
' EXEMPLE D'UTILISATION
' copiez ce code dans Form1, votre projet contient Form1 et Form2
Private Sub Form_Load()
MsgBox FormIsLoaded(Form2)
Form2.Show
MsgBox FormIsVisible(Form2)
Unload Me
End Sub