Reprise du message précédent :
il a figé sur ce bloc avec la même erreur ""erreur 438 - propriété ou methode non gérée par cet objet" en surlignant

 
  Cela veut dire que l'élément NextSibling n'est pas un élément Row donc à fortiori n'a pas de Cells,
  heureusement de mon côté j'avais inspecté la structure DOM pour vérifier que cela marchait !
  Bon on peut s'en passer en ne bouclant pas mais une partie des données ne sera plus importée.
  Je vais recharger en mémoire ton fichier provenant d'IE - même si cela marche bien de mon côté -
  pour contourner sans NextSibling tout en récupérant la totalité des données
  - oui car parfois les données ne sont pas toutes dans un seul élément Row -
  et sinon je changerai totalement de voie en mode full text sans utiliser un DOM …
 

 
  Comme la procédure attaque directement les Rows des Tables - au lieu des Tables puis les Rows par Table - ce qu'il a de bien avec NextSibling,
  enfin de mon côté, est que si on se trouve sur le dernier Row d'une Table le NextSibling est Nothing même s'il y a d'autres Rows dans la collection en cours
  donc pas de risque de mélanger les données.
  Maintenant en contournant sans NextSibling je teste le Row suivant mais il peut appartenir à une autre table;
  cependant comme il y a peu de risque la première cellule de la Table suivante soit vide …
 
  Remplacer ces deux lignes :

  par celle-ci :

        If P + 1 = .Length Then Exit Do Else If .Item(P + 1).Cells(0).innerText > "" Or .Item(P + 1).Cells.Length = 1 Then Exit Do

  Et si un mélange arrive alors il suffira juste d'une double boucle, la première sur les Tables et la seconde sur les Rows d'une table …

Franchement merci et Bravo. le script a fonctionné avec un "fini" comme fin ^^

Cependant (bah oui fallait bien encore un truc....), il y a un souci avec les dates qui ne sont plus correctement récupérées.
l'onglet 2 est l'état après le dernier test
je remets le xlsm sur free :
https://transfert.free.fr/9JFR1hR

aussi faut il effacer ou réactiver les

et

?

 
  Comme dans mon classeur les dates sont bien là, je charge le dernier classeur, je lance et je constate bien un souci sur les dates
  donc je compare les codes et tiens donc, il manque une ligne mais en fait elle est remontée sur la précédente !
  Alors dans le Module4 à la fin de la ligne n°62 le Else doit se trouver seul sur la ligne suivante, et voilà, retour au code original !
 
  Pour voir directement une ligne de code déclenchant une erreur dans un module standard laisser en l'état sinon réactiver la ligne On Error …
  La ligne Err.Clear sert à masquer une erreur pour poursuivre le traitement des pages suivantes sauf aux deux endroits prévus car sensibles.
 
  Et j'ai pu affiné les dates, remplacer les trois lignes de code n°75 à 77 - après If UBound(T) > 0 Then - avec ces quatre lignes :

  Juste pour savoir : combien de temps est nécessaire pour terminer l'exécution de la procédure pour la cinquantaine de pages ?
  En utilisation normale, c'est pour peu de pages, utilisation occasionnelle au coup par coup
  ou bien cela peut être pour des dizaines de pages voir une bonne centaine ou plus ?

AH désolé... j'ai surement fait le boulette du else à un moment.
A priori les dates sont OK

Je laisse les 2 lignes désactivées.

J'ai remplacé le code des lignes 75/77 : essai concluant.

Pour faire l'ensemble des lignes, ça a pris environ 12 secondes.
edit : je confirme : au 1er lancement : 10/12 sec. J'efface et je relance : 5 sec pour remplir à nouveau.
me connaissant, je pense que je lancerai dès que je complèterai de 1 ou 2 lignes. j'ai pas tendance à attendre d'avoir rajouté 50 lignes pour compléter.

edit 2 : je n'avais pas trop fait attention mais sur le titre "So I'm a Spider, So What?" le ? empêche le script de trouver la page.
Faut il modifier le script pour qu'il remplace le ? par %3F ? c'est ce qu'il y a dans le nom de page wikipedia.
écrit "So I'm a Spider, So What%3F" le script a fonctionné.
j'ai essayé de rajouter pour remplacer le ? par %3F mais je dois pas le mettre au bon endroit/comme il faut.

 
  J'ai demandé car seul piloter IE est plus lent sinon un mode full text c'est à dire sans Document HTML est au moins deux fois plus rapide, voir trois …
  Mais bon pour du coup par coup mieux vaut rester ainsi. Je verrais pour les jeux vidéo si c'est applicable ou pas …
 
  Pour 'So I'm a Spider, So What?' - ou à cause - à partir de la version 2013 il y a une fonction de formule de feuille de calculs qui le gère
  mais comme l'ordinateur de tests est en version 2010 donc à l'ancienne en modifiant la formule de calculs de la ligne de code n°12 :

        U = Filter(Evaluate(B & """https://fr.wikipedia.org/wiki/""&" & F & F & U & ",""?"",""%3F"" )" & H), False, False)

  Et comme ce titre déclenche des doublons de dates il faut insérer une nouvelle ligne de code avant le Else de la ligne n°63 :

          If Application.Match(T(P), T, 0) - 1 < P Then T(P) = False

je dirais bien Grande Victoire de Marc L parce que tout semble fonctionner parfaitement.    
je ne pensais vraiment pas qu'une macro arriverait à réussir tout cela.
 
Peut-on conclure que pour la BD le XLSM est fin prêt ?

 
  Merci. En fait le souci est l'inconstance des pages : oui la procédure fonctionne bien par rapport à ce que j'ai pu voir mais,
  comme pour So I'm a Spider, avec un nouveau titre cette procédure pourrait s'avérer incomplète …
 

Je verrai à l'usage si de nouveaux cas particuliers apparaissent.
En tout cas, je remets à dispo la dernière version pour les BD (j'ai fait un peu de nettoyage dans les onglets mais il y a encore tous les scripts) :
https://transfert.free.fr/RqC8HmZ

pour le xlsm des jeux, ca marche bien comme il est donc pas besoin d'aller plus loin non ?

 
  Pour les jeux, je dois regarder s'il est possible de se passer d'IE, comme pour les BD …
 
  J'ai pu tester ma démonstration originale pour les BD sur un autre ordinateur sous Windows 11 & Excel 365
  et j'ai eu le même problème avec le message final 'propriété ou méthode non géré par cet objet' …
  Même ligne de code déclenchant l'erreur à cause du NextSibling.
  En inspectant le Document généré le NextSibling ne pointe pas sur le prochain élément Row contrairement à Windows 8,
  ceci confirmant bien qu'une même source HTML peut avoir une structure objet différent selon la version d'IE / Edge / Windows,
  ce n'est donc pas spécifique à ton setup …
 
  J'en ai aussi profité pour vérifier la fonction de feuille de calculs encodant une URL, c'est URLENCODAGE,
  sous VBA nativement EncodeURL, disponible depuis la version 2013 d'Excel.
 
  Comme on ne peut se fier à NextSibling la procédure peut être dé-gazéifiée avec une boucle For Each simplifiée,
  la corrrection précédente étant juste pour voir si cela fonctionnait sans sous W11 …
  Je me suis aussi rendu compte qu'il manquait des Feuil4. notamment pour les Evaluate et comme cela n'a pas posé souci
  cela veut dire que la procédure est lancée via un bouton depuis la feuille du Catalogue mais
  en lancement manuel il faut bien s'assurer que la feuille active est la bonne !
 
  Avec ces modifications voici ma démonstration remaniée pour un module normal et la feuille active,
  j'y ai inséré en commentaire la ligne de code avec ENCODEURL et, à cause de ce site mésinterprétant un code VBA,
  le caractère ¤ de la ligne de code n°30 doit être supprimé une fois la procédure collée dans un module normal
  (les autres espaces ajoutés par erreur au sein d'une chaîne par ce site ne sont en fait pas gênant ici dans mes formules de calculs) :
 

Sub DemoBDwikiReq1r()
  Const F = "SUBSTITUTE(", G = " ))))", H = ","" "",""_""" & G, S = """>Les albums"
    Dim U, B$, W, L, X, R&, P&, M, C$(), T, oDoc As New HTMLDocument, oReq As New WinHttpRequest, oTR As HTMLTableRow
   With ActiveSheet.ListObjects(1).DataBodyRange.Columns
        U = .Item(1).Address
        B = "TRANSPOSE(IF(" & .Item(2).Address & "=0,IF(" & U & ">0,"
        W = Filter(Evaluate(B & F & Replace("IF(#=""BD"",""bande_dessinée"",LOWER(#))", "#", .Item(9).Address) & H), False, False)
   End With
        If UBound(W) < 0 Then Beep: Exit Sub
        L = Filter(Evaluate(B & "ROW(" & U & G), False, False)
        U = Filter(Evaluate(B & """https://fr.wikipedia.org/wiki/""&" & F & F & U & ",""?"",""%3F"" )" & H), False, False)
'       U = Filter(Evaluate(B & """https://fr.wikipedia.org/wiki/""&" & "ENCODEURL(" & F & U & H & " )" ), False, False)
        B = " Sur " & UBound(W) + 1 & " pages : #"
        X = Evaluate("{""" & Join([B1:F1&"*"], """,""" ) & """,""Nombre d’albums*""," & _
                     """Première publication*"",""Volumes*"",""Date de parution*"",""Sortie initiale*""}" )
   With Application
       .Cursor = xlWait
       .ScreenUpdating = False
   With New RegExp
       .Global = True:  .IgnoreCase = True
        On Error GoTo Fin
    For R = 0 To UBound(W)
        If R Then Application.StatusBar = B & R + 1
    Do
        oReq.Open "GET", U(R), False
        oReq.SetRequestHeader "DNT", "1"
        oReq.Send
        P = InStr(1, oReq.ResponseText, "class=""infobox_v", 1)
        M = W(R) > "" And P = 0 And oReq.Status = 200 And Not U(R) Like "*_(*)"
        If M Then U(R) = U(R) & "_(" & W(R) & "¤)"
    Loop While M
    If oReq.Status = 200 And P Then
         ReDim C(1 To UBound(X))
         ActiveSheet.Hyperlinks.Add Cells(L(R), 1), U(R), , "Wiki"
         oDoc.body.innerHTML = oReq.ResponseText
         oDoc.body.innerHTML = oDoc.querySelector("." & Split(Split(Mid(oReq.ResponseText, P + 7), """" )(0))(0)).outerHTML
     For Each oTR In oDoc.getElementsByTagName("TR" )
         If oTR.Cells(0).innerText > "" Then M = Application.Match(1, Application.Match(X, Array(oTR.Cells(0).innerText), 0), 0)
      If IsNumeric(M) And oTR.Cells.Length > 1 Then
         T = Trim(oTR.Cells(1).innerText)
         If InStr(1, C(M), T, 1) = 0 Then C(M) = IIf(C(M) = "", "", C(M) & vbLf) & T
      End If
     Next
         If C(1) = "" Then C(1) = " …"
         If C(6) = "" Then C(6) = C(8)
        .Pattern = "Bande dessinée (de |jeunesse\s*)?|Franco-Belge\s*|,?$"
         M = C(5):             C(5) = StrConv(.Replace(C(5), "" ), 3):      If C(5) = "" Then C(5) = M
        .Pattern = " *\r?\n":  C(5) = .Replace(C(5), ", " )
        .Pattern = "\D?(\d{4})\D?"
     For Each M In [{7,9,10,2,3,4,6}]
     If .Test(C(M)) Then
          T = Split(C(M), vbCrLf)
      For P = 0 To UBound(T)
      With .Execute(T(P))
        If .Count Then
            T(P) = .Item(0).SubMatches(0)
            If .Count > 1 Then M = .Item(.Count - 1).SubMatches(0): If M > T(P) Then T(P) = T(P) & " - " & M
            If Application.Match(T(P), T, 0) - 1 < P Then T(P) = False
        Else
            T(P) = False
        End If
      End With
      Next
         C(7) = Join(Filter(T, False, False), vbLf)
         Exit For
     End If
     Next
     If IsEmpty(M) Then
         T = Split(oReq.ResponseText, IIf(InStr(1, oReq.ResponseText, S, 1), S, """>Albums" ), , 1)
      If UBound(T) > 0 Then
           .Pattern = "<li>.+(<a .+title=""|>.*\D)(\d{4})\D.*</li>"
      With .Execute(Split(T(1), "<h2>" )(0))
        If .Count Then C(7) = .Item(0).SubMatches(1)
        If .Count > 1 Then M = .Item(.Count - 1).SubMatches(1): If M > C(7) Then C(7) = C(7) & " - " & M
      End With
      End If
     End If
        Rows(L(R)).Columns("B:H" ) = C
    Else
        Cells(L(R), 2) = ChrW(8960)
    End If
        If R Mod 11 = 1 Then DoEvents
    Next
   End With
Fin:
       .Speech.Speak IIf(Err.Number, Err.Description, "Fini" ), True
       .StatusBar = False
       .Cursor = xlDefault
       .ScreenUpdating = True
   End With
        Set oDoc = Nothing:  Set oReq = Nothing
End Sub

Testé : OK. Pas eu de souci.
Oui c'est avec un bouton. j'ai fait plein d'essai depuis le module puis je suis passé au bouton directement depuis la page.
 
Juste une question : j'ai pour cette page https://fr.wikipedia.org/wiki/Spy_%C3%97_Family l'info  
"(ja) Shūeisha
(fr) Kurokawa
Bandai Namco Entertainment"
 
qui est récupérée.
Sauf que le "Bandai Namco Entertainment" est pour le jeu vidéo.  
Ca me semble normal, je ne crois pas que le script filtre sur la page les blocs manga/animé/jeux ?
Et je n'ai pas trouvé d'autre cas donc pas grave.

 
  Il y a un autre cas retournant 'Konami' …
 
  Effectivement la recherche s'effectue sur des mots-clefs se trouvant au niveau Row,
  j'y ai déjà pensé, alors que l'information du type d'éditeur est plus haut au niveau du caption de la Table.
  Comme on dit, qui peut le plus peut le moins …
 
  Je vais y réfléchir de nouveau, se basant alors sur l'information de la colonne I,
  espérant que cela ne réduise pas les informations collectées pour d'autres pages …
 

ah oui bien vu.
pas les yeux en face des trous...
 
Franchement ca peut rester comme ca, c'est vraiment pas grave surtout au risque de tout casser.

  Pour filtrer sur la colonne I deux modifications :
 

• remplacer les lignes de code n°14 & 15 par celles-ci :

        X = "Auteur,Scénari,Dessin,Éditeur,Genre,Nombre d’albums,Première publication,Volumes,Date de parution,Sortie initiale"
        X = Evaluate("{""" & Replace(X, ",", """,""" ) & """}&""*""" )

• Remplacer la boucle For Each…Next des lignes 37 à 43 par ceci :

    With oDoc.getElementsByTagName("TABLE" )
     For P = 0 To .Length - 1
      If P And Not .Item(P).Caption Is Nothing Then
             T = InStr(1, .Item(P).Caption.innerText, W(R), 1)
          If T And Len(.Item(P).Caption.innerText) > Len(W(R)) + 3 Then _
             T = InStr(1, .Item(P).Caption.innerText, Split(Cells(L(R), 1), "_(" )(0), 1)
      Else
          T = 1
      End If
      If T Then
      For Each oTR In .Item(P).Rows
          If oTR.Cells(0).innerText > "" Then M = Application.Match(1, Application.Match(X, Array(oTR.Cells(0).innerText), 0), 0)
          If IsNumeric(M) And oTR.Cells.Length > 1 Then C(M) = IIf(C(M) = "", "", C(M) & vbLf) & Trim(oTR.Cells(1).innerText)
      Next
          If P Then Exit For
      End If
     Next
    End With

  Si des données ne sont pas collectées alors corriger la colonne I car, par exemple, Manwha n'est pas Manhwa !

merci pour la bonne vue.... corrigé.... pas vu cette erreur depuis des jours....

edit : Sinon le code ne fonctionne pas : il y a juste une erreur de "next sans for" à la ligne 55.
je ne trouve pas l'origine du souci (j'ai cru avoir trouvé il y a 2 minutes mais non...)

 
  J'ai constaté des données manquantes pour un titre donc juste en comparant la colonne I et la page Web …
 
  De mon côté cela fonctionne bien - sinon je n'aurais rien posté ni pu voir l'erreur de frappe - et le Next est sur la ligne de code n°53 !
  Repartir de la procédure DemoBDwikiReq1r originale du post plus haut puis effectuer les modifications …

je recopie mal le code ?
voilà ce que j'ai après remplacement (j'ai gardé l'ancien bloc des 6 lignes remplacées pour illustrer)
et le script s'arrete au dernier "Next"  

 
  L'ancien bloc fait 7 lignes et non 6 ! La ligne n°43 originale n'a pas été remplacée donc le dernier Next après End With est de trop, à supprimer …

j'ai compris mon erreur des lignes "37 à 43" : en sélectionnant les lignes, quand j'arrive à la selection de la ligne 42, il affiche "Li 43" d'où mon erreur...

sinon le code bascule directement de la ligne 39 à 97 avec en final un "objet requis" (que ce soit lancé depuis le bouton ou la page du script)
Il arrive à créer le lien hypertexte mais rien d'autre ne se passe.

 
  Bon c'est certainement encore une différence du DOM, il faut que je puisse tester sous W11, peut-être ce soir …
 

 
  Bon allez une tentative à l'aveugle, remplacer le bloc If…Else…End If des lignes de code n°39 à 45 par celles-ci :

         T = 1
      If P And IsObject(.Item(P).Caption) Then
       If Not .Item(P).Caption Is Nothing Then
             T = InStr(1, .Item(P).Caption.innerText, W(R), 1)
          If T And Len(.Item(P).Caption.innerText) > Len(W(R)) + 3 Then _
             T = InStr(1, .Item(P).Caption.innerText, Split(Cells(L(R), 1), " (" )(0), 1)
       End If
      End If

Désolé je ne pourrai tester que vendredi soir.
merci encore pour  l'aide.

Et bien encore une fois chapeau.  
Même à l'aveugle ca fonctionne.
j'ai regardé le tableau, comparé aussi à l'autre tableau déjà rempli et ca me semble nickel.
Il faut juste que le titre soit identique à wikipedia et tout se remplit comme il faut.

 
  Merci. Depuis j'ai pu comparé les DOM entre W8 & W11 et ce fut la surprise : ils sont identiques !
  Donc un objet existant sous W8 mais non initialisé donc égal à Nothing apparaît de même sous W11
  mais n'existe pas, bonjour la nouvelle 'logique microsoftienne' ‼
  Je comprends mieux maintenant la classique complainte "j'ai un programme qui marchait bien mais plus depuis que j'ai changé de PC" … Merci Windows.
 

Je comprends mieux, depuis que l'on fait ces macros, aussi tous les soucis que peuvent avoir les logiciels/jeux/etc avec toutes les différentes versions de windows, sans oublier les drivers de matériel.
Ca doit être quand même un sacré bordel à gérer pour maximiser la compatibilité avec tout le monde.

 
  De retour pour les jeux vidéos : pour me motiver serait-il possible de grouper les colonnes à télécharger ?
  Peu importe où se situe la première colonne à télécharger mais les autres doivent la coller sans décalage aucun (ex : C,D,E,F et pas C,D,F,G) …
 

Aucun problème à modifier la mise en page du tableau si ça peut faciliter la tache.
Ca a bien marché sur l'autre et ça ne dérange pas plus que ça d'avoir déplacé les colonnes

 
  Bien. Merci de mettre un lien sur le fichier réorganisé et de m'indiquer la tranche de colonnes histoire de ne pas en oublier une …
 

j'imagine que les colonnes du script seront celles du "Développeur" "Éditeur" "Genre" "année" "plateforme" ?
Je doute pour "Saga" vu que d'une page à l'autre ca n'est pas affiché pareil et que j'avais commencé à déjà organiser cette colonne.
si c'est pas bon me le dire que je corrige.
https://transfert.free.fr/P2LyWgu

 
  Non pour 'Plate-forme' car elle doit être pré-remplie car elle peut conditionner le téléchargement sur certaines pages Wiki de jeux
  alors la colonne 'Y' - en fait 'Date de sortie' côté pages Wiki ? - doit être inversée avec la 'Plate-forme'
  ainsi ce sont les colonnes de F à I à télécharger.
 
        En option pour 'Saga' :
 

• il me faudrait déjà une liste de jeux représentative des différents cas possibles.
• Si c'est possible de la télécharger alors il faudra la déplacer pour qu'elle soit consécutive aux autres …

  Autre point : les liens hypertexte de la colonne A ne fonctionnent pas, je crois bien que c'était pour les photos :
                      ne pas modifier cette colonne ou bien comme pour les BD y lier les pages Wiki des jeux ?

Pour plateforme j'ai fait une liste pour éviter les mauvaises écritures (faut juste valider la bonne orthographe vs wikipedia)

J'ai ajouté une colonne "cover" pour décaler les pochettes.
Donc la 1ère colonne des titres peut récupérer les liens hypertextes wiki.

Le "y" est pour "Year" donc oui juste l'année de sortie.

Pour Saga laisse tomber c'est vraiment pas grave.

j'espere n'avoir rien oublié
https://transfert.free.fr/MNWNdpD

 
  Merci, on part sur cette base avec les colonnes G à J.
  Je vais y aller doucement, déjà en vérifiant / essayant de comprendre ce qu'il s'est passé la première fois en étudiant les pages Wiki des jeux,
  voir si c'est possible d'éviter IE etc …Pour 'saga' une galère de moins !

 
  Constat du jour : il n'y a pas que des infobox_v3 mais aussi un infobox_v2, Sherman M4,
  la procédure des BD pouvant s'avérer utile …
 

 
  Correction : ce n'est pas un jeu mais la fiche officielle du tank ! Donc vérifier uniquement si infobox_v3 …
 

Oui sherman M4 n'a pas de page wikipedia
page de l'éditeur : https://fr.wikipedia.org/wiki/Loriciel
J'avais pas relancé la procédure de infobox pour vérifier tous les jeux que j'avais rajouté mais c'est bien le seul dans ce cas.

 
  Pour certains jeux Nintendo pour récupérer la bonne année la plate-forme correcte est nécessaire, à savoir 'Wii U' au lieu de 'WiiU' …
 

J'ai corrigé le "Wii U"
J'ai pensé alors pour les jeux PC / Windows, ca ne pose pas souci entre les "Windows", "PC" et "Microsoft Windows" ??

 
  Le code testera 'Windows' & 'DOS' quand la plate-forme 'PC' n'est pas trouvée …
 

OK Merci.
J'ai complété la liste des plateformes correspondant à ce qui existe sur wikipedia
 

 
  Sur le coup je ne voyais pas trop à quoi cela pouvait me servir mais depuis cela m'a donné une idée :
  je vais me servir de cette liste pour nettoyer les colonnes Développeur et Editeur par différenciation avec la plate-forme renseignée
  donc il faudra la compléter, à suivre …
 
  Il me reste encore un tiers des tests à effectuer.