Discussion :

[Arsene12]

Bonjour, j'apprends à faire du scraping sur une page web en essayant de récupérer des noms de tags d'une div référencée par Class="maClass".
J'utilise powershell pour lancer un script VBscript en lui communiquant une adresse html.

Code VBA :

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

1
2
3
4
5
6
7
8
9
For i = 0 To 10
 
      if (Window.Document.getElementsByClassName("maClass")(i).getElementsByTagName("a")(0).innerText <> Null) then				 
                   monFichier.WriteLine(i)
                 else
		   NewFichier.WriteLine(i)
                   data = Window.Document.getElementsByClassName("maClass")(i).getElementsByTagName("a")(0).innerText
                   monFichier.WriteLine(data)
Next

Je n'arrive pas toujours à récupérer tous les tags et il m'arrive souvent d'avoir cette erreur à la ligne du if :

Code VBA :

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

1
2
    + CategoryInfo          : NotSpecified: (C:\Users\username\......).innerText':String) [], RemoteException
    + FullyQualifiedErrorId : NativeCommandError

Pourriez-vous m'aider à résoudre ce problème, svp?

Merci d'avance.
Arsène

[Arsene12]

J'ai trouvé en partie la solution. Il faut juste laisser quelques instants à la page pour se télécharger.

Code :

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

WScript.Sleep 3000

Mais y'a quand même des moments où ça génère l'erreur en question.