Pb interaction UserForm/Explorer

bonsoir

Tu peux masquer l'explorateur pendant la durée de ta procédure.
Tu utilises IE.Visible = False en début de procédure
et IE.Visible = True pour le réafficher.

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
Sub MasquerExplorateurWindows()
    'Nécessite d'activer la référence
        '"Microsoft Internet Controls"
 
        'Testé avec IE6
        '
        '
    Dim IE As InternetExplorer
    Dim winShell As New ShellWindows
    Dim t As Date
 
    On Error GoTo Fin
 
    On Error Resume Next
    For Each IE In winShell
        If IE.FullName = "C:\WINDOWS\Explorer.EXE" Then
            IE.Visible = False
            Exit For
        End If
    Next IE
 
    'Temporisation de 4 secondes
    t = Timer + 4: Do Until Timer > t: DoEvents: Loop
 
Fin:
    IE.Visible = True
End Sub

bonne soirée
michel