OVH Cloud OVH Cloud

pb fermeture avec macro

5 réponses
Avatar
Auguste VIEIRA de RESENDE
voila
je ferme mon classeur avec ceci dans Thisworkbook

ThisWorkbook.Close SaveChanges:=True
Application.Quit

mais excel ferme le fichier sans quitter excel
(on dirait qu'il plante...)
quelqu'un voit la solution ?

5 réponses

Avatar
Alpha
Bonjour,
Toujours dans Thisworkbook, mais avec la procédure BeforeClose

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Thisworbook.Save
Application.Quit
End Sub

Salutations
Alpha

"Auguste VIEIRA de RESENDE" a écrit dans le message de
news:e%
voila
je ferme mon classeur avec ceci dans Thisworkbook

ThisWorkbook.Close SaveChanges:=True
Application.Quit

mais excel ferme le fichier sans quitter excel
(on dirait qu'il plante...)
quelqu'un voit la solution ?




Avatar
isabelle
bonjour Auguste,

modifie ThisWorkbook pour Application

isabelle


voila
je ferme mon classeur avec ceci dans Thisworkbook

ThisWorkbook.Close SaveChanges:=True
Application.Quit

mais excel ferme le fichier sans quitter excel
(on dirait qu'il plante...)
quelqu'un voit la solution ?


Avatar
anonyme
Bonjour,

Suggestion :

Application.ActiveWorkbook.Save
Application.Quit

anonyme
-----Message d'origine-----
voila
je ferme mon classeur avec ceci dans Thisworkbook

ThisWorkbook.Close SaveChanges:=True
Application.Quit

mais excel ferme le fichier sans quitter excel
(on dirait qu'il plante...)
quelqu'un voit la solution ?


.



Avatar
Auguste VIEIRA de RESENDE
merci à "anonyme", apparemment c'est la bonne solution

Application.ActiveWorkbook.Save
Application.Quit



"anonyme" a écrit dans le message
news: 03d201c3db9d$4ecfb750$
Bonjour,

Suggestion :

Application.ActiveWorkbook.Save
Application.Quit

anonyme
-----Message d'origine-----
voila
je ferme mon classeur avec ceci dans Thisworkbook

ThisWorkbook.Close SaveChanges:=True
Application.Quit

mais excel ferme le fichier sans quitter excel
(on dirait qu'il plante...)
quelqu'un voit la solution ?


.





Avatar
Michel Pierron
C'est pareil avec
ThisWorkbook.Save
Application.Quit

Dans ta solution initiale, tu fermes le classeur; l'instruction suivante ne
peut donc pas être exécutée.
MP

"Auguste VIEIRA de RESENDE" a écrit dans le message de
news:%
merci à "anonyme", apparemment c'est la bonne solution

Application.ActiveWorkbook.Save
Application.Quit



"anonyme" a écrit dans le message
news: 03d201c3db9d$4ecfb750$
Bonjour,

Suggestion :

Application.ActiveWorkbook.Save
Application.Quit

anonyme
-----Message d'origine-----
voila
je ferme mon classeur avec ceci dans Thisworkbook

ThisWorkbook.Close SaveChanges:=True
Application.Quit

mais excel ferme le fichier sans quitter excel
(on dirait qu'il plante...)
quelqu'un voit la solution ?


.