Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
Le 03/03/22 Í 15:30, rmill...@gmail.com 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
'----------------------------------------------
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
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
Le 03/03/22 Í 18:07, MichD a écrit :
Le 03/03/22 Í 15:30, rmill...@gmail.com 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
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