Récupération du contenu de balises dans des fichiers XML
Bonjour,
Je souhaiterais pouvoir récupérer, le plus automatiquement possible, les données suivantes intégrées dans plein de fichiers XML, contenus dans un dossier avec des sous-dossiers.
Tout d'abord, une boîte de dialogue pour demander où se trouve le dossier.
Ensuite :
Col A : le nom du dossier
Col B : le nom du sous-dossier
Col C : le nom du fichier
Col D et les suivantes : balise (je pourrais paramétrer)
Merci à tout ceux qui pourront m'aider !
Seb78
Après avoir avancé certains autres points, je vais pouvoir simplifier ma demande.
En colonne E, j'ai l'adresse des fichiers. Il faudrait que pour les XML, je puisse ouvrir chaque fichier et récupérer quelques balises :
Col G : Titre
Col H : Date
Col I : Résumé.
Merci,
Seb78
Bonjour,
Voici le type d'XML.
Concernant les balises, comme je le disais au premier message, il faudrait que je puisse ajouter ou retirer d'autres balises...
Merci,
Seb78
Bonjour Seb78
en ouvrant le fichier XML téléchargé , en mettant dans la boite de dialogue Ouvrir "*.*", Excel me propose :
L'import me donne alors
puis plus à droite (ci-dessus)
j'ai fait une liste des champs de la ligne 2 avec le code
Sub listerColonnes()
Dim nbCol, iCol
Dim sh As Worksheet
Set sh = Sheets("dmc-anonymise")
nbCol = sh.UsedRange.Columns.Count
Open Environ("TEMP") & "\listCol.txt" For Output As #1
For iCol = 1 To nbCol
Print #1, sh.Cells(2, iCol)
Next
Close #1
End Suble fichier résultat ici
Il reste à faire le mapping entre les colonnes du fichiers XML pour les données que tu souhaites
car je ne trouve pas : nom de dossier, nom de sous-dossier, nom de fichier, titre, date et résumé??
Sinon il s'agirait d'une simple recopie de colonnes dans une nouvelle feuille?
Je pense que j'aurais du commencer par là...
Voici le fichier Excel.
Il vient reprendre tous les xml dans l'arborescence.
Du coup, on trouve :
en col A le nom du dossier de tête
en col B le nom du dossier
en col C le nom du sous-dossier
en col D le nom de l'xml
en col E son url.
J'aimerais qu'en cliquant sur Bouton 6, il mette en col J, K et L, les contenus de balises (que je pourrais remplacer dans le code).
Mais il peut y avoir beaucoup de fichiers à traiter.
Merci en tout cas pour votre aide !
Seb78
BrunoM45
'Moi je ne pense pas, j'en suis certain' : Je n'ai pas votre stature et je peux comprendre que l'on peut toujours trouver à redire.
S'agit t'il d'un cahier des charges incomplet, j'ai l'impression qu'ils le sont tous. Certaines choses m'échappent comme souvent.
J'ai eu l'impression que l'auteur maitrisait VBA, sauf si...
Salut Scraper
Je n'ai aucune stature particulière
il est bon de partager ce dernier afin de pouvoir tester et vérifier
A+
Merci Scraper, ça a été long, mais j'ai enfin pu utiliser ta fonction.
Seb78