Commande pour fermer excel ? VBA

Commande pour fermer excel ? VBA - VB/VBA/VBS - Programmation

Marsh Posté le 14-06-2005 à 18:26:19    

Voila dans mon interface j aimerais qu une fois avoir cliquer sur le bouton quitter ca quitte mon application donc "end" mais aussi excel et je ne trouve pas la commande pour pouvoir fermer egalement excel!
 
Merci pour votre aide!

Reply

Marsh Posté le 14-06-2005 à 18:26:19   

Reply

Marsh Posté le 14-06-2005 à 18:32:40    

Salut
 
 
En VBA alt F4 (raccourci clavier pour fermer)donne:
 
SendKeys ("%{F4}" )
à coller dans ton bouton
 
 
 
Et met ça dans "thisworkbook" si tu ne veux pas enregistrer le fichier:
 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = False
End Sub


Message édité par jerome-gmc le 14-06-2005 à 18:33:24
Reply

Marsh Posté le 14-06-2005 à 18:58:37    

Ca ne marche pas!Ca me laisse toujours excel en arriere plan!
 
end
SendKeys ("%{F4}" )
 
Et je trouve toujours pas grrrr

Reply

Marsh Posté le 14-06-2005 à 19:00:20    


Une fois SendKeys ("%{F4}" ) pour fermer ton userform et une fois pour fermer excel (il faut le mettre avant le "end" )

Reply

Marsh Posté le 14-06-2005 à 19:12:08    

Windows.Application.Quit

Reply

Marsh Posté le 15-06-2005 à 11:02:58    

Ca me ferme bien mon application mais excel reste toujours helas!

Reply

Marsh Posté le 15-06-2005 à 11:05:05    

Appexcel.Application.Quit

Reply

Marsh Posté le 15-06-2005 à 14:10:42    

Marche toujours pas :s

Reply

Marsh Posté le 15-06-2005 à 14:18:29    

Il faut répeter le code autant de fois que tu as d'applications ouvertes


Message édité par jerome-gmc le 15-06-2005 à 14:19:36
Reply

Marsh Posté le 15-06-2005 à 14:41:51    

Ca marche!
Merci a vous tous pour votre aide !


Message édité par raised le 15-06-2005 à 14:42:15
Reply

Marsh Posté le 15-06-2005 à 14:41:51   

Reply

Marsh Posté le 14-09-2005 à 10:16:13    

'Quitte Excel
Application.Quit
   
'Libère la mémoire
Set ApplicationExcel = Nothing

Reply

Sujets relatifs:

Leave a Replay

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