Remplir un champ texte d'une page internet avec une macro sous excel 2000

Version imprimable

16/05/2011, 16h21
salent9

Remplir un champ texte d'une page internet avec une macro sous excel 2000

Bonjour,

j'aimerai savoir ( si c'est possible ;) ) comment remplir un champs texte d'une page internet avec une macro excel.

Pour l'instant je sais ouvrir la page internet :lol:
donc je sais pas si avec le code source de la page et le nom du champ text en html on peut faire quelque chose ;)

merci d'avance

Bonjour,

Oui c'est possible, ça devrait ressembler à ...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
'!!! Nécessite d'activer la référence Microsoft Internet Controls !!!
 
Dim IE As InternetExplorer, IEdoc As Object, DOCelement As Object
Dim MonTexte As String, SiteWeb As String
 
SiteWeb = "http://www.NomDuSite.com/"
MonTexte = "bla bla bla"
 
Set IE = New InternetExplorer
IE.Visible = True
IE.Navigate SiteWeb
 
' attente de fin de chargement
Do Until IE.ReadyState = 4
    DoEvents
Loop
 
Set IEdoc = IE.Document
 
' introduction du texte
 Set DOCelement = IEdoc.getElementsByName("xxx").Item '<-- xxx = nom du champ texte
 DOCelement.Value = MonTexte

17/05/2011, 21h40
AlainTech

Ca, ça marche sur une requête GET.
Si c'est du POST, c'est un peu plus compliqué.

Mais attendons la réponse de salent9.