Discussion :

[wulfram]

(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 :

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

openclose(Me)

Code :

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

1
2
3
4
Public Function openclose(leform As UserForm)
Unload leform
leform.Show
End Function

II.
Appel de procédure :

Code :

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

openclose(Me.Name)

Code :

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

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

[pijaku]

Bonjour,

Essaye ceci :

Code :

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

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

[wulfram]

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 :

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

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 :

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

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...

[pijaku]

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

[wulfram]

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.

[pijaku]

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"

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 :

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

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 :

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

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à...