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

Sub testv2()
    Dim bm As New cBenchmark
    Debug.Print "Test de : ListfeuilleXmlTarV1 avec Tar+ split "
    bm.TrackByName "debut ListfeuilleXmlTarV1"
    xlsxPath = fichier
    bm.TrackByName "fin ListfeuilleXmlTarV1"
    MsgBox Join(ListfeuilleXmlTarV1(xlsxPath), vbCrLf)
End Sub

Sub testv2()
    Dim xlsxPath$, bm As New cBenchmark, outStr$
    bm.Start
    xlsxPath = FicTest
    outStr = Join(ListfeuilleXmlTarV1(xlsxPath), vbCrLf)
    bm.TrackByName "v2"
    MsgBox outStr
End Sub

'
'patricktoulon
'version sans fichier intermédiaire
Sub testv6()
    'Dim bm As New cBenchmark
    'Debug.Print "Test de : ListfeuilleXmlTarV1 avec Tar+ split "
    'bm.TrackByName "debut ListfeuilleXmlTarV3"
    xlsxPath = "C:\Users\patricktoulon\Desktop\Classeur1.xlsx"
    'bm.TrackByName "fin ListfeuilleXmlTarV3"
    MsgBox Join(ListfeuilleXmlTarV3(xlsxPath), vbCrLf)
End Sub


Function ListfeuilleXmlTarV3(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
    
    
    ' Extraire directement le contenu du fichier sans créer l'arborescence et DIRECTEMENT DANS LE CLIP!!!!!
    cmd = "cmd /c tar -xOf """ & xlsxPath & """ xl/workbook.xml | clip"
    
    Set objShell = CreateObject("WScript.Shell")
    result = objShell.Run(cmd, 0, True) 'visiblement pas d'erreur mais ça bloque ici
    If result <> 0 Then ListfeuilleXmlTarV3 = Array(): Exit Function
    DoEvents
    
    'récupération du code XML dans le clipboard
    With CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") 'LATEBINDING
        .GetFromClipboard
        xmlcontent = .GetText
    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
    ListfeuilleXmlTarV3 = tx 'le return c'est le tableau tx
    
End Function

Test de : ListfeuilleXmlTarV3 avec Tar+ split
IDnr  Name                       Count  Sum of tics  Percentage  Time sum
0     debut ListfeuilleXmlTarV3      1          106      82,81%     11 us
1     fin ListfeuilleXmlTarV3        1           22      17,19%   2200 ns
      TOTAL                          2          128     100,00%     13 us

Total time recorded:             13 us