ouverture de fichiers XML

Bonjour,

Je suis en train d'écrire une procédure pour ouvrir les fichiers d'un répertoire un à un. Je sais le faire s'il s'agit de fichiers xls:

Code:

---

Set Wb = Workbooks.Open(chemin)

---

Est-ce qu'il existe une syntaxe particulière pour ouvrir un XML de façon semblable?

Alex

Bonjour,
A ma connaissances, que tu ouvres un fichier Excel ou xml, la procédure devrait rester la même normalement..
Peut être qu'après ouverture, il te posera les questions habituelles :
- Séparateur
- Fixe ou variable
- etc...

Si jamais il te le demande, via l'enregistreur de macro, tu peux récupérer le code pour automatiser cette partie la....

Tu peux aller faire un tour ici.

Citation:

---

Citation Helios777

A ma connaissances, que tu ouvres un fichier Excel ou xml, la procédure devrait rester la même normalement..

---

Ce n'est pas correct. Le fichier XML n'est pas un workbook. Suivre la méthode de CASAVBA pour manipuler les XML. ;)

Désolé mais dans la méthode de CASAVBA, on trouve ceci

Code:

---

1 2 3

Workbooks.OpenXML Filename:= _ "C:\dossier\NomFichier.xml", _ LoadOption:=xlXmlLoadImportToList

---

L'ouverture se fait bien via une méthode de la classe Workbooks
Après, dans la liste des méthode s'ouvrant, il parait logique de plut^pot prendre OPenXML que Open tout court

Merci pour vos précisions les gars!

Citation:

---

Workbooks.OpenXML Filename:= _
"C:\dossier\NomFichier.xml", _
LoadOption:=xlXmlLoadImportToList

---

C'est une procédure pour Excel 2007, je ne peux pas l'utiliser...

En fait un mappage n'est pas tout à fait ce que je souhaite faire. Mon code prend le xml et écrit chaque ligne dans une cellule. Le but étant de comparer des xml ligne à ligne. Il ressemble à:

Code:

---

1 2 3 4 5 6 7 8 9

Open Chemin For Input As #1 k = 1 Do While Not (EOF(1)) Input #1, Str_XML Sheets("Feuil1").Cells(k, 1) = Trim(Str_XML) k = k + 1 Loop   Close 1

---