Fermeture de fichier

Bonjour

J'ai un fichier que je ferme par macro.

J'utilise:

        Application.EnableEvents = False
        ActiveWorkbook.Save
        ActiveWorkbook.Close

sauf que lorsque le classeur se ferme il me reste une fenêtre Excel avec le bandeau grisé que je doit fermer par la croix en haut à droite. (sauf si un autre classeur est ouvert, à ce moment la fermeture de classeur concerné est "propre")

je pourrais utiliser

application.quit

mais TOUS les classeurs vont se fermer, alors que je ne le veux pas , je veux juste fermer UN classeur.

Y a-t-il une solution ?

Merci de votre aide.

Alain

Bonsoir

Et vous devez enregistrer tous les classeurs avant fermeture ??

Cordialement

Bonjour Dan

je ne comprends pas votre question.

Je veux fermer mon classeur,. Si j'utilise "quit" cela va TOUT fermer.

Cdt

Alain

Re

Essayez avec ce code

Sub tes()
ThisWorkbook.Save
If Application.Workbooks.Count = 1 Then
    Application.Quit
    Else: ThisWorkbook.Close
End If
End Sub

A noter tout de même que Application.quit, c'est un peu fermer en "dur" !

Même si cela fonctionne j'aime pas trop utiliser cette instruction

Cordialement

ça à l'air de marcher !!

merci pour ton aide Dan

Bonnes fêtes à tous

Alain

Bonjour

Tant mieux. Passez également de bonnes fêtes

Je cloture le fil (vous avez oublié... )

Cordialement