Discussion :

[QuestVba]

Bonjour à Tou(te)s,

Voici mon petit problème. J'ai des modèles de document en word; ces modèles comportent une zone expéditeur qui est actuellement mis à jour via un fichier excel. Etant donné que les agents utilisent un programme ouvert dans une fenêtre Internet Explorer, je voudrai reprendre les données directement à la source. Mon premier problème est qu'ils ouvrent plusieurs fenêtres IE. Je dois donc demander à ma macro de choisir la bonne fenêtre. Comment faire ?

J'ai déjà utilisé le code suivant afin de savoir quel document Word est ouvert.

Code :

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

1
2
3
4
5
For Each adoc In Documents
        agentvérif(r) = adoc.Name
        ComboBox1.AddItem agentvérif(r)
        r = r + 1
Next adoc

Est-il possible de faire la même chose ? J'ai cherché (mal certainement) mais je n'y arrive pas. Il est peut-être possible de faire plus simple ou plus direct.

Merci pour toutes les infos.

[QuestVba]

Ok je fais avec ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_Calculate()
Dim IE As New InternetExplorer
Dim winShell As New ShellWindows
Dim maPageHtml As HTMLDocument
    y = 0
    For Each IE In winShell
        y = y + 1
        x = IE.LocationName
        MsgBox "La fenêtre " & y & " est : " & x
    Next IE
Set IE = Nothing
End Sub