Discussion :

[Sebphyto]

Bonjour le forum,

J'aimerai pouvoir récupérer des infos sur un site web, mais je voudrais comprendre comment faire...

Ma première question

Comment savoir et déterminer quelle table (webtables), je souhaite récupérer?

J'ai déjà un début de code, j'ai déjà essayé avec un enregistrement de macro savoir quelle table, mais je ne vois pas quoi en faire?

Je ne comprends pas comment VBA sait ce qu'il faut récupérer?

Bref j'ai des questions,

En soif d'apprendre

Bonne soirée

Seb

[Marc-L]

Bonjour, bonjour !

VBA ne sait rien, il interprète juste un programme !

Utiliser le navigateur internet pour trouver les éléments à récupérer
ou encore directement dans le code source de la page web …

S'il s'agit vraiment d'une table HTML, le plus simple est d'utiliser la fonction de feuille de calculs
via le menu Données, à partir du Web : il n'y a souvent rien à coder ! (Sinon c'est l'objet QueryTable en VBA)
Consulter la documentation interne d'Excel et les discussions du forum traitant ce sujet …

__________________________________________________________________________________
Tous unis, tous Charlie

[Sebphyto]

Bonjour Marc-L,

Merci pour cette réponse, mais j'ai déjà fait cela, et franchement c un peu de pékinois pour moi

J'ai codé avec Querytable, mais je n'arrive pas à récupérer ce que je veux....

Et je ne comprends pas le code d'importation.

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
26
27
28
Sub ImportRapp(vURL As String, R As Range)
    With ActiveSheet.QueryTables.Add(Connection:="URL;" & vURL, Destination:=R)
        .Name = "LaRequete"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebTables = "4"
        .WebFormatting = xlWebFormattingRTF
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
        .Delete
    End With
    'Efface l'entête
    R.Resize(3, 9).ClearContents
End Sub

Bonne soirée

Re,

Bon, j'ai trouvé les 'Tables" dans le code source de la page web, mais j'en fais quoi maintenant????

Et je nage, nage , nage......

bref c le trou noir

A+

[Marc-L]

Depuis la feuille de calculs, c'est simple ! Une fois la page affichée manuellement via la fonction à partir du Web,
il y a une flèche devant chaque table à importer, en cliquant dessus …

Si l'information désirée n'est pas chargée, soit ce n'est pas la bonne table
soit elle ne fait pas partie d'une table ou encore la page est protégée …

Dans ce cas voir du côté de l'Interaction avec Internet Explorer via VBA Excel mais souvent plus lent que QueryTable.
Voir cette discussion décrivant la structure d'une table HTML …

Le plus rapide étant une requête mais cela demande de ne pas nager ! Les deux en exemple dans cette autre discussion …

Sans compter les autres exemples dans les discussions de ce forum !

[Sebphyto]

Bonsoir Marc-L

Depuis la feuille de calculs, c'est simple ! Une fois la page affichée manuellement via la fonction à partir du Web,
il y a une flèche devant chaque table à importer, en cliquant dessus …

Pour cela, j'ai vu, et fait, j'arrive à extraire ce que je veux, mais que pour une page, dans mon cas j'ai des infos à tirer d'environ 54 pages, changeante (adresse de fin) tous les jours, mais la structure est la même.

Je vais lire les sujets que tu m'as proposé et reviendrai vers toi pour de dire quoi....

Edit: J'ai toujours cette question comment déterminer le numéro d'un table (webtables= "3" par exemple)?
Sinon pour le lien que tu m'as donné...eh bien c du lourd, j'ai franchement rien compris, mais je regarderai cela à tête reposée....


Bonne soirée

Seb

Bonsoir,

Bon après une journée passé à lire des tutos (qwazerty en autre) et à essayer de comprendre, rien ne fonctionne dans ces tutos, je n'arrive jamais à obtenir ce qu'on devrait avoir même avec des copier/coller....

tous les code avec "WaitIE" ne fonctionne pas, bref.....j'en ai plein la tête....tout ça pour rien au bout

Bon je retourne à ma lecture afin d'essayer d'en tire quelque chose...j'ai pas dis mon dernier mot

Bonne soirée à tous

[Marc-L]

Voir les codes dans les discussions en lien, c'est plus récent …