Reprise du message précédent :
 
  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.
 

Hola j'aurais pas pensé que ça donnerait autant de job.... merci encore.

 
  Non, c'est aussi que j'ai moins de temps ces derniers temps …
 
  Ajouts dans la liste des plates-formes :

Ah ok.  pas de souci.
Liste complétée.

GBA + GBC = GameBoy Advance et Color >> edit : oui

 
  Je pensais en avoir fini avec les variations mais non …
  Affinage de la liste des plates-formes :
  - remplacer xbla par XB
  - remplacer xblb par WonderSwan …
 

 
  Coder est juste une affaire de concessions vu les pages web non normalisées  …
 
  Options :
 
  1) Pour l'année : il y a des pages sans Date de sortie, ce sont principalement des pages génériques pour une franchise / saga
      mais pas celle dédiée spécifiquement au jeu en question.
      a) Récupérer l'année depuis Premier jeu ou
      b) si page générique l'année affichera trois petits points. Mettre à jour la bonne page web, celle spécifique au jeu comportant la date de sortie
          car pour certains jeux vis à vis de la plate-forme il peut y avoir une année différente avec celle du premier jeu (exemple Splinter Cell).
          Pour la mise à jour il faudra soit juste modifier le lien hypertexte (la procédure donnant priorité au lien hypertexte)
          ou bien le supprimer et corriger le nom du jeu …
 
  2) Pour Développeur & Éditeur : quelles sont les règles de conservation ou de suppression ?
      a) Supprimer toutes les sociétés comportant entre parenthèses une plate-forme différente (via la liste des plate-formes évoquée précedemment)
          mais que faire de celles comportant d'autres informations ? (ex : multijoueur, gameplay, HD, J2ME, Steam, level design, assistance, DLC, …)
      b) Conserver la première société si sans parenthèse et toute société correspondant à la plate-forme.
 

1) Vu que le nom du jeu doit être un minimum précis, cela ne devrait pas tomber sur la page "saga" mais si c'est le cas vaut mieux faire la date du 1er jeu. non ?

2)
   a) c'est possible d'avoir un exemple avec tous ces "multijoueur, gameplay, HD, J2ME, Steam, level design, assistance, DLC" ? je n'ai pas trouvé de jeux avec ces détails.

  b) cela semble le mieux. Le 1er nom de société est l'éditeur principal du jeu + les autres noms sont des sociétés qui ont adapté le jeu pour la plate-forme sélectionnée.

reste les zones géographiques à filtrer ou non ? perso ca me dérange pas plus que ca.
ex : https://fr.wikipedia.org/wiki/Cadence_of_Hyrule
qui remonte "Spike Chunsoft au Japon Nintendo dans le reste du monde"....

exemple : https://fr.wikipedia.org/wiki/BioShock_(jeu_vid%C3%A9o)
ca garderait "Éditeur : 2K Games" et date "EUR : 29 août 2007" ou juste "2007" ?

 
  Réponses :
 
  1) Malgré le nom une vingtaine de jeux pointent sur une page générique au lieu de la page ad'hoc.
      L'année du Premier jeu ne correspond pas toujours à l'année de la plate-forme dans la page ad'hoc, mon capitaine …
      Exemple avec Splinter Cell :
      page générique du catalogue                      année du Premier jeu : 2002
      page ad'hoc du jeu année plate-forme (PC aka Windows) zone EUR : 2003 …
                            Et si cela avait été pour la PlayStation 3 l'année est 2011, un gouffre !
      Pour les pages génériques je peux récupérer l'année du Premier jeu donc peu importe la plate-forme
      entre accolades {2002} afin d'indiquer que p't'être ben qu'elle est bonne mais p't'être ben qu' non !
      Laissant ainsi la possibilité de corriger plus tard soit l'année soit le lien hypertexte …
 
      Si choix sur le Premier jeu alors je ferais de même pour les jeux dont l'année est indiquée entre parenthèses dans le nom du jeu (ou dans le lien).
 
  2) a) Voir : https://fr.wikipedia.org/wiki/Bioshock
                  https://fr.wikipedia.org/wiki/Bioshock_2
                  https://fr.wikipedia.org/wiki/Another_World_(jeu_vidéo)
                  https://fr.wikipedia.org/wiki/Age_o [...] e_of_Kings
                  https://fr.wikipedia.org/wiki/Age_of_Mythology
                  https://fr.wikipedia.org/wiki/Assas [...] Black_Flag
                  https://fr.wikipedia.org/wiki/Borderlands_(jeu_vidéo)
                  https://fr.wikipedia.org/wiki/Borde [...] of_Dr._Ned
                  https://fr.wikipedia.org/wiki/Far_Cry_3
                  https://fr.wikipedia.org/wiki/Far_Cry_4
                  https://fr.wikipedia.org/wiki/Half-Life_2
                  https://fr.wikipedia.org/wiki/Quake
                  https://fr.wikipedia.org/wiki/Retur [...] olfenstein
                  https://fr.wikipedia.org/wiki/Le_Se [...] aux_Online
                  https://fr.wikipedia.org/wiki/Driver_:_San_Francisco
                  https://fr.wikipedia.org/wiki/Watch_Dogs_(jeu_vidéo)
                  https://fr.wikipedia.org/wiki/Prey_(jeu_vidéo,_2006)
                  https://fr.wikipedia.org/wiki/Tomb_ [...] déo,_2013)
                  https://fr.wikipedia.org/wiki/Doom_64
 
  2) b) Avec une nouvelle idée : limiter à la largeur de la colonne …
 
  Oui en tenant compte de la zone géographique, pour Cadence of Hyrule seul restera Nintendo.
 
  Pour Bioshock comme Y est indiqué dans le titre de la colonne et non pas Date de sortie donc je suis parti sur l'année …
  A cause de l'inconsistance des pages Wiki de jeux j'ai codé pour le plus grand nombre et quand la plate-forme n'est pas trouvée selon un contexte précis
  - il y a plusieurs contextes, quand je code pour les moins nombreux cela casse ce qui marche pour les autres
    donc tous les contextes ne sont pas traités évitant ainsi la super usine à gaz -
  alors la première année trouvée est extraite …
  Même si l'année n'est pas extraite de la bonne ligne souvent c'est la bonne, coup de bol !
  Seule une page de jeu codée avec les pieds pose problème : Fez …
 
  S'il faut partir sur la date au lieu de l'année, autant mettre Date de sortie en titre de colonne mais il y aura donc plus d'erreurs d'extraction.
 

 
  Autre idée pour les pages génériques de jeux mais je n'ai pas encore étudié la faisabilité, cela dépendra de la constance sur ce point :
  si pas de Date de sortie alors remplacer la page par celle en lien dans Premier jeu …

1) j'aurais tendance à dire que si ca récupère déjà une année en fonction de la plateforme, c'est déjà pas mal. Si c'est faux pour quelques cas, ca se corrige à la main.

2) a) ah pardon j'ai oublié de supprimer des cas.... steam/multijoueur/J2ME j'avais vu mais pas vu de cas avec "level design, assistance," ok.

2) b) je pense qu'il faut rester sur l'année. Si en plus ca évite des erreurs c'est encore plus le meilleur choix.

>> le 2)b) semble le meilleur choix pour le script ?

Pour les pages génériques, j'aurais dit de ne rien remplir. Pour ces cas là, faudra remplir à la main. Si la grande majorité d'un tableau est rempli par le script, ca sera déjà très bien.

             A la Magdane « je récapépète depuis le début » : pour récupérer une année en fonction de la plate-forme
             il faut déjà ouvrir la page ad'hoc car la date de la page générique peut ne pas correspondre à celle de la plate-forme.
             Et je viens de vérifier, c'est bon depuis la page générique : si lien dans Premier jeu alors ce lien remplace la page générique,
             sinon l'année de la page générique est extraite entre accolades …
 
 

             Que supprimer ? Uniquement la partie entre parenthèses (incluses) ou la ligne complète société comprise ?

Désolé j'ai l'impression de ne pas bien tout comprendre par moment....
 
1) OK je pense avoir mieux compris. l'idée est bonne ca me va.
 

 
Dans ma réponse j'avais oublié de supprimer les éléments que j'avais trouvés dans les pages wikipédia de certains jeux. donc je cherchais des cas avec "level design" par exemple.
Mais j'ai compris qu'ils étaient tous entre parenthèses à cotés des noms d'éditeurs.
>> Pour le script, je dirais qu'il faut garder l'éditeur uniquement (pas l'élément entre parenthèse).

 
  Suite aux derniers tests, mise à jour de la liste des plates-formes : modifier Mac OS X en Mac et corriger Pocket en Pocket PC …
 
  Sinon en fin de la semaine dernière j'ai subi différents crashes, même parfois sans la procédure en cours d'exécution !
  Ou bien à l'ouverture du classeur, message fichier corrompu / endommagé etc …
  La récupération / réparation ne donnant rien (vague message problème de formules de calculs (?),  
  j'ai fini par perdre le dernier code, me remémorant quand même le squelette principal.
 
  Le lendemain voulant repartir de ton fichier téléchargé quand j'ai voulu dupliquer la feuille pour de futures comparaisons avant / après
  de nouveau le crash d'Excel donc j'ai commencé à douter de l'ordinateur : état du disque ok, vérification d'erreurs de la partition ok …
  J'ai testé la même opération de duplication d'une feuille d'un autre gros classeur : pas de souci.
  Je retente avec le tien : crash de nouveau …
  Donc pour conclure soit c'est une histoire d'incompatibilité entre ma version d'Excel et la tienne devant être bien plus récente, du genre 365,
  ou il y a vraiment un loup dans ce classeur.
  Du reste dans les classeurs récents d'Excel il y a un point d'exclamation dans l’icône de ce classeur téléchargé
  ce qui n'empêche pas de l'ouvrir mais après on connait la suite …
 
  Pour redémarrer je n'ai conservé que la feuille DATA dans un nouveau classeur puis ajout d'une nouvelle feuille pour le catalogue
  puis copie des données du fichier téléchargé pour les coller dans le nouveau classeur, ne prenant maintenant sans le superflu que 140 Ko …
 
  Depuis j'exporte le code dans un fichier texte - au cas où - et j'ai mis en place un double backup automatique lors de la sauvegarde :
  jusqu'à présent je n'ai plus eu de crash …
 
  Du coup j'ai pu intégrer dans la nouvelle version certains cas spéciaux (pages codées avec les pieds, ok maintenant pour Fez).
  Une procédure en cascade louvoyant entre les différents cas rencontrés parmi 382 web pages, pour ne pas dire une mini usine à gaz …
  Je pense en avoir fini mais avant de partager le code j'attends de pouvoir le tester sur une version plus récente de Windows et d'Excel
  afin d'éviter le souci rencontré avec la procédure du catalogue des BD.
 

Ah merde. beaucoup de bordel pour un fichier xlsm ?? surprenant que cela arrive "que" maintenant.
Pourtant mon fichier xlsm a été créé depuis une version 2019 pro de Office (win 11 pro 64b). Donc un pack office loin d'être le plus récent ou online comme 365.
 
Au cas où j'ai remis le fichier avec les plateformes à jour :
https://transfert.free.fr/KvlD35N

 
  En fait je codais sur une version précédente me servant de primo tests avant d'intégrer dans le dernier fichier téléchargé …
  Téléchargement du fichier du post précédent, test de copie de la feuille du catalogue dans un nouveau document : ok et merci.
 
  En attendant de pouvoir tester sur un Windows plus récent j'essaie d'affiner un peu mais déjà cela frise les 100% …
 

 
  Les jeux ci-dessous ont-ils une page Wiki ?
 
  Age of Mythology: Extended Edition
  Bioshock Infinite : Clash in the Clouds
  Bioshock Infinite : Tombeau Sous-Marin - 1ere partie
  Bioshock Infinite : Tombeau Sous-Marin - 2ème partie
  Duke Nukem 3D: 20th Anniversary Edition World Tour
  Nascar Racing 2005 Simracing
  NASCAR The Game: Inside Line
  NASCAR Heat 2
  Prince of Persia : L'Ame du Guerrier
  Project IGI-2 : Covert Strike
  Rise of Nations : Extended Edition
  SpellForce : The Breath of Winter
  Spore : Pack d'Eléments Etranges & Mignons
  The Elder Scrolls IV: Oblivion : The Shivering Isles
  The Elder Scrolls V: Skyrim - Dawnguard
  The Elder Scrolls V: Skyrim : Special Edition
  Race Driver : GRID
  Shift 2 Unleashed
  Fairy Bloom Freesia
  The Talos Principle : Road to Gehenna
  Supraland
  Castlevania Anniversary Collection
  TURRICAN ANTHOLOGY
  The Legend of Zelda : The Wind Waker HD
  The Legend of Zelda : Twilight Princess HD
 

 Age of Mythology: Extended Edition >> NON
  Bioshock Infinite : Clash in the Clouds >> NON
  Bioshock Infinite : Tombeau Sous-Marin - 1ere partie >> NON
  Bioshock Infinite : Tombeau Sous-Marin - 2ème partie >> NON
  Duke Nukem 3D: 20th Anniversary Edition World Tour >> NON
  Nascar Racing 2005 Simracing >> NON
  NASCAR The Game: Inside Line >> NON
  NASCAR Heat 2 >> NON
  Prince of Persia : L'Ame du Guerrier >> https://fr.wikipedia.org/wiki/Princ [...] u_guerrier
  Project IGI-2 : Covert Strike >> https://fr.wikipedia.org/wiki/I.G.I.-2:_Covert_Strike
  Rise of Nations : Extended Edition >> le jeu de base oui mais pas la version extended edition  https://fr.wikipedia.org/wiki/Rise_of_Nations
  SpellForce : The Breath of Winter >> NON / intégré au jeu de base https://fr.wikipedia.org/wiki/Spell [...] _of_Winter
  Spore : Pack d'Eléments Etranges & Mignons >> NON
  The Elder Scrolls IV: Oblivion : The Shivering Isles >> https://fr.wikipedia.org/wiki/The_E [...] ring_Isles
  The Elder Scrolls V: Skyrim - Dawnguard >> https://fr.wikipedia.org/wiki/The_E [...] _Dawnguard
  The Elder Scrolls V: Skyrim : Special Edition >> NON
  Race Driver : GRID >> https://fr.wikipedia.org/wiki/Race_Driver:_GRID
  Shift 2 Unleashed >> https://fr.wikipedia.org/wiki/Shift_2:_Unleashed
  Fairy Bloom Freesia >> NON
  The Talos Principle : Road to Gehenna >> NON (DLC)
  Supraland >> NON
  Castlevania Anniversary Collection >> NON
  TURRICAN ANTHOLOGY >> NON
  The Legend of Zelda : The Wind Waker HD >> NON / le remaster HD est dans cette page https://fr.wikipedia.org/wiki/The_L [...] Wind_Waker
  The Legend of Zelda : Twilight Princess HD >> NON / le remaster HD est dans cette page https://fr.wikipedia.org/wiki/The_L [...] t_Princess

Certains jeux n'avaient pas la bonne orthographe dans le tableau

 
  Ajout dans la liste des plates-formes : Europa-R …
 
  Sous Windows 11 parfois le texte renvoyé par une requête est différent de celui sous Windows 8.1,
  des lignes vides ou avec un espace pouvant être insérées de ci, de là …
  Cela m'a donc pris du temps pour vérifier & trouver un compromis;
  espérant que cela fonctionne de même de ton côté sinon tu devras débuguer par toi même, de longues soirées d'hiver en perspective !
 
  La démonstration ci-dessous se base sur les cellules vides de la colonne dénommée 'Y' de la table de la feuille active pour télécharger les données,
  donc bien vérifier les lignes à conserver - jeux sans page Wiki, consoles, … - n'ont pas cette cellule 'Y' vide.
  Les colonnes 'Jeux' & 'Plate-forme' ainsi après la colonne 'Y' les colonnes 'Développeur', 'Éditeur' & 'Genre' sont aussi nécessaires,
  une manque (ou ordre non respecté après 'Y') et la procédure s'arrête, tout comme si la colonne 'Y' n'a pas de cellule vide …
   
  Non référencé dans l'aide VBA : la méthode Evaluate bien utile pour allouer directement une variable Array
                                                 renvoie une erreur si la chaîne est supérieure à 255 caractères.
 
                                                 C'est la raison de la création de la variable G en plusieurs étapes.
 
  Pour un jeu à télécharger la priorité est donnée au lien hypertexte dans la colonne 'Jeux' s'il existe déjà
  - cela permet de modifier le nom du jeu selon ses préférences - ,
  sinon la procédure cherche une page Wiki associée au jeu devant comporter une classe 'infobox_v'.
  Sans cette classe une nouvelle tentative est effectuée en ajoutant à l'URL '_(jeu_vidéo)' s'il ne se termine pas déjà avec une parenthèse.
  Si la classe et 'Premier jeu' existent dans la page - donc page générique d'une saga - alors la procédure ouvre le lien de 'Premier jeu' s'il existe.
  Si au final la page Wiki n'est pas trouvée alors seule la colonne 'Y' est modifiée par un signe moins …
 
  Seules les pages ayant une ou plusieurs classes 'infobox_v3' sont traitées.
  Sans alors seule la colonne 'Y' est modifiée par un point d'exclamation (comme Sherman M4 et son 'infobox_v2').
  Avec et si la colonne 'Jeux' n'a pas de lien hypertexte alors le lien de la page trouvée est ajouté.
 
  Si la colonne 'Plate-forme' n'est pas renseignée alors seule la colonne 'Y' est modifiée par 'P-f?' …
 
  Sans 'Date de sortie' ni 'Premier jeu' dans la page alors la colonne 'Y' est affublée de trois points (The Elder Scrolls VI).
 
  Pour une page générique sans lien dans 'Premier jeu' alors l'année est extraite de 'Premier jeu' entre accolades
  (comme F.E.A.R. par exemple, si libellé FEAR sa page serait trouvée) …
 
  Si pas de date trouvée entre 1900 et 2099 alors la colonne 'Y' sera affectée par un point d'interrogation.
 
  Pour l'extraction de l'année je suis parti des cas les plus courants mais il y a trop de cas particuliers ou parfois une page codée avec les pieds (Fez) …
  Heureusement quand l'extraction ne s'effectue pas sur la bonne date l'année est souvent la bonne, coup de bol !
 
  Après le nettoyage des colonnes :
  - si la colonne 'Développeur' est vide et si 'Développeur' existe dans la page alors seule la première société est ajoutée.
  - Si la colonne 'Éditeur' est vide alors le contenu de 'Développeur' si non vide est copié entre accolades dans 'Éditeur' …
  - Si le texte de ces deux colonnes excède la largeur de la colonne alors le texte est tronqué auquel sont ajoutés trois points.
 
 
         Références utilisées :
 

• Microsoft HTML Object Library
• Microsoft VBScript Regular Expressions 5.5
• Microsoft WinHTTP Services, version 5.1

 
  Attention : une fois la procédure collée dans un module effectuer un Rechercher / Remplacer tout, la recherche sur  
                    un guillemet, un espace et une parenthèse fermante et remplacer par un guillemet et une parenthèse fermante
                    de sorte à supprimer l'espace malencontreux ajouté par ce site dans les chaînes de caractères du code !

Sub DemoReq1()
  Const I = 4, J = "Premier jeu", O = "https://fr.wikipedia.org", P = "\D?(19\d\d|20\d\d)\D?", Q = ", ", _
        E = "|.+\((Allemagne|AN|États-Unis|US|Australie|Italie|Japon|Russie)\b.*\s*|^(AN|AS|JAP|JPN|Édition)\b.+\s*" & _
            "|.+ au Japon\s*|^(Ainsi que :|Collaborations ?:|Travail additionnel:|Version originale)\s*" & _
            "|^(EUR?|INT) (: )?| \(.*Europe.*\)| dans le reste du monde|en collaboration avec |\[.+\]| ?\(.+\)"
    Dim oReq As New WinHttpRequest, oDoc As New HTMLDocument, oBox As Object, oTR As HTMLTableRow, _
        C, R, X, H%, W%(2 To 3), F, G, Y, Z, D, L&, V$, U$, N&, B%, M, S$(), A$, K(), T
     If ActiveSheet.ListObjects.Count = 0 Then Beep: Exit Sub
   With ActiveSheet.ListObjects(1).Range.Columns
        C = Application.Match([{"Jeux","Plate-forme","Y"}], .Rows(1), 0)
        If Application.Count(C) < UBound(C) Then Beep: Exit Sub
        R = Filter(Evaluate(Replace("TRANSPOSE(IF(#="""",ROW(#)))", "#", .Item(C(3)).Address)), False, False)
        If UBound(R) < 0 Then Beep: Exit Sub
        X = Application.Index(.Rows(1), 1, Evaluate("COLUMN(" & .Item(C(3)).Resize(, I).Address & " )" ))
        If Join(X) = "Y Développeur Éditeur Genre" Then X(1) = "Date de sortie" Else Beep: Exit Sub
        For H = 2 To 3:  W(H) = .Item(C(3) - 1 + H).ColumnWidth + 2.1:  Next
   End With
        F = Split("Jeu( vidéo)? de rôle|JRPG¤RPG§Jeu( vidéo)? d(e |')|\s+.+\(mobile\)| ?\[.*\]|,$|^\r\n| $¤" & _
                  "§Stratégie( en)?( temps réel)?¤STR§plates?-?formes?¤Plates-formes" & _
                  "§tir( en vue)? à la première personne( \(FPS\))?¤FPS" & _
                  "§tir( en vue)?( à la)? (troisièm|3)e personne¤TPS§\r\n| ?/ ?¤, ", "§" )
        ReDim G(UBound(F)):  For H = 0 To UBound(F):  G(H) = Split(F(H), "¤" ):  Next
        F = [{"Flag_of_France.svg","Flag_of_Europe.svg","Icons-flag-eu"}&".png"]
        Y = Evaluate(Replace("{""FRA?#"",""EUR?#"",""PAL#"",""INT#""", "#", "\b.+" & P) & ",""^[^J].*" & P & """}" )
        Z = ["*"&{"PC","Windows","DOS","Win"}&"*"]
   With Application
        D = .Transpose(Feuil3.ListObjects(1).DataBodyRange)
        If UBound(R) Then .Cursor = 2: .ScreenUpdating = False
   With New RegExp
       .Global = True:  .IgnoreCase = True:  .MultiLine = True
        On Error GoTo Fin
    For L = 0 To UBound(R)
        H = Cells(R(L), C(1)).Hyperlinks.Count
        V = Cells(R(L), C(1))
        If H Then U = Cells(R(L), C(1)).Hyperlinks(1).Address Else U = O & "/wiki/" & Replace$(V, " ", "_" )
        If L Then Application.StatusBar = "Sur " & UBound(R) + 1 & " requêtes : #" & L + 1
    Do
        oReq.Open "GET", U, False
        oReq.SetRequestHeader "DNT", "1"
        oReq.Send
        N = InStr(1, oReq.ResponseText, " class=""infobox_v", 1)
        B = H = 0 And oReq.Status = 200 And Not U Like "*)"
        M = N = 0 And B
     If M Then
        U = U & "_(jeu_vidéo)"
     ElseIf N * B Then
         S = Split(oReq.ResponseText, ">" & J & "</th>", , 1)
      If UBound(S) Then
         S = Split(Split(S(1), "</td>", , 1)(0), " href=""", , 1)
         M = UBound(S) > 1:   If M Then U = O & Split(S(2), """" )(0)
      End If
     End If
    Loop While M
    If oReq.Status = 200 And N Then
        oDoc.body.innerHTML = oReq.ResponseText
        Set oBox = oDoc.getElementsByClassName("infobox_v3" )
     If oBox.Length Then
         If H = 0 Then ActiveSheet.Hyperlinks.Add Cells(R(L), C(1)), U, , U
         A = Cells(R(L), C(2))
      If A > "" Then
          ReDim K(1 To I)
          S = Split(V, ": " )
      For N = 0 To oBox.Length - 1
       If N = 0 Or InStr(1, oBox(N).all(0).innerText, S(UBound(S)), 1) Then
          .Pattern = "Flag_of_|Icons-flag-"
       For Each oTR In oBox(N).getElementsByTagName("TR" )
        If oTR.Cells.Length > 1 Then
            H = Application.IfError(Application.Match(oTR.Cells(0).innerText, X, 0), 0)
' Année drapeau
         If H = 1 And .Test(oTR.innerHTML) Then
              S = Split(oTR.Cells(1).innerText, vbCrLf)
             .Pattern = P
          If .Execute(oTR.Cells(1).innerText).Count >= UBound(S) Then
             .Pattern = P & "<"
          For Each M In F
              B = 2 - (InStr(1, M, "Flag_of_", 1) > 0)
              S = Split(oTR.innerHTML, M, , 1)
              If UBound(S) >= B Then If .Test(S(B)) Then H = 0: K(1) = .Execute(S(B))(0).SubMatches(0): Exit For
          Next
          End If
         End If
            If H Then K(H) = oTR.Cells(1).innerText
        End If
       Next
           If Not IsEmpty(K(1)) Then Exit For
       End If
      Next
           B = A = "PC":  V = "(" & A & IIf(B, "|Windows)", " )" )
' Année
       If K(1) = "" Then
          .Pattern = J & "\s*" & P
           If .Test(oBox(0).innerText) Then K(1) = "{" & .Execute(oBox(0).innerText)(0).SubMatches(0) & "}" Else K(1) = "…"
       ElseIf InStr(K(1), vbLf) = 0 Then
          .Pattern = P:  If .Test(K(1)) Then K(1) = .Execute(K(1))(0).SubMatches(0) Else K(1) = "?"
       Else
           .Pattern = "^(\r\n)+|\n\r|\s+.+\s+\(Early Access\)|.*" & P & "\(accès anticipé\)|Accès anticipé\s+.+" & P & "\s+"
               K(1) = .Replace(K(1), "" )
           .Pattern = "Europe \(" & V & "\)\s+.+" & P:             H = -(.Test(K(1)))
            If H = 0 Then .Pattern = ".*" & V & "\b.*" & P & "$":  H = -(.Test(K(1))): If H = 0 Then _
                          .Pattern = P & "\s*\(.*" & V & "\b.*\)"
        If .Test(K(1)) Then
            K(1) = .Execute(K(1))(0).SubMatches(H)
        Else
            H = 0:  M = -1
           .Pattern = P
         If InStr(K(1), vbLf) Then
             If B Then T = Z Else T = Array("*" & A & "*" )
             S = Split(K(1), vbCrLf)
         For N = 0 To UBound(S)
          If .Execute(S(N)).Count = 1 Then
              If H = 2 Then S(N) = vbCr
          ElseIf Application.Count(Application.Match(T, Array(S(N)), 0)) And Not IsEmpty(M) Then
              If M < 0 Then M = N - 1
              For H = 0 To M:  S(H) = vbCr:  Next
              H = 1:  M = Empty:  S(N) = vbCr
          Else
              H = 2:  S(N) = vbCr:  If M < 0 Then M = N - 1
          End If
         Next
             T = Join(Filter(S, vbCr, False), vbLf):  If T > "" Then K(1) = T Else H = 0
         End If
             If InStr(K(1), vbLf) Then .Pattern = P & "\(France\)": If Not .Test(K(1)) Then .Pattern = P & "\(Europe\)"
         If .Test(K(1)) Then
             K(1) = .Execute(K(1))(0).SubMatches(0)
         Else
             If H Then U = "" Else U = " \(.*" & V & ".*\)"
         Do
         For Each M In Y
            .Pattern = M & U:  If .Test(K(1)) Then K(1) = .Execute(K(1))(0).SubMatches(0): Exit Do
         Next
             If U = "" Then K(1) = "?" Else U = ""
         Loop Until K(1) = "?"
         End If
        End If
       End If
' Développeur, Éditeur
          T = D
          M = Application.Match(A, T, 0): If IsNumeric(M) Then T(M) = False
          If B Then T(Application.Match("Windows", T, 0)) = False
          M = K(2)
          T = "(" & Join(Filter(T, False, False), "|" ) & " )"
          T = "\s+\(" & V & "\)|.*[^\(]" & V & "\b[^\)].*\s*|" & _
              ".+\s+\(" & T & ",?.*\)\s*|^" & T & "\r\n.+\s*|.*\(.*" & T & ".*\)\s*" & E
      For H = 2 To 3
         .Pattern = ",? Inc\.|^(\r\n)+":     K(H) = .Replace(K(H), "" )
         .Pattern = " puis " & IIf(InStr(K(H), vbLf), "", "|," )
                                             K(H) = .Replace(K(H), vbLf)
         .Pattern = " \(.*" & V & "\b.*\)":  K(H) = .Replace(K(H), "" )
         .Pattern = T:                       K(H) = .Replace(K(H), "" )
         .Pattern = "\s+$":                  K(H) = .Replace(K(H), "" )
         .Pattern = " - |\n ?":              K(H) = .Replace(K(H), Q)
          If Len(K(H)) > W(H) Then N = InStrRev(K(H), Q, W(H)): If N Then K(H) = Left(K(H), N - 1) & " …"
      Next
          If K(2) = "" And M > "" Then K(2) = Split(Split(M, vbCr)(0), " (" )(0)
          If K(3) = "" And K(2) > "" Then K(3) = "{" & K(2) & "}"
' Genre
          For Each M In G:  .Pattern = M(0):  K(4) = .Replace(K(4), M(1)):  Next
          S = Split(K(4), ", " )
          For N = 0 To UBound(S):  Mid(S(N), 1, 1) = UCase(Left(S(N), 1)):  Next
          K(4) = Join(S, Q)
          Cells(R(L), C(3)).Resize(, I) = K
      Else
          Cells(R(L), C(3)) = "P-f?"
      End If
     Else
         Cells(R(L), C(3)) = "!"
     End If
    Else
        Cells(R(L), C(3)) = "-"
    End If
        If L Mod 5 = 4 Then DoEvents
    Next
   End With
Fin:
       .Speech.Speak IIf(Err.Number, Err.Description, IIf(UBound(R), "Fini", "" )), True
       .StatusBar = False
       .Cursor = xlDefault
       .ScreenUpdating = True
   End With
        Set oBox = Nothing:  Set oDoc = Nothing:  Set oReq = Nothing
End Sub

merci pour ce script qui fonctionne chez moi à merveille dès le 1er test.
j'ai suivi la procédure et rencontré aucun souci en refaisant tout le tableau.
Bravo.

peut-on conclure que tout est fini ? ^^''

 
  Merci, cela me rassure car vu les soucis rencontrés sur une version récente de Windows …
 
  Cette procédure résulte des tests de 388 pages Wiki de jeux.
  Oui c'est fini si pas d'autre jeu posant problème, un cas spécial non rencontré.  
  Il y aurait bien un truc ou deux à affiner, comme les dates des drapeaux multi-plates-formes,
  la procédure récupérant uniquement les dates des drapeaux sans ou mono-plate-forme
  mais bon avec les coups de bols cela a permis de simplifier le code, en tout cas de l'alléger …

pour ceux que cela peut intéresser, petit récapitulatif lors de la création de votre fichier de catalogue de jeux;

- Créer un fichier excel XLSM
- Pour éviter les problèmes de fonctionnement, renommer l'onglet "Catalogue Games"
- Pour les colonnes du fichier il faut :

précisions :
>> jeux : il faut que le titre soit conforme à celui du site wikipedia
>> cover = pochette de jeux (soit lien hypertexte vers une image ou insertion dans un commentaire ou autre méthode)
>> Saga = si vous voulez regrouper des jeux pour famille/série/etc
>> Stock = pour savoir si vous l'avez encore ou non.
>> Y = YEAR - c'est pour l'année de sortie du jeu.

- suivre la procédure de Marc L du post https://forum.hardware.fr/forum2.ph [...] 0#t2472132
 (Script à copier dans un module)
- pour la colonne "_Infobox", pour rappel, voici le script (A copier dans la feuille du catalogue)

- pour la colonne "x", il s'agit juste de vérifier que des jeux ne soient pas en doublon avec

- un onglet nommé "DATA" avec un tableau des plateformes

-si vous le voulez, le sciript "wikipedia" permet de faire une recherche de la cellule sélectionnée (A copier dans un module).

• Si changement de police et / ou de taille pour les colonnes 'Développeur' et 'Éditeur' alors la troncature risque de moins bien se passer : le facteur de correction de 2.1 de la ligne de code n°16 de ma démonstration devrait être modifié. C'est plus facile à gérer avec une police fixe, non proportionnelle …

• Je viens d'apprendre par une source Microsoft récente dans une future version de Windows - fenêtre entre deux et cinq ans - la dll du VBScript serait retirée, rendant ainsi caduques mes démonstrations - BD & jeux - car en VBA adieu le moteur RegExp pour les expressions relationnelles bien pratiques pour l'extraction et le nettoyage de textes. Pour l'instant je n'ai pas d'alternative aussi puissante, peut-être injecter un code JScript en VBA et adieu le débogage ! Ou bien trouver une autre dll. Ou encore copier la dll VBScript d'un ancien Windows pour pouvoir la référencer dans un projet VBA mais je n'ai aucune idée si cela suffira …

ok... merci pour l'info.
On va croiser les doigts pour en profiter un maximum d'années avant le changement fatidique

 
  Oui d'ici là Microsoft évitera cette connerie, sait-on jamais …
 
  Et puis depuis peu dans la versions bêta de la future mouture d'Excel 365 des fonctions de feuille de calculs afférentes à RegExp ont été ajoutées
  donc au pire si VBA pourrait utiliser ces nouvelles fonctions cela devrait limiter la casse. Par contre quid pour les anciennes versions d'Excel …