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
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
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" <ssteph@skynet.be> a écrit dans le message de news:
u1oaSyGFFHA.3840@tk2msftngp13.phx.gbl...
Bonsoir,
Il y a t'il une macro qui permettrait de fermer mon fichier et également
de
quitter Excel ?
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 ?