XL 2019 Fermer tous les répertoires ouverts depuis mon fichier actif

[KTM]

Bonsoir chers tous
Je voudrais depuis mon fichier , fermer tous les répertoires ouverts sauf celui nommé "FileAct" qui contient mon fichier.
J'ai procédé comme suit mais je bute sur une erreur.
Prière corriger mon code.
Merci

Sub FermerDossiers()
Dim i As Long
With CreateObject("Shell.Application").Windows
    For i = .Count - 1 To 0 Step -1
        [B]If .Item(i).locationname <> "FileAct" Then[/B] .Item(i).Quit
    Next i
End With
End Sub

 

[job75]

Bonsoir KTM,

Jamais vu ce genre de code... Mais il manque peut-être un point entre location et name...

A+

 

[KTM]

Bonsoir KTM,

Jamais vu ce genre de code... Mais il manque peut-être un point entre location et name...

A+

Merci Job75
Mais le problème demeure. Peut être une autre piste plus digeste ?

 

[patricktoulon]

Bonsoir
c'est un object que j'utilise souvent pour lister les fenêtre explorer et IE

Option Compare Text
Sub FermerDossiers()
    Dim i As Long, fenetre As Object
    With CreateObject("Shell.Application")
        For Each fenetre In .Windows
            If fenetre.LocationName Like "*FilAct*" Then fenetre.Quit
        Next
    End With
End Sub

 

[KTM]

Bonsoir
c'est un object que j'utilise souvent pour lister les fenêtre explorer et IE

Option Compare Text
Sub FermerDossiers()
    Dim i As Long, fenetre As Object
    With CreateObject("Shell.Application")
        For Each fenetre In .Windows
            If fenetre.LocationName Like "*FilAct*" Then fenetre.Quit
        Next
    End With
End Sub

Merci.
Jai testé mais il se passe rien apparemment! ca fonctionne pas!

 

[patricktoulon]

Bonjour @KTM
j'ai bien évidemment testé avant de te le donner et ça fonctionne très bien
conclusion:
soit tu a un soucis avec cette librairie
soit le nom ou la partie de nom n'est pas concordante

 

[KTM]

Bonjour @KTM
j'ai bien évidemment testé avant de te le donner et ça fonctionne très bien
conclusion:
soit tu a un soucis avec cette librairie
soit le nom ou la partie de nom n'est pas concordante
Regarde la pièce jointe 1113752

Merci patricktoulon
Il me faudra donc régler cet autre problème de "librairie" ou de "nom ou la partie de nom pas concordante" .

 

[patricktoulon]

re
ou vre tes dossiers dans une ou des fenêtres
teste ceci pour voir et regarde si tes fenêtres de dossier sont bien listée

Sub test()
    Getfentre
End Sub

Public Function Getfentre(Optional url As String = "") As Object
    Dim objShell As Object, obj As Object
    Set objShell = CreateObject("shell.application")
    For Each obj In objShell.Windows
        'test de la presence de IE dans les treads
        Debug.Print "******************"
        Debug.Print "type de document   :" & TypeName(obj)
        Debug.Print "type de document   :" & TypeName(obj.document)
        Debug.Print "fenetre :" & obj.Name
        Debug.Print "titre :" & obj.locationNAME
        Debug.Print "url :" & obj.locationurl

    Next obj
End Function