Importer en Excel des données d’un fichier XML
Bonjour à tout le monde.
La situation: en Excel 2003, je fais des index de fichiers XML. C’est un code pris ici : www.cpearson.com/Excel/DownloadFile.aspx et qui fonctionne très bien après quelques adaptations à mon cas ; il est très long et compliqué, raison pour laquelle je ne le copie pas ici.
Pour résumer, l’utilisateur colle en Excel une liste de messages (ce sont des fichiers XML), ensuite lance une macro qui télécharge les fichiers XML en les mettant dans le répertoire approprié, ensuite la liste est re-linkée vers les nouveaux emplacements des fichiers et publiée en HTML pour une utilisation collective.
Et jusqu’ici tout va bien.
Maintenant, je voudrais faire un pas en avant.
En effet, nos messages en XML ont souvent des pièces jointes (chez nous, on dit « Allegati »), et ils sont téléchargés dans le même répertoire, manuellement parce que je n’ai pas su ajouter cette fonction. Dans le fichier XML il y a des mentions : « Allegato 1 : monfichier.doc, Allegato 2 : unautrefichier.pdf, Allegato 3 : ledernier.xls ». Le pas en avant que je voudrais faire est constitué de deux volets :
1) Fouiller dans le XML et charger dans une variable Excel le nom du fichier qui suit la mention « Allegato 1 », puis s’il y a lieu « Allegato 2 » et ainsi de suite. C’est la partie la plus importante.
2) Voir s’il est possible, toujours en entrant avec Excel dans le fichier XML, de prélever dans une variable le lien vers le fichier cité après « Allegato… » afin de le télécharger ensuite avec la même méthode utilisée pour le fichier XML.
Or, je ne trouve nulle part un moyen de prélever un petit bout du contenu d’un fichier XML.
Je suppose qu’il sera utile de montrer la structure (une petite partie seulement) d’un de ces fichiers XML :
Code:
1
2
3
4
5
6
7
8
9
10
11
| <Gruppi><Gruppo acronimo="MIEIACRO"><Mailbox acronimo="141">SP - Segreteria Particolare</Mailbox><Mailbox acronimo="142">SP2 – Segreteria particolare 2</Mailbox><Mailbox acronimo="145"> SP2 – Segreteria particolare 5</Mailbox></Gruppo></Gruppi>
<Allegati>
<Allegato nome_file_server="2480100A_20101001135240.A01" nome_file="International_Commission_against_the_death_penalty.pdf">International_Commission_against_the_death_penalty.pdf</Allegato>
<Allegato nome_file_server="2480100A_20101001135240.A02" nome_file="Strategies_for_discussion_by_the_support_group_28_September_2010_AVC_.pdf">Strategies_for_discussion_by_the_support_group_28_September_2010_AVC_.pdf</Allegato>
<Allegato nome_file_server="2480100A_20101001135240.A03" nome_file="Declaration_on_the_establishment_and_functioning_of_the_international_commission_against_the_death_penalty.pdf">Declaration_on_the_establishment_and_functioning_of_the_international_commission_against_the_death_penalty.pdf</Allegato>
</Allegati>
<ContenutoDocumento>
<TipoCifra/>
<Oggetto>COSTITUZIONE DI UNA COMMISSIONE CONTRO LA PENA DI MORTE.
</Oggetto> |
Quelqu’un pourrait me filer un coup de main ?:cry:
Merci d’avance !
