Quitter un UseForm

Version imprimable

Quitter un UseForm

Bonjour à tous,

J'ai developpé un petit UseForm permettant de choisir entre 2 types d'exportations des données.

Mais j'ai un petit souci, je n'arrive pas à fermer cet UseForm avec un bouton annuler, car une erreur survient quand j'éssaie d'utiliser Unload (Me).
Et si je ferme avec la croix, le permier UseForm qui avais lancé celui-ci se ferme aussi. Je ne comprends vraiment pas pourquoi.

Le code du UseForm à fermer :
Code:

1 2 3 4 5 6 7 8 9 10 ' Appeler la macro d'edition de rapport APIC Private Sub BtRapportAPIC_Click() Call Rapport End Sub ' Appeler la macro d'edition de rapport Cyclade Private Sub BtRapportCyclade_Click() Call Rapport End Sub
Merci de me répondre.

12/05/2011, 09h08
casefayere

Bonjour,
Ce n'est pas avec le code que tu proposes que l'on pourra t'aider, il faut joindre le code de la procédure "rapport"
12/05/2011, 11h06
Touffe54

Je pense qu'il faut que tu écrives Unload Me et pas Unload (Me)

j'ai essayer les 2 Unload avec et sans parenthèse (s'il y a qu'un paramètre les parenthèse sont optionnels), mais ça ne marche pas.

Pour la procedure rapport, je pense pas que ça changera quelque chose car elle ne fait pas partie du UseForm mais d'un module. Cependant, voici sont code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
' Maccro appeler lors du clic sur le bouton => Rapport
Public Sub Rapport()
 
         ' Declarer les variables
                     Dim Ligne As Integer
                            Ligne = 2
         ' Afficher la boite de dialogue Ouvrir
                    ChDir ("N:\Projet 1 - Formulaire branchement renouvelé")
                    OuvrirFichiers = Application.GetOpenFilename(filefilter:="Excel (*.xls),*.xls", FilterIndex:=2, Title:="Fichier de rapport", MultiSelect:=False)
                    NOMFICH = OuvrirFichiers
         ' Ouvrir le fichier Excel dans le Workbooks
                    Workbooks.Open Filename:=NOMFICH
         ' Trouver la premiere ligne vide
                    Cells(Ligne, 5).Select
                    Do While Not (IsEmpty(ActiveCell))
                        Ligne = Ligne + 1
                        Cells(Ligne, 5).Select
                    Loop
        ' Remplir le fichier de rapport
                   Call remplissage_vers_rapport(Ligne)
         ' Fermer le fichier Excel
                    ActiveWorkbook.Close
End Sub

12/05/2011, 13h50
amnorian

Mais ou est place ton unload me ?
sinon de la même facon que tu as appelé ton USF, fait unload "ton USF"
12/05/2011, 14h51
casefayere

D'accord avec toi amnorian,

D'autant plus qu'on nous renvoie à une autre procédure qu'on ne connait pas

Code:

Call remplissage_vers_rapport(Ligne)
12/05/2011, 17h16
pikameuh

Mais c'est pareil, la procedure n'apporte rien.

On lance le formulaire
=> on rentre dans une procédure
=> on entre dans une autre procésure
<= on ressort
<= on ressort
Je devrais Unload ici, apres les call rapport des boutons cité au début (il me semble) mais si je le mets ça ne marche pas.
12/05/2011, 17h36
fring

Bonjour,

Si je comprend bien, via un premier UserForm tu en ouvres un second.

A vue de nez je dirais que le "Unload Me" est placé dans le module du premier UserForm ce qui a pour effet qu'il ne s'exécutera pas tant que le second UserForm est actif.

D'où la question de amnorian à laquelle tu n'as pas répondu... Mais ou est place ton unload me ?
13/05/2011, 08h08
rvtoulon

Bonjour à tous,
je suis d'accord avec amnorian et fring quand à savoir où tu as mis le Unload ME.
Mais peux-être que pour être sur de fermer le bon userform tu pourrais remplacer le UNLOAD ME par:

Code:

Unload Userform1 ' ici tu remplaces userform1 par le nom du userform à fermer

L'idée c'est qu'en mettant ceci tu spécifies le nom du Userform à fermer.

j'avais essayé de le mettre là :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 ' Appeler la macro d'edition de rapport APIC Private Sub BtRapportAPIC_Click() Call Rapport Unload (Me) End Sub ' Appeler la macro d'edition de rapport Cyclade Private Sub BtRapportCyclade_Click() Call Rapport Unload (Me) End Sub
J'ai réussi a faire ce que je voulais (du moins en apparence) en remplaçant Unload (Me) par NomForm.hide

13/05/2011, 09h44
casefayere

Bonjour à tou(te)s,

Citation:

J'ai réussi a faire ce que je voulais (du moins en apparence) en remplaçant Unload (Me) par NomForm.hide

et avec :

Code:

unload NomForm

Non ?
13/05/2011, 10h49
pikameuh

Non j'ai toujours la même erreur qui dit que je ne peut pas utiliser de méthode Load ou Unload arriver à cette ligne : Unload NomFormulaire
16/05/2011, 14h25
amnorian

Pardon mais je ne comprends pas que fait ta macro "rapport" est ce qu'elle ferme l'userform ou la feuille qui contient la macro ?
essaye de faire un
sheet("lenomdetonrapport").activate car peut être qu'il a besoin que tu active une feuille...
17/05/2011, 08h19
pikameuh

rapport enregistre les donnée du formulaire dans un fichier.
Mais avant ça j'ai besoin de déterminer le type de rapport, d'où l'intéré du UseForm pour donner le choix.

le UseForm se referme lui même.
17/05/2011, 10h35
amnorian

Si l'userform se referme ou est le problème ?
j'ai l'impression que tu ferme la feuille contenant la macro et donc l'userform.