XL 2016 VBA - Trouver les feuilles d'un classeur fermé

cmd = "tar -xf """ & xlsxPath & """ -C " & tempFolder & " xl/workbook.xml"

cmd = "tar -xf """ & xlsxPath & """ -C """ & tempFolder & """ xl/workbook.xml --strip-components=1"

Sub testv5()
    xlsxPath = "C:\Users\patricktoulon\Desktop\Classeur1.xlsx"
    MsgBox Join(ListfeuilleXml(xlsxPath), vbCrLf)
End Sub


Function ListfeuilleXml(xlsxPath)
    Dim tempFolder As String, xmlPath As String
    Dim xmlContent As String
    Dim cmd As String, objShell As Object
    
    ' Chemin de ton fichier Excel fermé
    ' Dossier temporaire
    tempFolder = ThisWorkbook.Path
    
    xmlPath = tempFolder & "\workbook.xml"
    ' --- Étape 1 : Extraction de workbook.xml avec tar ---
    
    ' Extraire directement le contenu du fichier sans créer l'arborescence
    cmd = "cmd /c tar -xOf """ & xlsxPath & """ xl/workbook.xml > """ & xmlPath & """"
        
    Set objShell = CreateObject("WScript.Shell")
    result = objShell.Run(cmd, 0, True)
    If result <> 0 Then ListfeuilleXml = Array(): Exit Function
    DoEvents
    X = FreeFile
    Open xmlPath For Binary Access Read As #X: xmlContent = String(LOF(X), " "): Get #X, , xmlContent: Close #X
    
    t = Split(xmlContent, "<sheet name=""") 'on coupe le texte par les ouvertures de balise "sheet"
    ReDim tx(1 To UBound(t) + 1) 'on dimensionne un tableau de même taille que le split EN BASE 1!!!!!
    For I = 1 To UBound(t)
        tx(I) = Split(t(I), """")(0) 'on prends que la partie qui nous intéresse donc ni plus ni moins que l'attribut name
    Next
    ListfeuilleXml = tx 'le return c'est le tableau tx
    Kill xmlPath 'on supprime le xml temporaire qui a été extrait
    
End Function

Sub ExtraireNomFeuille(xmlstring)
    Dim regEx As Object, matches As Object, match As Variant, sheetNames As String
    ' Créer une instance de l'objet RegExp
    Set regEx = CreateObject("VBScript.RegExp")
    ' Définir l'expression régulière pour capturer tous les noms de feuille
    regEx.IgnoreCase = True: regEx.Global = True
    regEx.Pattern = "sheet name=""([^""]+)"""
    ' Trouver toutes les correspondances
    Set matches = regEx.Execute(xmlstring)
    ' Afficher les résultats dans une boîte de message ou dans la fenêtre Immediate
    For Each match In matches
        sheetNames = sheetNames & match.SubMatches(0) & vbCrLf
    Next match
    ' Afficher les noms des feuilles extraits
    If Len(sheetNames) > 0 Then
        MsgBox "Noms des feuilles : " & vbCrLf & sheetNames
    Else
        MsgBox "Aucun nom de feuille trouvé."
    End If
    Set regEx = Nothing
End Sub

   xDoc.Load fichierxml
    ' Ajouter espace de noms pour les feuilles
    xDoc.SetProperty "SelectionNamespaces", "xmlns:ss='http://schemas.openxmlformats.org/spreadsheetml/2006/main'"
    ' Compter les feuilles pour redimensionner le tableau
    Dim nbFeuilles As Integer
    nbFeuilles = xDoc.SelectNodes("//ss:sheets/ss:sheet").Length
    ReDim TbL(1 To nbFeuilles)
    X = 1
    ' Parcourir les noeuds <sheet>
    For Each noeud In xDoc.SelectNodes("//ss:sheets/ss:sheet")
        TbL(X) = noeud.Attributes.getNamedItem("name").Text
        X = X + 1
    Next

'patricktoulon

Sub testv5()
    xlsxPath = "C:\Users\patricktoulon\Desktop\Classeur1.xlsx"
    MsgBox Join(ListfeuilleXml(xlsxPath), vbCrLf)
End Sub


Function ListfeuilleXml(xlsxPath)
    Dim tempFolder As String, xmlPath As String
    Dim xmlcontent As String
    Dim cmd As String, objShell As Object
   
    ' Chemin de ton fichier Excel fermé
    ' Dossier temporaire
    tempFolder = ThisWorkbook.Path
   
    xmlPath = tempFolder & "\workbook.xml"
    ' --- Étape 1 : Extraction de workbook.xml avec tar ---
   
    ' Extraire directement le contenu du fichier sans créer l'arborescence
    cmd = "cmd /c tar -xOf """ & xlsxPath & """ xl/workbook.xml > """ & xmlPath & """"
       
    Set objShell = CreateObject("WScript.Shell")
    result = objShell.Run(cmd, 0, True)
    If result <> 0 Then ListfeuilleXml = Array(): Exit Function
    DoEvents
    'X = FreeFile
    'Open xmlPath For Binary Access Read As #X: xmlcontent = String(LOF(X), " "): Get #X, , xmlcontent: Close #X
   Dim stream as object 
    Set stream = CreateObject("ADODB.Stream")
        With stream
        .Type = 2 ' adTypeText
        .Charset = "utf-8"
        .Open
        .LoadFromFile xmlPath
        xmlcontent = .ReadText
        .Close
    End With
   
    t = Split(xmlcontent, "<sheet name=""") 'on coupe le texte par les ouvertures de balise "sheet"
    ReDim tx(1 To UBound(t) + 1) 'on dimentionne un tablkeau de même taile que le split EN BASE 1!!!!!
    For I = 1 To UBound(t)
        tx(I) = Split(t(I), """")(0) 'on prends que la partie qui nous interesse donc ni plus ni moins que l'attribut name
    Next
    ListfeuilleXml = tx 'le return c'est le tableau tx
    Kill xmlPath 'on supprime le xml temporaire qui a été extrait
   
End Function