Function FormIsLoaded(oForm As Form) As Boolean
Dim Frm As Object
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
FormIsVisible = oForm.Visible
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