Code VBA pour quitter ou fermer excel

[manuelkant]

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

 

[TooFatBoy]

Re : Code VBA pour quitter ou fermer excel

Peut-être Application.Quit ?

 

[matrix]

Re : Code VBA pour quitter ou fermer excel

Bonjour,

Tu crée un bouton et tu colle le script:

Application.Quit

et voilà!

 

[kjin]

Re : Code VBA pour quitter ou fermer excel

Bonsoir,
Juste pour compléter

Application.quit
Application.DisplayAlerts = False

Si la boite de dialogue d'enregistrement n'est pas souhaitée.
A+
kjin

 

[manuelkant]

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 :

Code:
Dim w as WorkBook
For Each w In Application.Workbooks
w.Save
Next w
Application.Quit

Merci les Gars pour Votre attention et vos bonne Suggestion . Ca marche

Salutations.

 

[BERRACHED said]

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

 

[dn35]

Re : Code VBA pour quitter ou fermer excel

Bonjour à tous !!

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 afin d'avoir le choix : soit d'enregristrer la totalité des fichiers, soit uniquement 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 début de code.

Private Sub CBquitter_Click()
MsgBox("voulez vous sauvegarder toutes les applications et fermer Excel?", vbQuestion, "Avant de partir ...") = vbYes
réponse = MsgBox("voulez vous sauvegarder toutes les applications et fermer Excel?", vbQuestion, "Avant de partir ...")
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]

Re : Code VBA pour quitter ou fermer excel

Re le fil ...

Pour ceux qui me liront, j'ai fini après moultes recherches, tatônnements et prises de tête par trouver ... Comme quoi à coeur vaillant rien d'impossible !
Je mets ci dessous le code afin de complèter ce fil bien utile ma fois !!

Private Sub CBquitter_Click()

réponse = MsgBox("voulez vous sauvegarder toutes les applications et fermer Excel ?" & Chr(13) & Chr(10) & "    OUI pour quitter ; NON pour fermer le classeur en cours", vbYesNoCancel, "Avant de partir ...")
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

 

[racalbuto]

bonjour a tous
j ai une userform avec 5 boutons dédies a l ouverture de classeurs Excel mais quand je ferme cette userform mes classeurs restent ouvert alors que je voudrai que tous les classeurs se ferment. pouvez vous m'aider? merci