[VBA Excel] Quitter le formulaire actuel

Version imprimable

01/03/2006, 15h46
loacast

[VBA Excel] Quitter le formulaire actuel
Bonjour,

J'ai un premier formulaire (frm_Accueil) qui par l'intermédiaire d'un bouton ouvre un autre formulaire (frm_Importer) :
Code:

1 2 3 4 Private Sub btn_Importer_Click() Load frm_Importer frm_Importer.Show End Sub
Une fois frm_Importer ouvert, un test s'opère. Si ce test n'est pas réalisé ( condition = false) alors je veux le fermer. Pour ce faire je fais :

Code:

Unload frm_Importer

Mais voyez-vous, cela ne fonctionne pas et j'ai l'erreur suivante qui s'affiche :

Citation:

Erreur d'exécution '361'

Impossible de charger ou de décharger cet objet

Merci pour votre aide
01/03/2006, 15h50
Megaxel

Il y a quoi, sur ce formulaire frm_Importer ?
Et comment est fait ton test "condition"? Est-ce dans le test que tu fais le "unload"? As-tu essayé de mettre un booléen à True ou False dans le test, et une fois que tu en es sorti, selon la valeur du booléen, tu fermes ou non ton formulaire?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Dim cheminBase As String
Dim baseExiste As Boolean
 
 
 
Private Sub UserForm_Initialize()
 
        ' On recherche la base Access
    cheminBase = Application.GetOpenFilename
 
    Dim systemeDeFichier
    Set systemeDeFichier = CreateObject("Scripting.FileSystemObject")
 
        ' Si la base access existe alors on initialise
    If (systemeDeFichier.FileExists(cheminBase)) Then
        baseExiste = True
 
                ' On initialise les plages en fonction des données de la feuille excel
        Call intialisationPlages
 
        Dim plageTemp As Range
        Set plageTemp = plageInsecte.getPlage("nomInsecte")
        Call definirListe(zl_InsectesISR, plageTemp)
 
    Else
        baseExiste = False
        MsgBox "Il n'y a aucun fichier au chemin spécifié"
        Unload (frm_Importer)
    End If
 
End Sub

Je ne fais que tester l'existance d'un fichier. Si il existe ça ne plante pas. par contre, si on va dans le sinon , le Unload(frm_Importer) n'est pas accepté.

01/03/2006, 18h03
SilkyRoad
bonjour

tu peux faire un essai en remplaçant la ligne

Code:

Unload (frm_Importer)

par

Code:

End

sinon (sans aucun rapport avec ton probleme ) , pour afficher ton USF tu peux utiliser directement
Code:

1 2 3 Private Sub btn_Importer_Click() frm_Importer.Show End Sub
bonne soiree
michel
01/03/2006, 18h47
loacast

J'y ai pensé, le problème c'est que End ferme le programme et pas juste la fenetre actuelle. Car comme je l'ai dit, j'ai une fenêtre principale ouverte qui ouvre plusieurs fenetre dont notemment frm_Importer.

rebonsoir

tu peux tester cette adaptation

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Dim cheminBase As String
Dim baseExiste As Boolean
 
Private Sub UserForm_Initialize()
        ' On recherche la base Access
    cheminBase = Application.GetOpenFilename
 
    Dim systemeDeFichier
    Set systemeDeFichier = CreateObject("Scripting.FileSystemObject")
 
        ' Si la base access existe alors on initialise
    If (systemeDeFichier.FileExists(cheminBase)) Then
        baseExiste = True
 
                ' On initialise les plages en fonction des données de la feuille excel
        Call intialisationPlages
 
        Dim plageTemp As Range
        Set plageTemp = plageInsecte.getPlage("nomInsecte")
        Call definirListe(zl_InsectesISR, plageTemp)
 
    Else
        baseExiste = False
        MsgBox "Il n'y a aucun fichier au chemin spécifié"
 
    End If
End Sub
 
 
Private Sub UserForm_Activate()
If baseExiste = False Then Unload Me
End Sub

bonne soiree
michel

01/03/2006, 19h57
zazaraignée

Salut

L'instruction Unload n'a pas besoin de parenthèses puisque tu appelle une procédure et non une fonction (qui retourne une valeur). Je suppose que la procédure Initialize est bien celle de ton frm_Importer. Donc, un simple

Code:

Unload Me

suffirait.