Bonjour à vous deux.
Je prends la liberté de répondre parce qe j'ai eu un pb pour fermer tous les classeurs il y a quelques temps.
Pour ouvrir plusieurs classeur, Thauthème t'a répondu, il suffit de mettre les noms des fichiers avec leurs path. Pour les refermer, il faut le faire dans l'ordre inverse. C'est assez curieux.
Private Sub Workbook_Open()
Dim i As Integer
Workbooks.Open Filename:="d:\dossiers\dossier1\classeur1.xlsx"
Workbooks.Open Filename:="d:\dossiers\dossier2\classeur2.xlsx"
Workbooks.Open Filename:="d:\dossiers\dossier3\dossier31\classeur31.xlsx"
MsgBox "Classeurs ouverts"
For i = Workbooks.Count To 2 Step -1
Workbooks(i).Close SaveChanges:=True ' ou False selon le besoin
Next i
MsgBox "Classeurs fermés"
End Sub
Curieusement, si on tape For i = 2 to Workbooks.Count, donc dans l'ordre croissant d'ouverture, on va avoir une erreur 9 ("indice n'appartenant pas à la sélection").
Dans l'exemple ci-dessus j'ai mis 2 pour garder le classeur maître ouvert. Il faudrait mettre 1 pour le fermer, ce qui ne ferme pas Excel.