Discussion :

[ted the Ors]

Bonjour,

je cherche à récupérer les présentations d'une liste de chaînes Youtube.
Pour ce faire, l'idée est de récupérer le code html de la page présentation et d'extraire ce qui se trouve entre les balises html <pre> et </pre>.
J'utilise le code suivant (les lignes en gras sont utilisées pour débuguer)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Dim InternetWindow As New InternetExplorer
Dim html_code As String
Set ws = Sheets("Feuil1")

InternetWindow.Visible = False
InternetWindow.Navigate (Sheets("Feuil1").Range("A1"))

Do
DoEvents

Loop Until InternetWindow.ReadyState = READYSTATE_COMPLETE

    html_code = InternetWindow.Document.Body.innerHTML
    With New DataObject
        .SetText html_code
        .PutInClipboard
    End With
    MsgBox Len(html_code)
    pre_first = InStr(1, html_code, "<pre>")
    pre_first_offset = pre_first + 5
    pre_last = InStr(1, html_code, "</pre>")
    len_presentation = pre_last - 1 - pre_first_offset
    
    presentation_chaine = Mid(html_code, pre_first_offset, len_presentation)
    Range("A2") = presentation_chaine

Problème: ma variable html_code, qui contient 110527 caractères, ne contient pas l'intégralité du code html (190 189 caractères).
D'où cela peut-il venir sachant qu'html_code est déclaré en string, qui théroiquement peut contenir 2^31 caractères.

D'avance merci.

[fuine0069]

ne pourrais tu pas coller ton HTML code directement dans un excel "draft"?
et ensuite manipuler ce draft et terminer par l'effacer?

[ted the Ors]

Qu'entends tu par un "excel draft"? Un fichier Excel temporaire?

[fuine0069]

oui exact

[ted the Ors]

Dans ce cas, je ne vois pas trop à quoi tu penses. Parce que si je copie le contenu de la variable dans le presse papier, elle est incomplète. Le problème sera le même si je copie le contenu de cette variable dans un nouveau fichier excel, non?

[fuine0069]

Dans ce cas, je ne vois pas trop à quoi tu penses. Parce que si je copie le contenu de la variable dans le presse papier, elle est incomplète. Le problème sera le même si je copie le contenu de cette variable dans un nouveau fichier excel, non?

Je parlais de ne pas passer par la case variable et directement étaler InternetWindow.Document.Body.innerHTML sur un draft.
As tu déjà tenté?

Sinon tu peux tenter de passer par une manip d'internet explorer pour récupérer tous les codes nécessaires.
http://qwazerty.developpez.com/tutor...-excel/#LIII-B
j'ai utilisé ca pour un projet où il y avait plusieurs occupations à définir sur une seule et même page, je cherchais la balise occupation et ensuite je prenais les éléments suivants pour les utiliser dans mon code.

[patricktoulon]

bonjour
chez moi les présentation de chaine youtube ne sont pas dans des balises "<pre>" mais des divs en fait tout dépend de ta version de IE
puisque tu passe par IE ces éléments ont une classe, sert toi de leur classe

[ted the Ors]

J'y ai pensé mais getElementsByClassName n'est pas pris en charge
Je vais plutôt passer par l'API Google, récupérer le JSON que je parserai.
Je mettrais le code ici.