Discussion :

[Hubs702]

bonjour

j'ai développé une petite application sur Excel 2000, mais je souhaite que les UserForms se comportent comme s'ils n'étaient pas liés à Excel. J'ai donc, dans mon Auto_open(), inséré la ligne
Application.Visible=False

J'ai interdit aussi la fermeture par la petite croix à droite de la barre de titre des UserForm au moyen de

Code :

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

1
2
3
Sub UserForm_QueryClose(Cancel As Integer, CloseMode as Integer)
 Cancel = True
End Sub

Enfin, j'ai un bouton d'action pour fermer le programme, avec le code

Code :

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

1
2
3
4
5
6
Private Sub Quit_click()
 Unload Me 'ferme le formulaire principal
 ThisWorkbook.Close savechanges:=True
 Application.Visible=True
 Application.Quit
end Sub

Lorsque je clique sur le bouton de sortie, mon application se ferme, mais Excel reste en mémoire : il est toujours visible dans la liste des processus actifs de Windows.

Comment faire pour qu'Excel se ferme complètement ?

merci d'avance
Cordialement
Hubs

[mrtrampo]

Hubs bonjour

Voici ton code :

Code :

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

1
2
3
4
5
6
7
 
Private Sub Quit_click()
     Unload Me 'ferme le formulaire principal
     ThisWorkbook.Close savechanges:=True
     Application.Visible=True
     Application.Quit
end Sub

Avec Unload tu détruit l'objet actuel, mais le code continue de s'exécuter
Avec ThisWorkbook.Close tu fermes le classeur en sauvegardant. Mais une fois que le classeur est fermé ton projet est fermé aussi, donc il ne peut pas exécuter les deux dernières lignes.

Je te suggère ce code

Code :

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

1
2
3
4
5
6
7
 
Private Sub Quit_click()
    ThisWorkbook.Save
    Unload Me 'ferme le formulaire principal
    Application.Visible = True
    Application.Quit
End Sub

Le classeur sera fermé en même temps qu'Excel

[Hubs702]

évidemment ! les dernières lignes ne pouvaient pas s'exécuter une fois mon fichier fermé. Eh bien malgré tout, j'aurai cherché !

Avec ça, ça marche. Je n'aurais pas aimé avoir des instances d'Excel se promenant en mémoire, bien cachés.

Il ne me reste qu'à trouver le code pour que la sauvegarde se fasse sans passer par la boîte de dialogue "voulez-vous ..." - mais je devrais pouvoir y arriver.

merci beaucoup

cordialement
Hubs

[casefayere]

Code :

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

1
2
3
Application.DisplayAlerts = False
'....ton code
Application.DisplayAlerts = True

[Hubs702]

vous allez trop vite pour moi !

merci
Hubs