Discussion :

[bernard_metz]

Bonjour à tous,

Je recherche à fermer ou mettre en arrière plan (soit avec "Close" ou soit avec "Hide") tous les formulaires actifs sur EXCEL et cela surtout quand je lance un apperçu avant impression sinon je bloque le programme si un formulaire modal est encore actif.

J'ai trouvé ce code sur l'aide d'excel:

Code :

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

1
2
3
4
5
Sub CloseForms()
    For Each frm In Application.Forms
        If frm.Caption <> Screen.ActiveForm.Caption Then frm.Close
    Next
End Sub

Malheureusement cela me fait une erreur "438" : "Propriété ou méthode non gérée par cet objet"...

Avez-vous une idée pour me dépanner svp?

merci d'avance!

[Invité]

Bonjour,

Pour fermer tous les Userforms à la fois.

Code :

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

1
2
3
4
 
Private Sub CommandButton1_Click()
    End
End Sub

Cordialement.
Jean-Claude