Fermer/ouvrir un userform à partir d'un module

(re)Bonjour à tous,

Je souhaitais pouvoir fermer / ouvrir un UserForm à partir d'un module, en utilisant une variable, contenant le nom du formulaire.
Je pensais réaliser cela comme sur Access, mais DoCmd n'est pas reconnu !
Après quelques recherches, je suis arrivé à deux possibilités :

I.
Appel de procédure :

Code:

---

openclose(Me)

---

Code:

---

1 2 3 4

Public Function openclose(leform As UserForm) Unload leform leform.Show End Function

---

II.
Appel de procédure :

Code:

---

openclose(Me.Name)

---

Code:

---

1 2 3 4

Public Function openclose(leform As String) Unload leform leform.Show End Function

---

Aucun de ces deux codes ne fonctionne, l'erreur mise en avant est "type missmatch" ;
Dans le premier cas, au niveau de l'appel de procédure, dans le second dans la procédure elle-même.

Dans cet exemple précis, réinitialiser le formulaire serait suffisant, mais je souhaite par la suite pouvoir fermer un formulaire et en ouvrir un autre, cette méthode ne sera donc pas suffisante.

En vous remerciant d'avance pour votre aide,

Wulfram

Bonjour,

Essaye ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Option Explicit   Sub Appel() Dim Nom As String, Form As Object Nom = "UserForm" & 1 Set Form = VBA.UserForms.Add(Nom) openclose Form End Sub   Private Sub openclose(maForm As Object) 'Unload maForm maForm.Show End Sub

---

Bonjour, et merci pour l'aide !

Tout d'abord, je me suis permis de passer la private sub en public sub, puisque la procédure se trouve dans un module distinct, qui aura vocation à être appelé depuis divers formulaires. Mon code est donc ainsi :

Code:

---

1 2 3 4 5 6 7 8

Private Sub Appel() 'écrite dans le code de mon formulaire Dim Nom As String Dim Form As Object Nom = Me.Name Set Form = VBA.UserForms.Add(Nom) openclose (Form)

---

Code:

---

1 2 3 4 5

Public Sub openclose(maForm As Object) 'écrite dans le module Unload maForm maForm.Show End Sub

---

Avec ce code, j'ai une runtime error 361, "can't load or unload this object".
Si je retire la ligne de l'unload, comme dans ton exemple, j'ai une runtime error 438, "Object doesn't support this property or method".

Le seul moyen qui m'ait permis d'utiliser cette forme de code était de nommer explicitement le formulaire, donc sans passer par une variable, ce qui réduit l'intérêt...

Quel est l'intérêt?
J'avoue ne pas comprendre...

Il y a peut-être un mode de résolution de mon problème bien plus adapté !

Voici le contexte :
J'invite un utilisateur à entrer des informations dans un formulaire. Une fois la saisie effectuée, et lorsqu'il la valide, je souhaite fermer ce formulaire.
Dans cet exemple, je souhaite rouvrir ce même formulaire, afin qu'il puisse effectuer un même type de saisie : dans ce cadre, réinitialiser le formulaire conviendrait tout à fait !
Néanmoins, dans certaines situations, ce premier formulaire devra être fermé, et un autre type de formulaire ouvert selon divers paramètres ; ce type de changement de formulaires pouvant avoir lieu dans différents sens, je cherchais une procédure générique permettant une telle opération, sachant que le nom du nouveau formulaire pourra toujours être récupéré à partir des paramètres en questions.

Citation:

---

je souhaite rouvrir ce même formulaire, afin qu'il puisse effectuer un même type de saisie

---

Ben ne le ferme pas. Réinitialise tous ses contrôles comme à l'origine. ==> bouton "INIT"

Citation:

---

Néanmoins, dans certaines situations, ce premier formulaire devra être fermé, et un autre type de formulaire ouvert selon divers paramètres

---

==> autre bouton ==> "CLOSE"
Utilise donc l'événement QueryClose pour faire tes choix selon les paramètres.

Exemple :
Ouvre un nouveau classeur.
Places-y trois userforms nommés UserForm1, UserForm2 et UserForm3
Dans l'UserForm1 dessines un TextBox (TextBox1) et un bouton (CommandButton1)

Le but est de saisir, dans le TextBox, 2 ou 3 et donc d'afficher soit l'UserForm2, soit l'userForm3.
Ok?

Le code de l'UserForm1 :

Code:

---

1 2 3 4 5 6 7 8 9

Option Explicit   Private Sub CommandButton1_Click() Unload Me End Sub   Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Choisi Me, Me.TextBox1.Value End Sub

---

Le code dans un module standard :

Code:

---

1 2 3 4 5 6 7 8 9

Option Explicit   Public Sub Choisi(U As Object, N As String) Dim Nom As String, Form As Object U.Hide Nom = "UserForm" & N Set Form = VBA.UserForms.Add(Nom) Form.Show End Sub

---

Et voilà...

Votre code fonctionnant parfaitement ainsi, je me demandais pourquoi, alors que ce n'était pas le cas auparavant: cela provient du fait de la déclaration de deux variables, l'une sous forme d'object, l'autre de string.
J'ai donc adapté ceci à ce que je souhaitais réaliser, afin de ne pas avoir à vérifier, lors de la fermeture du formulaire, s'il l'a été par validation de la saisie, ou par utilisation du bouton "quit".

Au niveau du formulaire :

Code:

---

1 2 3 4

Private Sub Appel Call openclose(Me, nouveau) End sub

---

Au niveau du module :

Code:

---

1 2 3 4 5 6 7 8 9

Public Sub openclose(ancien As Object, nouveau As String) Dim form As Object   Unload ancien 'ancien.Hide   Set form = VBA.UserForms.Add(nouveau) form.Show End Sub

---

Pour le coup, pas besoin d'utiliser la propriété "Hide", qui en plus renvoi un message d'erreur !
Ce code fonctionne tout à fait pour ce que je souhaite faire, et vous remercie donc pour votre contribution !

En vous souhaitant une agréable fin de journée,

Wulfram