High-Tech Santé Médecine Droit-Finances

Auto-Entrepreneur

Comment faire ?

Rechercher : dans
Par :

Code VBA pour fermer un classeur et quitter

Dernière réponse le 31 jan 2009 à 14:29:36 purspirit, le 30 jan 2009 à 15:32:18 
 Signaler ce message aux modérateurs

Bonjour,
comment faire(le code) pour fermer toutes les feuilles excel et quitter l'application?

Merci bcp

Configuration: Windows XP
Firefox 3.1

Meilleures réponses pour « code VBA pour fermer un classeur et quitter » dans :
VBA Ajouter commandButton et le code qui va avec VoirCode relativement simple et qui ne nécessite pas d'explication complémentaire. Coller ces deux sub dans un module général (Module1 par exemple). Sub CréerBouton() Dim Obj As Object Dim Code As String Sheets("Feuil1").Select 'crée le...
Posez votre question Répondre

1

guy2mars, le 30 jan 2009 à 15:44:46

For Each w In Application.Workbooks
w.Save
Next w
Application.Quit

   
Répondre à guy2mars

2

purspirit, le 30 jan 2009 à 16:55:49

Salut guy2mars,
ça marche pas, j'ai essayer! je sais pas exactement où se trouve l'erreur. Voulez vous bien me re écrire le code avec + d'explication(càd désigner le non du classeur exactement)?
Merci

   
Répondre à purspirit

3

guy2mars, le 30 jan 2009 à 19:20:15

Slt

tu enregistres une feuille macro (par defaut excel met macro1)

sub macro1()
For Each worksheet In Application.Workbooks 'tu travailles dans le dossier existant et pour chaque worksheet
worksheet.Save 'la worksheet est sauvegardée
Next worksheet 'tu passes a la 2e worksheet
Application.Quit 'tu quittes excel

end sub

ca marche aussi sans ecrire worksheet mais seulement w
tu dois associer une icone ou un objet a ta macro
et ca roule

   
Répondre à guy2mars

4

 purspirit, le 31 jan 2009 à 14:29:36

Merci infiniment.

   
Répondre à purspirit
Posez votre question Répondre
Ils ont besoin de votre aide