Application.quit

[Temjeh]

Bonjour et merci d'avance

ActiveWorkbook.Close savechanges:=False
Application.quit

...
Application.quit ne semble plus fonctionner avec les dernière version d'excel.
La fenêtre excel reste toujours visible

Avez-vous un autre bout de code?

Merci de votre aide

temjeh

 

[Temjeh]

Re : Application.quit

Ok désolé

Si j'y met application.quit avant, ca fonctionne

Temjeh

 

[Roland_M]

Re : Application.quit

bonsoir,

effectivement ! exemple:

Application.DisplayAlerts = False
'fermer tous les classeurs
Dim Wk As Workbook
For Each Wk In Application.Workbooks
 If Wk.Name <> ThisWorkbook.Name Then Wk.Close False 'sinon True pour sauvegarder
Next
Application.quit
'séparé si on veut sauvegarder, ou pas, indépendemment des autres !?
ThisWorkbook.Close False 'sinon True pour sauvegarder
Application.DisplayAlerts = True

 

[job75]

Re : Application.quit

Bonsoir Temjeh, Roland_M,

Le code très classique :

ThisWorkbook.Saved = True
If Workbooks.Count = 1 Then Application.Quit Else ThisWorkbook.Close

A+

 

[Temjeh]

Re : Application.quit

Merci à vous deux

Je croyais que c'était ma version d'office

A+

Temjeh