Fermer tous les dossiers ouverts sauf le Dossier "FileAct"

Bonjour chers tous

Je voudrais depuis mon fichier "F", fermer tous les dossiers ouverts sauf le dossier "FileAct" qui contient mon Fichier "F".

Merci !!!

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

Bonjour KTM, Salut Optimix,

Au cas où il s'agit bien de dossiers windows à fermer, voici un essai avec ce code :

Sub FermerDossiers()
with createobject("Shell.Application").windows
    for i = .count - 1 to 0 step - 1
        if .item(i).locationname <> "FileAct" then .item(i).quit
    next i
end with
end sub

Cdlt,

Merci mais une erreur d'exécution '5' : Argument ou appel de procédure incorrect

Sub FermerDossiers()

with createobject("Shell.Application").windows

for i = .count - 1 to 0 step - 1

if .item(i).locationname <> "FileAct" then .item(i).quit

next i

end with

end sub

Bonjour,

C'est bizarre, ça fonctionne très bien chez moi. Vous êtes bien sous Windows ?

Cdlt,

Bon, pas de retour, je referme le tiroir. Bye.

Oui sous Windows Merci!!!

Optimix a écrit :

Bon, pas de retour, je referme le tiroir. Bye.

Bonsoir,

Apparemment ça l'a hautement peiné...