Rapport de message :*
 

Re: Récupération de données sur le web

Titre du sujet : Re: Récupération de données sur le web
par fixsurfer le 02/11/2011 16:59:48

Merci beaucoup encore une fois.

J'ai effectivement fait des tests, mais bon, je préférais avoir vos confirmations (on ne sait jamais, des fois que sur un coup de chance ca marche alors que ca ne devrait pas ).
Simplement, concernant votre nouvelle réponse, les "4" correspondent à "n°1ère ligne - 1" ou à autre chose ??

Et enfin, avant de solder le sujet, j'ai une dernière question.
Comment avez-vous récupérer l'info demandée ?? Je m'explique, imaginons que je souhaite "améliorer" mon super fichier en récupérant via la même page ou une autre d'autres infos à l'avenir, quelle partie du code faut-il modifier et comment ??
Si je ne me trompe pas cela devrait être celle-ci :

  Loop
   T = IE.Document.body.innerText
   .Cells(L, 3).Value = Val(Mid(T, InStr(1, T, "Nb. tomes parus :") + 17))
Next L
J'imagine qu'on demande à excel de parcourir la page web à la recherche de la suite de mots "nb. tome parus" et qu'on lui demande de récupérer la valeur nbr ou texte associée.
Du coup, par exemple, pour récupérer l'info "dessinateur", faut-il remplacer le code ainsi seulement (en conservant le même emplacement de colonne pour que ce soit plus simple ?) ou bien faut-il faire autre chose ??
 Loop
  T = IE.Document.body.innerText
  .Cells(L, 3).Value = Val(Mid(T, InStr(1, T, "Dessinateur :") + 17))
Next L
Je ne comprend pas bien le fonctionnement de la fct° InStr et à quoi correspond le +17 en fait (le nombre de caractères à sauter dans le code source de la page ????

Voilà, j'espère ne pas t'avoir trop soualé avec mes questions Promis, à la prochaine réponse, je solde le sujet.

Encore une fois merci beaucoup,

Cordialement,
Fx