Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel quitter et fermer Excel

quitter et fermer Excel

2 réponses
Avatar
Gerard
Bonsoir
j'ai un bouton quitter avec la proc suivante

Private Sub CmdQuitter_Click()
Application.ScreenUpdating = False
Range("F14").Value = ""
Sheets("AlerteMacros").Visible = True
Sheets("CONTACTS").Visible = False
Sheets("FichePrint").Visible = False
Sheets("ACCUEIL").Visible = False

ThisWorkbook.Close SaveChanges:=True

Application.ScreenUpdating = True
Windows.Application.Quit
End Sub

le classeur se ferme bien , mais pas excel, merci de m'eclairer

gege
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Kamel
En fait ta procédure ferme ton classeur avant de fermer l'application avec
cette commande: ThisWorkbook.Close SaveChanges:=True.
Il vaudrait mieux sauver le classeur et fermer l'application Excel, cela
fermera le classeur en meme tps.

Private Sub CmdQuitter_Click()
Application.ScreenUpdating = False
Range("F14").Value = ""
Sheets("AlerteMacros").Visible = True
Sheets("CONTACTS").Visible = False
Sheets("FichePrint").Visible = False
Sheets("ACCUEIL").Visible = False

ThisWorkbook.Save
Application.Quit

Application.ScreenUpdating = True
End Sub


"Gerard" a écrit dans le message de news:
4324895f$0$27425$
Bonsoir
j'ai un bouton quitter avec la proc suivante

Private Sub CmdQuitter_Click()
Application.ScreenUpdating = False
Range("F14").Value = ""
Sheets("AlerteMacros").Visible = True
Sheets("CONTACTS").Visible = False
Sheets("FichePrint").Visible = False
Sheets("ACCUEIL").Visible = False

ThisWorkbook.Close SaveChanges:=True

Application.ScreenUpdating = True
Windows.Application.Quit
End Sub

le classeur se ferme bien , mais pas excel, merci de m'eclairer

gege




Avatar
Philippe Noss
Bonsoir
Il faudrait plutot terminer par
ThisWorkbook.save
Windows.Application.Quit

Philippe NOSS
http://www.exefac.com/
http://nossphil.perso.cegetel.net/exoutils.html