Fermeture excel

[Mathieu]

Bonjour,

Sur la feuil2 de mon classeur, j' ai mis un bouton de commande qui permet de revenir sur la feuil accueil , de sauvegarder et de quitter excel.
Mais quand je clique dessus, il revient bien en feuil accueil, il sauvegarde le classeur, mais il ne ferme pas excel. Seul le classeur se ferme.
J' ai mis le code suivant dans le bouton :

Private Sub CommandButton4_Click()
Application.ScreenUpdating = False
For Each sh In Sheets
If sh.Name = "ACCUEIL" Then
sh.Visible = True
Else
sh.Visible = False
End If
Next sh
ActiveCell.Select
Application.ScreenUpdating = True
ActiveWorkbook.Close savechanges:=True
Application.Quit

End Sub

Auriez-vous une idée ?

Merci.

 

[patrick C]

Bonsoir Mathieu

essaie ça, tout simplement

ActiveWorkbook.Save
Application.Quit

c'est peut être parce que tu fermes l'application avant de quitter excel que ça n'execute pas ça jusqu'au bout

 

[Mathieu]

Bonsoir Patrick,

Merci pour ta réponse mais ça ne fonctionne pas : erreur d' exécution 424.
C'est un classeur compliqué où à partir d' une page d' accueil, on a 2 boutons qui permettent de n' afficher que certaines feuilles.

A plus. Mathieu.

 

[emg]

Bonsoir Mathieu, Patrick

Mathieu essai cette procédure pour voir

Sub EnregistreXlsQuit()
'Enregistre le fichier
Application.DisplayAlerts = False
ThisWorkbook.SaveAs FileFormat:=xlNormal
Application.DisplayAlerts = True
'Ferme Excel en appliquant la méthode Quit sur l'objet Application.
ThisWorkbook.Application.Quit
End Sub

@+ Gérard

 

[Mathieu]

Bonsoir emq,

Apparemment ça ne fonctionne pas non plus. Pour plus de clarté, je joins le mode de fonctionnement du classeur.

Merci. A plus. Mathieu.

 

[emg]

Re Mathieu

Bon j'ai mis en place la procédure précedente regarde pour moi tout fonctionne correctement

@+ Gérard

 

[Mathieu]

Gérard,

Je viens d' essayer, mais chez moi lorsque je clique sur le bouton accueil, en feuil2 , ça ferme le classeur au lieu d' aller en feuil accueil et je me demande si ça enregistre car sur la feuil2 j' avais créé un bouton que je ne trouve plus lorsque j' ouvre de nouveau le classeur.

Je voulais revenir en feuil accueil avant de sauvegarder et fermer pour que lorsqu'on ouvre de nouveau le classeur on soit en feuil accueil.

Merci. Aplus . Mathieu.

 

[emg]

Re Re Mathieu,

Ouuups! désolé ce n'était pas la bonne modif voici la bonne

Gérard

 

[Mathieu]

Désolé Gérard, c' est pareil à cause de ça : Call EnregistreXls, qui vient se mettre dans le code du bouton accueil.
Si je l' enlève, le bouton refonctionne normalement mais il vient s' y replacer à chaque redémarrage.

@ Plus. Mathieu.