Sous VBA Fermeture du classeur

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Sous VBA Fermeture du classeur

patb26

bonsoir:
Ce forum est vraiment super merci encore:
Avec un bouton sous VBA je souhaite fermer le classeur ouvert mais pas Excel.

Private Sub CommandButton5_Click()

End Sub

Merci

Publicité

juju2k

Utilise l'enregistreur de macro pour voir ce que ça donne :

Tu appuies sur le bouton Enregistrer (comme sur un magnéto) et tu fermes le classeur. Puis tu appuies sur Arrêter. Ensuite va faire un tour dans l'éditeur de code. Tu y verras le code qui correspond aux actions que tu viens d'enregistrer

N'hésite pas à poster le résultat pour en faire profiter tout le monde !

patb26

Non pour cette macro on ne peut pas faire avec la fonction de l'enregistreur car après avoir fermé le classeur l'enregistreur c'est fermer aussi et la macro ne marche pas.
Il doit exister une commande directe.
Merci quand même.

olivthill

Je n'ai pas essayé, mais il parait qu'il faut faire

' Pour fermer le classeur actif
ActiveWorkbook.Close savechanges:=False

' Pour fermer le fichier .xls
Workbooks("monfichier.xls" ).Close savechanges:=False

' Pour fermer le classeur qui contient le code en cours
ThisWorkbook.Close savechanges:=False

' Pour quitter Excel complétement
Application.Quit

patb26

Super comme toujours :
Donc pour fermer un calsseur il faut faire:

ActiveWorkbook.Close savechanges:=False

et encore Merci.

pfg60

Bonjour à tous,

Je reprends ce très ancien fil car j'ai un problème.

En effet, je souhaite que lorsque l'on appui sur le bouton "Enregistrer & Quitter" de mon userform le fichier s'enregistre puis ferme Excel.
Or cela me donne la boite de dialogue classique d'Excel : Souhaitez-vous enregistrer les modifications...".
Si je clique sur "Annuler" et que je re-clique sur mon boutton "Enregistrer & Quitter" du userform, là le code fonctionne à merveille.

D'où vient le problème ? [:pingouino dei]

Voici mon code :

Code :

Private Sub CommandButton28_Click()
' Quitter & Enregistrer
Sheets("Autres médias sortants - mois" ).Select
ActiveSheet.Protect
Sheets("Autres médias sortants - trimes" ).Select
ActiveSheet.Protect
Sheets("Autres médias sortants - mois" ).Select
Range("A1" ).Select
UserForm1.Hide
ActiveWorkbook.Save
Application.Quit
End Sub

Message édité par pfg60 le 12-06-2014 à 16:26:38

pfg60

Re-Bonjour à tous,

Je crois que je viens de trouver le code.

Sub test()

Application.DisplayAlerts = False
Application.Quit

End Sub

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Sous VBA Fermeture du classeur

Sujets relatifs
[VBA/SQL] Passer des instructions SQL (et pkunzip) en VBA	[VBA][Access] Faire une requête jointure sur un recordset et une table
Ouvrir un fichier word depuis VBA	[Résolu][VBA][Access] Appel de proc stock SQL SERVER
[Résolu[VBA][Access] Remplissage d'1 liste déroulante avec 1 Recordset	[Résolu][VBA][Excel] Insertion d'une formule, le texte est modifié
[VBA] Passer un paramêtre dans la fonction	Code fermeture Userform
Code VBA d'importation de module	fermeture d'un classeur en VBA
Plus de sujets relatifs à : Sous VBA Fermeture du classeur

Page générée en 0.048 secondes