Discussion :

[madmastergui]

Bonjour,

Voici mon pb : j'ai une macro VBA Excel avec interface UserForm (application.visible = false). Dans un onglet, je fais appel à une procédure "GetOpenFilename". L'utilisateur doit donc sélectionner un fichier via la fenêtre "Ouvrir" de l'explorer Windows. Hors, si un explorateur est déjà ouvert, après la sélection du fichier, celui-ci se met en avant-plan par rapport au UserForm, la reprise en main du UserForm oblige donc l'utilisateur à le remettre au premier plan via la barre de tâches Windows. Etant donné que l'utilisateur a 7 "GetOpenFilename" à effectuer pour valider l'opération, il doit faire un nombre incalculable de clics souris. Connaissez-vous une astuce pour laisser ce fichu explorateur en arrière plan sur le bureau.

Merci d'avance pour votre précieuse aide !!!

[SilkyRoad]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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