Ouverture de fichier xml dans archive zip

Function Fichier_Décompression(ByRef Nom_Fichier As String, ByRef Nom_Repertoire_Source As String, ByRef Nom_Repertoire_Destination As String) As Boolean
'Necessite d'activer la reference Microsoft Shell Controls and Automation
Dim Trav As Object 'oApp
  Fichier_Décompression = False
  Set Trav = CreateObject("Shell.Application")
  Trav.Namespace(Nom_Repertoire_Source + "\" + Nom_Fichier).CopyHere Trav.Namespace(Nom_Repertoire_Destination).items
  Set Trav = Nothing
End Function