Extraction Tableau HTML - VBA
Bonjour,
Dans le cadre d'un exercice, j'essaye d'extraire un tableau sur un site Internet Explorer.
J'ai fouillé pratiquement partout, tenté des tutos mais impossible de trouver ce que je cherche ou alors j'avais un message : "Action refusée".
Il faut savoir que le tableau que je cherche à extraire correspond au résultat d'une recherche.
Les 1eres étapes se réalisent parfaitement:
- Connexion sur le site
- Changement d'un radio bouton
- Saisie Texte de la recherche en fonction d'une liste présent dans le fichier
- Validation de la recherche
- Etape manquante : Extraction du résultat sous forme de tableau dans le même fichier excel !
Voici la macro:
Sub connexionANSM()
Dim IE As InternetExplorer
Dim IEdoc As HTMLDocument
Dim Radiobouton As HTMLElementCollection
Dim InputBouton As HTMLFormElement
'Lancer internet
Set IE = New InternetExplorer
IE.Visible = True
IE.navigate ("http://agence-prd.ansm.sante.fr/php/ecodex/index.php")
WaitIE IE
Set IEdoc = IE.document
'Click radio
Set Radiobouton = IEdoc.getElementsByName("radLibelle").Item(1)
Radiobouton.setAttribute "Checked", "true"
WaitIE IE
Set IEdoc = IE.document
'Go Recherche
Set objCollection = IEdoc.all("txtCaracteres")
objCollection.Value = Range("B2").Value
WaitIE IE
Set IEdoc = IE.document
'Go Click
Set InputBouton = IEdoc.forms("formRecherche")
InputBouton.submit
WaitIE IE
Set IEdoc = IE.document
'Extraction tableau
End Sub
Merci de votre aide !
Antoine
Bonjour,
J’ai effectué d’autres tests, par exemple lors de l’importation de données « À partir du web », il est possible de sélectionner le tableau qui m’interesse.
Mais je reçois un message d’erreur m’indiquant : « Aucune donnée renvoyée par la requête sur le Web »
Des idées de votre côté ?