Fermer dossier windows

Bonsoir le forum,

Je cherche un bout de code qui me permet de fermer un dossier (Windows) via vba.

Merci d'avance

A+

Bonjour

Sous excel

Application.DisplayAlerts = False' enlève l'alerte de sauvegarde des modifications

Windows(vfich2).Activate

ActiveWorkbook.Close' fermer fichier

Application.DisplayAlerts = True' réactive l'alerte

Cordialement

FINDRH

Si j'ai bien compris:

Active la reference microsoft shell controls and automation

Puis :

Public Sub FermeDossier()
    Dim objShell As New Shell32.Shell
    For Each w In objShell.Windows
        If w.LocationName = "Nomdudossier" Then w.Quit
    Next
    Set objShell = Nothing
End Sub