Bonjour,
je veux coder un affichage plusieurs fois à un même site internet, comme ça j'aurai à traiter plusieurs personne à la fois dans plusieurs fenêtre contenant le même site web.
Mais le code suivant me traite toutes les personnes sur une seule page et ça écrase une après une, il me reste que la dernière personne:

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
28
29
30
Sub IE_ATTENTE(ByVal IE As InternetExplorer)
 
Do While IE.ReadyState <> READYSTATE_INTERACTIVE
    DoEvents
Loop
Do While IE.ReadyState <> READYSTATE_COMPLETE
    DoEvents
Loop
End Sub
 
Sub REMPLISSAGE()
Dim IE As New InternetExplorer
Dim Sh As Worksheet
Const stURL As String = "http://www.xxx.xxx"
 
for i = 1 to 30
 
IE.navigate stURL
IE.Visible = True
IE_ATTENTE IE
Set Sh = ThisWorkbook.Worksheets("Feuil1")
With IE.Document
.getElementsByName("Nom").Item.Value = Sh.Range("A" & i).Value
 
.getElementsByName("Adresse").Item.Value = Sh.Range("B" & i).Value 
 
.getElementsByName("Ville").Item.Value = Sh.Range("C" & i).Value
end with
next i
end sub
Voilà si vous pouvez m'aider!

cdt,
SKIp