Se connecter / S'inscrire
Accueil Forums Questions Forum Excel
Code VBA pour quitter ou fermer excel
Bonjour à tous les XLDnautes
Je cherche un code VBA pouvant me permettre de quitter excel (via un bouton
de UserForm )
Merci d'avance de votre aide
manuelkant
XLDnaute manuelkant, 15 Juin 2008 #1
Nouveau
Inscrit depuis le :
18 Mars 2008
Messages : 28
"J'aime" reçus : 0
Habite à: EBW
Utilise: Excel 2003 (PC)
Re : Code VBA pour quitter ou fermer excel
Peut-être Application.Quit ?
Marcel32, 15 Juin 2008 #2
Marcel32
XLDnaute Accro
Inscrit depuis le :
22 Mai 2008
Messages : 1007
"J'aime" reçus : 27
Utilise: Excel 2013 (PC)
Re : Code VBA pour quitter ou fermer excel
Bonjour,
Tu crée un bouton et tu colle le script:
matrix
Code (Text):
XLDnaute
XLDnaute
Occasionnel Application.Quit
Inscrit depuis le :
23 Janvier 2008
Messages : 322 et voilà!
"J'aime" reçus : 0
Utilise: Excel 2003 (PC)
matrix, 15 Juin 2008 #3
Re : Code VBA pour quitter ou fermer excel
Bonsoir,
Juste pour compléter
Application.quit
kjin Application.DisplayAlerts = False
XLDnaute
Barbatruc
Si la boite de dialogue d'enregistrement n'est pas souhaitée.
Accueil
Inscrit depuis le : ForumsA+ Ressources
19 Juin 2007
kjin
Messages : 7720
"J'aime" reçus : 145 kjin, 15 Juin 2008 #4
Habite à: Montpellier
Utilise: Excel 2000 (PC)
Re : Code VBA pour quitter ou fermer excel
J'ai trouvé sur le site. si cela peut servir à d'autres
pour Sauvegarder tous les fichiers ouverts avant de fermer Excel :
manuelkant Code:
XLDnaute
Nouveau Dim w as WorkBook
For Each w In Application.Workbooks
Inscrit depuis le : w.Save
18 Mars 2008
Next w
Messages : 28
Application.Quit
"J'aime" reçus : 0
Habite à: EBW
Utilise: Excel 2003 (PC) Merci les Gars pour Votre attention et vos bonne Suggestion . Ca marche
Salutations.
Dernière édition: 15 Juin 2008
manuelkant, 15 Juin 2008 #5
Re : Code VBA pour quitter ou fermer excel
Salut,manuelkant,tous le monde
je te conseille d'utiliser le macro Enregistreur le code que tu obtiens associe le a
un Bouton
Cordialement
BERRACHED said, 15 Juin 2008 #6
BERRACHED
said
XLDnaute Accro
Inscrit depuis le :
26 Mars 2007
Messages : 1106
"J'aime" reçus : 1
Habite à:
MOSTAGANEM
Utilise: Excel 2003 (PC)
Re : Code VBA pour quitter ou fermer excel
Accueil ForumsBonjour à tous !!
Ressources
Je reprend ce fil pour solutionner mon problème. Les échanges ici m'ont déja
permis de bien avancer. Malheureusement je souhaite passer par un msgbox
dn35 afin d'avoir le choix : soit d'enregristrer la totalité des fichiers, soit uniquement
XLDnaute
Occasionnel d'enregistrer le classeur en cours soit d'annuler. L'action de quitter est
déclanchée par un bouton placé sur un UF dont voici le code ou du moins un
Inscrit depuis le : début de code.
17 Février 2009
Messages : 364
"J'aime" reçus : 0
Habite à: Code (Text):
Pleine Fougères
Utilise: Excel 2007 (PC) Private Sub CBquitter_Click()
MsgBox("voulez vous sauvegarder toutes les applications et fermer Excel?", vbQuestion, "Avant de p
réponse = MsgBox("voulez vous sauvegarder toutes les applications et fermer Excel?", vbQuestion,
If réponse = vbYes Then For Each Workbook In Application.Workbooks
Workbook.Save
Application.Quit
If réponse = vbNo Then ActiveWorkbook.Saved = True
ActiveWorkbook.Close
End Sub
Lors de la mise en route, le message d'erreur suivant apparait : erreur de
compilation. Un appel de fonction dans la partie gauche de l'affectation doit
renvoyer Variant ou Object.
Et mes maigres connaissances en VBA ne me permettent pas de solutionner le
problème.
Merci d'avance à tous !!!
DN35
dn35, 8 Juillet 2009 #7
Re : Code VBA pour quitter ou fermer excel
Re le fil ...
Pour ceux qui me liront, j'ai fini
après moultes recherches,
dn35 tatônnements et prises de tête
XLDnaute
Occasionnel par trouver ... Comme quoi à
coeur vaillant rien
Inscrit depuis le : d'impossible !
17 Février 2009
Je mets ci dessous le code afin
Messages : 364
de complèter ce fil bien utile
"J'aime" reçus : 0
Habite à:
ma fois !! i
Pleine Fougères
Utilise: Excel 2007 (PC)
Code (Text):
Private Sub CBquitter_Click()
Accueil Forums réponse
Ressources
= MsgBox("voulez vous sauvegarder toutes les applications et fermer Excel ?" & Chr(13) & C
If réponse = vbYes Then
For Each Workbook In Application.Workbooks
Workbook.Save
Next Workbook
Application.Quit
End If
If réponse = vbNo Then
ActiveWorkbook.Save
ActiveWorkbook.Close
End If
If réponse = vbCancel Then
MsgBox ("fermeture fichier abandonné ; les données ne sont pas sauvegardées")
End If
End Sub
dn35, 8 Juillet 2009 #8
(Vous devez être identifié pour pouvoir répondre.)
Partager cette page
Tweeter J’aime Inscription pour voir ce que vos amis aiment.
XenPorta 2 PRO © Jason Axelrod from 8WAYRUN.COM
Rejoignez nous !
Créez des questionnaires avec Microsoft FORMS !
Enfin un outil simple à prendre en main pour créer des questionnaires et sondages dans
Office 365 !
Cela manquait cruellement dans l’offre de Microsoft qui ne disposait jusqu’à présent que
d’Infopath (un outil orienté développeurs permettant de créer des workflows élaborés).
Continuer la lecture...
RESSOURCES EN VEDETTE
ZE BANK CONCOURS DE PRONOSTICS LIGUE
DES CHAMPIONS 2017-2018
Gestion prévisionnelle compte
bancaire, cartes à débit différé & Gestion de votre concours de
budget pronostics Ligue des Champions
ROGUIEZ, 25 Octobre 2017 Tieum78, 14 Septembre 2017
ÉLABORATION ET UTILISATION DE SCRAMBLE 1.0
JEUX DE COULEURS.
Inspiré d'un jeu de lettres bien
Tableaux de couleurs paramétrées connu qui se joue avec 102 pions
en vue de mises en formes
soignées.
Dranreb, 14 Septembre 2017 carlvb, 29 Août 2017
Accueil Forums
CAVE À VINSRessources
Cave à vins (sans macro)
piga25, 31 Juillet 2017
NOUVEAUX MESSAGES
XL 2010 CELLULE CLIGNOTANTE
Dernier: Softmama, il y a 23 minutes
Forum Excel
XL 2016 Problème d'ouverture d'hyperlien via macro
Dernier: zebanx, il y a 58 minutes
Forum Excel
XL 2016 Rotation
Dernier: Modeste geedee, Aujourd'hui à 21:19
Forum Excel
Chercher une valeur dans un classeur et ajouter la ligne.
Dernier: taze33, Aujourd'hui à 21:13
Forum Excel
Transposition spécifique
Dernier: anber, Aujourd'hui à 21:08
Forum Excel
PARTAGER CETTE PAGE
Tweeter
J’aime 0
Accueil Forums Questions Forum Excel
LA RÉDACTION
Nous sommes un site communautaire indépendant dont l'objectif est de partager des compétences et expériences
au sujet du tableur Excel de Microsoft. La rubrique "Ressources" propose près d'un millier de fichiers à télécharger.
Accueil Forums Ressources
LIENS PARTENAIRES
Calcul Prêt Immobilier
Apprentissage virtuel
RUBRIQUES DU SITE
Accueil
Forums
Ressources
Membres
NOUS CONTACTER
XLD SOLUTIONS, 33, quai Arloing CS 10306, 69337 Lyon Cedex 09 ,France
[email protected]
www.excel-downloads.com
Forum software by XenForo™ ©2010-2016 XenForo Ltd.
XenForo Add-ons & XenForo Styles ™ © 2012-2017 Brivium LLC.
Français - Source Règlement Nous contacter Aide
