état d'un répertoire depuis une macro vba excel

Version imprimable

27/11/2015, 13h42
sebù des bois

état d'un répertoire depuis une macro vba excel

Bonjour à tous
J'ai un petit problème relatifs à la gestion des répertoires à partir d'une macro vba et j'ai besoin de votre aide.
Ca fait un petit moment que je tourne en rond sur le net et je ne trouve que des conseils relatifs à la gestion de fichiers et/ou de classeurs, mais rien sur les répertoires... ou du moins pas ce que je cherche.

A la fin d'un sub, j'ouvre un répertoire dont je connais le nom avec ça:

Code:

Shell "explorer " & chemin_repertoire, vbNormalFocus

tout roule jusqu'ici.

Mon problème c'est que chaque fois que je lance la macro, un nouveau répertoire identique s'ouvre dans la barre Windows.

Je souhaiterais trouver le moyen de contrôler si le répertoire est déjà "actif" dans la barre Windows et mettre mon focus dessus s'il y est (l'ouvrir en plein écran).
S'il n'est pas dans la barre Windows, je peux simplement utiliser le code ci-dessus pour l'ouvrir.

En gros:
- comment vérifier qu'un répertoire est déjà dans la barre Windows (du fond de l'écran)?
- comment faire en sorte que le focus se mette sur un répertoire actif dans la barre Windows (et donc ouvrir le répertoire à l'écran) sans qu'un répertoire identique ne s'ouvre et duplique le répertoire actif?

je vous remercie déjà pour votre aide.

cordialement

seb

Bonjour.

Ceci le fait en utilisant une fenêtre de commande cependant.
Code:

1 2 'Ne pas ouvrir un repertoire identique Shell "cmd /C start """" /normal """ & chemin_repert & """", vbNormalFocus

Bonjour,

Une petite fonction qui cherche si l'explorateur est ouvert sur le dossier voulu. La fonction retourne un tableau qui permet de savoir si l'explorateur est ouvert et si il est ouvert sur le dossier, si il est ouvert mais pas sur le dossier un message demande si il doit être ouvert, si l'explorateur n'est pas ouvert dans ce cas, il est ouvert sur le dossier (sans message !) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
 
Function DossierOuvert(Chemin) As Boolean()
 
    Dim AppShell As Object
    Dim Fenetre As Object
    Dim Tbl(1 To 2) As Boolean
 
    Set AppShell = CreateObject("Shell.Application")
 
    For Each Fenetre In AppShell.Windows
 
        If Fenetre.Name = "Explorateur Windows" Then
 
            Tbl(1) = True
 
            If Fenetre.Document.Folder.Self.Path = Chemin Then
 
                Tbl(2) = True
 
            End If
 
        End If
 
    Next Fenetre
 
    DossierOuvert = Tbl()
 
End Function
 
Sub Test()
 
    Dim Tablo() As Boolean
    Dim chemin_repertoire As String
 
    'adapter le chemin mais sans l'anti-slash de fin !
    chemin_repertoire = "C\Mon dossier_1\Mon dossier_2"
 
    Tablo() = DossierOuvert(chemin_repertoire)
 
    If Tablo(1) = Tablo(2) = True Then
 
        MsgBox "L'explorateur est déjà ouvert sur le dossier '" & chemin_repertoire & "'!"
 
    ElseIf Tablo(1) = True And Tablo(2) = False Then
 
        If MsgBox("L'explorateur est ouvert mais pas sur le dossier '" & chemin_repertoire & "'!" & _
                  vbCrLf & _
                  "Voulez-vous l'ouvrir sur le dossier ?", vbQuestion + vbYesNo) = vbYes Then
 
            Shell "explorer " & chemin_repertoire, vbNormalFocus
 
        End If
 
    Else
 
        Shell "explorer " & chemin_repertoire, vbNormalFocus
 
    End If
 
End Sub

28/11/2015, 17h19
Invité

Bonsoir,
Quel intérêt d'ouvrir explorer avec une commande Shell?
28/11/2015, 18h33
Docmarti

Bonjour Robert.

Citation:

Envoyé par rdurupt

Bonsoir,
Quel intérêt d'ouvrir explorer avec une commande Shell?

C'est que je tiens à utiliser /select
28/11/2015, 19h55
Invité

Effectivement activate; select et selction ça met en évidence pertinence des api et des #directive de compilation;

Pourquoi faire sens quand on peut faire avec!:pc:
30/11/2015, 07h48
sebù des bois
Citation:
Envoyé par Docmarti

Bonjour.

Ceci le fait en utilisant une fenêtre de commande cependant.

Code:

1 2 'Ne pas ouvrir un repertoire identique Shell "cmd /C start """" /normal """ & chemin_repert & """", vbNormalFocus
merci ça fait exactement ce que je souhaite faire.
Merci aux autres également pour les réponses.

cordialement
seb

Personnellement j'adopte la "petite fonction" de Theze qui se révèle une grande fonction que j'ai adaptée pour fermer la fenêtre si elle existe avant d'en ouvrir une nouvelle.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Sub tt()
 
'Chemin = "C:\Users\client\Documents\Thrives_Horaire_aujourdhui_021.xlsm"
 
Chemin = "C:\Users\client\Documents\"
 
Call FermerSiOuvert(Chemin)
 
Shell "explorer /select," & Chemin, vbNormalFocus
 
End Sub
 
 
Function FermerSiOuvert(Chemin) As Boolean
 
    Dim appShell As Object
    Dim Fenetre As Object
    Dim path As String
 
 path = Chemin
 If Right(path, 1) = "\" Then path = Mid(path, 1, Len(path) - 1)
 
 b = InStrRev(path, "\")
 If b > 0 Then path = Mid(path, 1, b - 1)
 
    Set appShell = CreateObject("Shell.Application")
 
    For Each Fenetre In appShell.Windows
 
        If Fenetre.Name = "Explorateur Windows" Then
 
            If UCase(Fenetre.Document.Folder.Self.path) = UCase(path) Then
 
             Fenetre.Quit
 
            End If
 
        End If
 
    Next Fenetre
 
End Function