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

KTM · 21 Août 2021

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

VB:

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 · 21 Août 2021

Bonsoir KTM,

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

A+

KTM · 21 Août 2021

job75 à dit:
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 · 22 Août 2021

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

VB:

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 · 22 Août 2021

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

VB:

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 · 22 Août 2021

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 · 22 Août 2021

patricktoulon à dit:
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 · 22 Août 2021

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

VB:

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

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

KTM

XLDnaute Impliqué

job75

XLDnaute Barbatruc

KTM

XLDnaute Impliqué

patricktoulon

XLDnaute Barbatruc

KTM

XLDnaute Impliqué

patricktoulon

XLDnaute Barbatruc

KTM

XLDnaute Impliqué

patricktoulon

XLDnaute Barbatruc

Discussions similaires