Discussion :

[skipeemed]

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

[Qwazerty]

Salut
A aucun moment tu ne valide les donnée que tu saisies dans ta page web, il est donc normal que tu écrases les données déjà inscrite lors des itérations suivantes.
Tu dois avoir un bouton sur ta page web, regarde cette discussion elle te permettra sans doute de résoudre ton problème.
Il me semble même, mais je ne retrouve plus l'info, que les pages web de type formulaire, comme tu sembles la décrire, possèdent une fonction "validate"(sauf que c'est pas ce nom la) ce sujet date un peux et je n'y ai pas retouché depuis, va bientôt falloir d'ailleurs .

++
Qwaz

[skipeemed]

Bonjour,
En fait je peux ajouter l'option de validation, mais je ne veux pas le faire.
Avant tout je dois vérifier les données avant de valider. C'est pour cela que j'ai opté pour l'ouverture plusieurs fois de la même page qui contient chacune le formulaire avec les différentes données pour chaque personne qui sont entrées à partir de la macro.

est ce que c'est possible?
Cdt,
SKIP

[Qwazerty]

Salut
Si bien sur c'est possible

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
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 CallIE(Nom As String, Adresse As String, Ville As String)
Dim IE As New InternetExplorer
Const stURL As String = "http://www.Google.fr"
 
    IE.navigate stURL
    IE.Visible = True
    IE_ATTENTE IE
    With IE.Document
        .getElementsByName("Nom").Item.Value = Nom
 
        .getElementsByName("Adresse").Item.Value = Adresse
 
        .getElementsByName("Ville").Item.Value = Ville
    End With
 
Set IE = Nothing
End Sub
 
 
Sub Remplissage()
Dim i As Integer
Dim Sh As Worksheet
 
Set Sh = ThisWorkbook.Worksheets("Feuil1")
 
 
With Sh
    For i = 1 To 30
        CallIE .Range("A" & i), .Range("B" & i), .Range("C" & i)
    Next
End With
 
 
End Sub

[Edit]
Tu peux même faire comme ça pour définir directement la taille de ton tableau sans avoir a le modifier

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Remplissage()
Dim i As Integer
Dim Sh As Worksheet
 
Set Sh = ThisWorkbook.Worksheets("Feuil1")
 
With Sh
    For i = 1 To .Cells(Rows.Count, "A").End(xlUp).Row
        CallIE .Range("A" & i), .Range("B" & i), .Range("C" & i)
    Next
End With
 
End Sub

[/Edit]
++
Qwaz

[skipeemed]

Bonjour,

Normalement ça marches mais juste une chose si j'ai des variables comme ça:

"_Nom_variable"

Le code m'affiche une erreur au niveau du premier tiret du 8 quand je les déclares comme paramètres de CallIE.
Il n'y a pas une astuce pour contourner cette erreur parce que la variable je ne peux vraiment pas la modifier.

Cdt,
SKIP

[Qwazerty]

Salut
Je ne suis pas ton raisonnement, tu peux donner un exemple. Tu veux rentrer une variable, ou la valeur contenu dans une variable?
++
Qwaz

[skipeemed]

ça y est j'ai résolu le problème!!

Merçi encore!!!

SKIP