Discussion :

[loacast]

Bonjour,

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

Code :

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

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 :

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

Unload frm_Importer

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

Erreur d'exécution '361'

Impossible de charger ou de décharger cet objet

Merci pour votre aide

[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?

[loacast]

Code :

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

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

[SilkyRoad]

bonjour

tu peux faire un essai en remplaçant la ligne

Code :

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

Unload (frm_Importer)

par

Code :

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

End

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

Code :

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

1
2
3
Private Sub btn_Importer_Click() 
frm_Importer.Show 
End Sub

bonne soiree
michel

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

[SilkyRoad]

rebonsoir

tu peux tester cette adaptation

Code :

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

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

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

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

Unload Me

suffirait.