Moi, j’ai aussi un 365
cela fonctionne sans le childnodes
If elem.classname = "yui-gc cartoucheReunion" Then
Set xx = elem
i = i + 1:
With Cells(i, 1)
.Value = elem.innertext
'.Value = elem.ChildNodes(0).innertext
.Interior.Color = RGB(0, 100, 0): .Font.Color = vbWhite
Cells(i, 1).Resize(1, 9).MergeCells = True
End With
ElseIf elem.classname = "yui-u first nomCourse" Then
il n’y a pas un innertext = « partants/stats/prono », mais il y a des innertexts avec « partants/stats/prono » dedans. Je ne connais pas le site, donc feuille « blad1 » colonne A montre l’innertext et colonne C l’outertext. geny2-v-2020-2023.xlsm (299,9 Ko)
on fait du webscraping ici, lire le contenu d’un website. Il y a 2 choses à remarquer, 1. est-ce légal ? Le site permet cela ? 2. Dès que le site modifie le layout un petit peu, on risque de modifier la macro.
Je connais bien Internet Explorer, mais cela est démodé, donc je suis votre code et vérifie si tout les données sont là.
Ceci dépasse aussi mes capacités.