Demander a l'utilisateur de sélectionner manuellement une fenêtre

Bonjour,

J'ai actuellement une macro qui me permet de supprimer des dossiers sur intranet (une tache répétitive car je dois supprimer chaque élément du dossier un a un)
Pour éviter qu'il y ai des erreurs (supprimer le mauvais dossier), je voudrais demander à l'utilisateur de sélectionner la bonne fenêtre internet si plusieurs fenêtres intranet sont ouvertes :

x=0
For Each SSH In objShell.Windows
If TypeName(SSH.Document) = "HTMLDocument" Then
    Set IExp = SSH
    FullURL = IExp.Document.URL
    LeftURL = Left(FullURL, 42)                                                             
        If LeftURL Like "Https://XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" & "*" Then             
            Set IEX = SSH
            IEX.Visible = True
            x=x+1
        End If
End If
Next SSH

If x=0 Then 
            MsgBox "Intranet n'est pas ouvert"
            Exit Sub
End if

If x = 1 Then 
Set iXdoc = IEX.Document
Set EXlementCol = iXdoc.getElementsByTagName("tr")
End if

If x > 1 Then
'Je voudrais demander a l'utilisateur de sélectionner la fenêtre
'Attendre que la fenêtre soit sélectionné
'set IEX as SSH.selectbyuser

Est il possible de sélectionner manuellement une fenêtre avec la souris et de continuer l'exécution du code VBA ?

Merci d'avance

Hello,

tu veux pouvoir afficher une boite de dialogue qui te permet de choisir un dossier ?

Hello, Merci d'avance pour ton aide.

En fait je voudrais afficher quelque chose comme ca :

MsgBox "Veuillez sélectionner la fenêtre Internet Explorer ou se situe le dossier à effacer"

Et détecter sur quelle fenêtre internet l'utilisateur clique avant de cliquer sur le "OK" du message.

Enfin créer la collection dont j'ai besoin à partir de la fenêtre sur laquelle l'utilisateur a cliqué.

(je pense peut etre utiliser un UserForm afin d'afficher le nom du dossier dans une liste lors de ce clique)
Mais mon gros problème, c'est que je ne sais pas comment détecter sur quelle fenêtre l'utilisateur clique et comment la référencer...

Hello,

Peut être une piste à adapter à ton cas :

Permet de boucler sur les fenêtres IE ouvertes

Sub Fenetres_IE()
    'Nécessite d'activer la référence
    '"Microsoft Internet Controls"
    'et
    '"Microsotf HTML Object Library"

    Dim IE As New InternetExplorer
    Dim winShell As New ShellWindows
    Dim maPageHtml As HTMLDocument

    On Error Resume Next

    For Each IE In winShell
        If IE.LocationURL <> "" Then
            Set maPageHtml = IE.document
            MsgBox maPageHtml.DocumentElement.innerText

            Set maPageHtml = Nothing
        End If
    Next IE
End Sub