Ouverture de fichier xml dans archive zip

[tbft]

Bonjour

Je souhaiterai ouvrir des fichiers xml.
Mais ces fichiers sont dans des archives zip.

Je pourrais les dé-zipper.Mais vue le nombre le nombre d'archive, je ne pourrais pas m'en sortir.

Si quelqu'un a une idée, je suis preneur...

D'avance merci.

 

[david84]

Re : Ouverture de fichier xml dans archive zip

Bonjour,
une petite recherche sur le net m'a conduit vers une réponse de kiki29 ici.
Peut-être une piste à adapter à ton cas.
A+

 

[tbft]

Re : Ouverture de fichier xml dans archive zip

merci beaucoup

J'essaye des que j'ai 5 minutes... et je reviens vous donner des nouvelles...

 

[tbft]

Re : Ouverture de fichier xml dans archive zip

Bonjour tout le monde

J'ai enfin pu commencer les essais.
J'ai adapté (j'essaye) le code à mon fichier.
Mais il ne reconnait pas (apparament) l'instruction Namespace.
Pouvez-vous m'aider, svp?
D'avance merci.

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

Ajout:

 

[tbft]

Re : Ouverture de fichier xml dans archive zip

Re bonjour

Je pense avoir trouvé ou ce trouve l'erreur....
L'instruction Trav.Namespace(toto) ne fonctionne pas si toto est déclaré en tant que string mais elle fonctionne si elle est déclaré en variant....

Je ne sais pas pourquoi. Si quelqu'un a la solution, je suis preneur.....

D'avance merci.