Discussion :

[sash6]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Set Wb = Workbooks.Open(chemin)

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

Alex

[helios77]

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....

[casavba]

Tu peux aller faire un tour ici.

[Godzestla]

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.

[helios77]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[sash6]

Merci pour vos précisions les gars!

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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