OVH Cloud OVH Cloud

Macro pour fermer Excel

2 réponses
Avatar
Steph
Bonsoir,

Il y a t'il une macro qui permettrait de fermer mon fichier et également de
quitter Excel ?


Merci

Steph

2 réponses

Avatar
Philippe.R
Bonsoir,

Sans sauvegarder le fichier et sans alerte :

Sub cfini()
Application.DisplayAlerts = False
Application.Quit
End Sub

--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Steph" a écrit dans le message de news:
Bonsoir,

Il y a t'il une macro qui permettrait de fermer mon fichier et également de
quitter Excel ?


Merci

Steph




Avatar
ChrisV
Bonjour Steph,

Tu ne précises pas si les modifications apportées aux classeurs doivent être
sauvegardées ou pas...
En partant du principe que oui... (sinon relance)

Sub quitE()
ActiveWorkbook.Save
If Workbooks.Count > 1 Then
Application.DisplayAlerts = False
ActiveWorkbook.Close
Else
With Application
.DisplayAlerts = False
.Quit
End With
End If
End Sub


ChrisV


"Steph" a écrit dans le message de news:

Bonsoir,

Il y a t'il une macro qui permettrait de fermer mon fichier et également
de
quitter Excel ?


Merci

Steph