Fermer Excel depuis une macro

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:

---

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:

---

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

Hubs bonjour

Voici ton code :

Code:

---

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:

---

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

é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 :ccool:

cordialement
Hubs

Code:

---

1 2 3

Application.DisplayAlerts = False '....ton code Application.DisplayAlerts = True

---

vous allez trop vite pour moi !

merci
Hubs