Set objShellApp = CreateObject("Shell.Application") Dim winFolder For Each wFolder In objShellApp.Windows On Error Resume Next isFolder = wFolder.document.folder ' An IE window does not support ".document.folder". We get the first Windows Explorer window. If Err = 0 Then wFolder.Visible = True Set winFolder = wFolder Exit For End If Next
Il doit y avoir une meilleure façon de distinguer entre Windows-Explorer et Internet-Explorer.
J'apprécierais votre aide.
VBS: sélectionnez l'élément dans la dernière fenêtre active de Windows Explorer
Remplacer
On Error Resume Next isFolder = wFolder.document.folder If Err = 0 Then
avec
If(wFolder.FullName = "C:\Windows\Explorer.EXE") Then