Discussion :

[pikameuh]

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 :

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

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.

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

[Touffe54]

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

[pikameuh]

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 :

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

[amnorian]

Mais ou est place ton unload me ?
sinon de la même facon que tu as appelé ton USF, fait unload "ton USF"

[casefayere]

D'accord avec toi amnorian,

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

Code :

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

Call remplissage_vers_rapport(Ligne)