Sous VBA Fermeture du classeur

Sous VBA Fermeture du classeur - VB/VBA/VBS - Programmation

Marsh Posté le 10-04-2006 à 23:44:19    

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

Reply

Marsh Posté le 10-04-2006 à 23:44:19   

Reply

Marsh Posté le 10-04-2006 à 23:49:54    

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 ! :)

Reply

Marsh Posté le 10-04-2006 à 23:56:56    

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.
 

Reply

Marsh Posté le 11-04-2006 à 00:17:23    

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

Reply

Marsh Posté le 11-04-2006 à 07:39:13    

Super comme toujours :
Donc pour fermer un calsseur il faut faire:
 
ActiveWorkbook.Close savechanges:=False  
 
et encore Merci.

Reply

Marsh Posté le 12-06-2014 à 16:04:00    

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 :
  1. Private Sub CommandButton28_Click()
  2. ' Quitter & Enregistrer
  3.    
  4.     Sheets("Autres médias sortants - mois" ).Select
  5.     ActiveSheet.Protect
  6.    
  7.     Sheets("Autres médias sortants - trimes" ).Select
  8.     ActiveSheet.Protect
  9.    
  10.     Sheets("Autres médias sortants - mois" ).Select
  11.     Range("A1" ).Select
  12.    
  13.     UserForm1.Hide
  14.     ActiveWorkbook.Save
  15.    
  16.     Application.Quit
  18. End Sub


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

Marsh Posté le 12-06-2014 à 16:26:21    

Re-Bonjour à tous,
 
Je crois que je viens de trouver le code.

Sub test()
 
Application.DisplayAlerts = False
Application.Quit
 
End Sub


Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed