Volet de visualisation de l'Explorateur de fichiers de Windows

2 réponses
Avatar
rmill...
Bonjour,

J'espère que vous allez bien.

Y aurait-il une façon par VBA de détecter si le volet de visualisation dans l'Explorateur de fichiers de Windows est activé ou non?

Merci Í  l'avance.

2 réponses

Avatar
MichD
Le 03/03/22 Í  15:30, a écrit :
Bonjour,
J'espère que vous allez bien.
Y aurait-il une façon par VBA de détecter si le volet de visualisation dans l'Explorateur de fichiers de Windows est activé ou non?
Merci Í  l'avance.

Bonjour,
On peut y arriver en lisant la valeur de la clé
de registre de Windows.
'----------------------------------------------
Sub test()
'Dans ton code, lorsque tu veux savoir si la fenêtre
'de visualisation est ouverte, tu appelles la
'fonction "ouvert".
If Ouvert = True Then
'Ton code
MsgBox "Vrai"
Else
'Ton code
MsgBox "Faux"
End If
End Sub
'----------------------------------------------
Function Ouvert() As Boolean
Dim myWS As Object
Set myWS = CreateObject("WScript.Shell")
X = myWS.RegRead("HKEY_CURRENT_USERSOFTWAREMicrosoft" & _
"WindowsCurrentVersionExplorerAdvancedNavPaneShowAllFolders")
If X = 1 Then
Ouvert = True
Else
Ouvert = False
End If
End Function
'----------------------------------------------
MichD
Avatar
MichD
Le 03/03/22 Í  18:07, MichD a écrit :
Le 03/03/22 Í  15:30, a écrit :
Bonjour,
J'espère que vous allez bien.
Y aurait-il une façon par VBA de détecter si le volet de visualisation
dans l'Explorateur de fichiers de Windows est activé ou non?
Merci Í  l'avance.

Bonjour,
On peut y arriver en lisant la valeur de la clé
de registre de Windows.
'----------------------------------------------
Sub test()
'Dans ton code, lorsque tu veux savoir si la fenêtre
'de visualisation est ouverte, tu appelles la
'fonction "ouvert".
If Ouvert = True Then
    'Ton code
    MsgBox "Vrai"
Else
    'Ton code
    MsgBox "Faux"
End If
End Sub
'----------------------------------------------
Function Ouvert() As Boolean
Dim myWS As Object
Set myWS = CreateObject("WScript.Shell")
X = myWS.RegRead("HKEY_CURRENT_USERSOFTWAREMicrosoft" & _
    "WindowsCurrentVersionExplorerAdvancedNavPaneShowAllFolders")
If X = 1 Then
    Ouvert = True
Else
    Ouvert = False
End If
End Function
'----------------------------------------------
MichD

J'ai omis de déclarer la variable X dans la fonction
dim X As Long
MichD