[AC-2007] WebBrowser et remplissage automatique [Résolu]

[JiB@]

Bonjour,


J'essaie de remplir un formulaire Internet en utilisant les données de ma table et le contrôle WebBrowser.
Le formulaire Internet s'affiche dans mon formulaire Access mais il ne se remplit pas.

Voici le code de la balise input du formulaire Internet:

Code :

<input name=nom>

Et voici mon code vba:

Code :

1
2
3
4
5
6
7
8
    Dim strURL As String
    Dim objIE As Object
 
    strURL = Me![URL].Value
    Set objIE = Me.WebBrowser1.Object
    objIE.Navigate strURL
 
objIE.Document.getElementById("nom").Value = "Dupont"

Merci d'avance pour votre aide.

@+

[mkl238]

Bonjour,

Code :

<input name=nom>

il n'y a pas d'attribut id dans la balise input alors que tu fais un getElementById

Code :

<input id="nom">

[JiB@]

Merci pour la réponse.

J'ai testé ce code:

Code :

objIE.Document.getElementByName("nom").Value = "Dupont"

Mais j'ai une erreur "Propriété non gérée par cet objet"

Merci pour votre aide.

[mkl238]

aaah oui mais non, ca aurait été trop facile... il n'existe pas de méthode "getElementByName"

Soit tu utilises getElementById (c'est la meilleure méthode) et tu mets un attribut id dans la balise input, soit tu utilises GetElementsByTagName("input") et tu parcours chaque élément pour comparer l'attribut name et voir si il est = à nom...

un truc dans le genre: (mais je ne saurais pas tester)

Code :

1
2
3
4
5
6
For Each element In objIE.Document.GetElementsByTagName("input")
    if "nom" = element.GetAttribute("name") Then
        element.InnerText = "Dupond"
        Exit For
    End if
Next

[JiB@]

OK merci beaucoup et bonne fête nationale !

@+