Fermeture classeurs Excel par macro

A l'ouverture de mon dossier "accueil.xlsm", j'ouvre par VBA , 3 classeurs excel (ce nombre est susceptible d’augmenter) : robert.xlsx, jean.xlsx, adrien.xlsx dans lesquels j'effectue diverses modifications (tous ces classeurs sont situés dans un même fichier y compris "accueil").

J'ai créé un bouton auquel je voudrai affecter une macro pour :

1) enregistrer les modifications dans chaque fichier

2) sauvegarder tous les fichiers excel ouverts (avec ou sans macro)

3) fermer lesdits fichiers

4) fermer l'application excel

j'ai essayé avec ce bout de VBA mais déjà là j'ai des problèmes :

Sub fermetout()

For Each w In Application.Workbooks

w.Save

Next w

Application.Quit

End Sub

avec ce code,malheureusement, la boite de dialogue microsoft Excel : enregistrer....enregistrer tout....ne pas enregistrer.....annuler, s'ouvre et je dois intervenir manuellement.

Est-il possible d'automatiser tout le processus

Merci pour votre aide, ce n'est pas faute d'avoir essayé.

Slt Rob,

change :

w.Save

avec:

w.Close SaveChanges:=True

et essaie

merci pour ta réponse mais après essai cela ne ferme que le classeur actif (accueil.xlsm) et s’arrête ......

il faut ajouter un truc du genre dans ta Loop

If w.Name <> ThisWorkbook.Name Then
   .Close SaveChanges:=True
End If

j'ai beau essayer, je n'y arrive toujours pas.

Merci tout de même, je vais persévérer

quelqu'un peut-il venir à mon aide?

je suis toujours dans l'impasse, d'avance merci.

Slt,

Sub SaveAndCloseAll()
Dim w As Workbook
    For Each w In Workbooks
        w.Close SaveChanges:=True
    Next w
End Sub

Après de nombreux essais et votre aide, je suis arrivé à un code qui fonctionne chez moi :

Sub SaveAndCloseAll()

' Pour fermer le fichier .xls

Workbooks("robert.xlsx").Close savechanges:=True

Workbooks("jean.xlsx").Close savechanges:=True

Workbooks("adrien.xlsx").Close savechanges:=True

' Pour fermer le classeur qui contient le code en cours

ThisWorkbook.Save

Application.Visible = True

Application.Quit

End Sub

Merci aux participants.

Problème résolu.