Discussion :

[maximeozenne]

Bonjour !

Je développe une petite appli sous Excel VBA qui ouvre un deuxième Workbook stocké dans la variable Public :

Code :

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

Public WBdata As Workbook

Ce que je souhaiterais c'est que lorsque l'utilisateur a fini d'utiliser mon appli, il la ferme via la croix rouge en haut à droite. Et donc que depuis cette manip', cela ferme le classeur WBdata puis ferme l'appli.

Je pourrais tout simplement utiliser Application.quit mais si l'utilisateur a d'autres classeurs d'ouverts ça lui fermera le tout et je souhaiterai éviter ça. J'essaye donc de mettre en place un bout de code de ce style :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error GoTo suite
    ThisWorkbook.WBdata.Close False
suite:
    ThisWorkbook.Save
 
    If (Workbooks.Count = 1) Then
        Application.Quit
    Else
        ThisWorkbook.Close False
    End If
End Sub

Mais je me retrouve avec mes classeurs bien fermés comme il faut, sauf qu'Excel reste ouvert quand même ! (Même si aucun autre classeur n'est ouvert)



Comment je pourrais faire pour éviter que cela ne se produise ?

Merci de votre attention.

[joe.levrai]

Bonjour,

euh tu es sûr que ceci fonctionne ?

Code :

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

ThisWorkbook.WBdata.Close False

WBdata étant déjà un classeur, il ne peut être l'objet enfant d'un autre classeur


en corrigeant ceci, tu devrais donc avoir WBdata qui se ferme correctement, et qui résoudrait ton If/End If qui n'a jamais Workbooks.Count = 1
enfin, je suis pas sûr que ce soit le seul problème, en ne voyant qu'un unique évènement

[maximeozenne]

Oui ce code fonctionne, lorsqu'il est executé le classeur en question est bien fermé. Le On Error est ici au cas où l'utilisateur a déjà fermé ce classeur manuellement.

De plus, avec un MsgBox, j'ai vérifié et le Workbooks.Count renvoi bien 1 comme attendu. Comme il est à 1, le "Application.quit" est appelé mais cela ferme uniquement le classeur restant (qui est donc le classeur de l'appli) mais Excel reste ouvert