Dans la terminologie Microsoft, un dossier est un répertoire depuis 1995.
On accède à un dossier, on peut ouvrir ou fermer tous les fichiers d'un dossier, mais on ne peut ni ouvrir ni fermer un dossier. Pouvez-vous reformuler votre besoin ?
S'il s'agit de refermer tous les classeurs ouverts du dossier contenant le fichier f.xlsm vous pouvez essayer ceci :
Option Explicit
Sub Macro1()
Dim fichier As String, dossier As String
Dim nbClasseurs As Integer, i As Integer
Dim wB As Workbook
dossier = ThisWorkbook.Path ' FileAct ou autre
fichier = ThisWorkbook.Name
nbClasseurs = Application.Workbooks.Count
For i = nbClasseurs To 1 Step -1
If Workbooks(i).Name <> fichier And Workbooks(i).Path = dossier Then
Set wB = Application.Workbooks(i)
wB.Close SaveChanges:=False
End If
Next i
End Sub