Discussion :

[leo34400]

Bonjour,
J'ai un soucis en programmation VBA excel.
Je suis enseignant et j'aimerai classer mes élèves dans un tableau excel ayant comme pour première colonne le numéros dans ma liste,deuxième colonne leurs prénom, puis leur age et enfin le lieux d'où ils viennent.

Tableau final en photo ci-dessous.


Le problème est que toutes ces informations sont dans un fichier .XML


J'ai réussi à faire mon programme permettant d'aller chercher le fichier .XMLdans mes dossiers mais je bloque sérieusement sur pour sélectionner les données qui m'intéresse dans le fichier .txt.
Je saisque je dois utiliser split pour fragmenter avec les virgules mais je ne sais pas comment lui dire où commencer et ou finir.
Ce sont des listes d'environ 30 étudiant à chaque fois.
Pouvez m'aider,
Merci
Classe.txt

[SfJ5Rpw8]

Bonjour,

pourriez tu plutôt nous mettre une version texte de ton fichier XML plutôt qu'une image inexploitable ...?

[leo34400]

Ca était rajouté

[patricktoulon]

bonjour

deja c'est un fichier XML bien mal structuré

les "numero X" sont parfois dans des nodes "name" parfois dans des nodes "groupe"

la seule option que tu a visiblement c'est de faire les premiers split par "numero" qui semble etre récurrent dans le meme ordre a chaque fois

ne cherche pas a le faire par les balises

autant pour moi le fichier semble etre bon et différent de ta capture d'ecran

[leo34400]

Oui j'avais essayé des choses qui n'ont pas fonctionnées mais j'ai remisle post à jour.

Mais je vos pas comment réaliser les trois colonnes avec split :/

[SfJ5Rpw8]

Comment est généré ce fichier XML ...

il manque des choses est-ce que c'est toi qui les volontairement enlevées ?

fermeture des balises Scientifique , STMPG , Literraire du genre </Scientifique> ..?

balises </document> , </kml> à la fin du document ..?

[patricktoulon]

si il n'est pas prevu plusieurs personnes dans une balise classe alors comme tes balises sont mal fermées je me suis servi comme je te l'ai dis plus haut des récurences a savoir "Numero,prenom"
adapte le chemin de ton fichier en rouge

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub xmltoexcel()
Dim laChaine As String, x, fichier As String
Dim tabfinal, tabnum, tabname
fichier = "C:\Users\polux\Desktop\Classe.txt"
x = FreeFile
 Open fichier For Input As #x
      laChaine = Input(LOF(x), #x)
  Close #x
 tabnum = Split(laChaine, "Numero")
  tabname = Split(laChaine, "<prenom>")
ReDim tabfinal(UBound(tabnum), 4)
MsgBox UBound(tabnum)
For i = 1 To UBound(tabnum)
tabfinal(i - 1, 0) = "Numero" & Split(tabnum(i), "<")(0)
tabfinal(i - 1, 1) = Split(tabname(i), ",")(0)
tabfinal(i - 1, 2) = Split(tabname(i), ",")(1)
tabfinal(i - 1, 3) = Split(Split(tabname(i), ",")(2), "<")(0)
Next
Cells(1, 1).Resize(UBound(tabfinal), 4) = tabfinal
End Sub

[patricktoulon]

j'ai ajouté les entete et la matiere

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub xmltoexcel()
Dim laChaine As String, x, fichier As String
Dim tabfinal, tabnum, tabname
fichier = "C:\Users\polux\Desktop\Classe.txt"
x = FreeFile
 Open fichier For Input As #x
      laChaine = Input(LOF(x), #x)
  Close #x
 tabnum = Split(laChaine, "Numero")
  tabname = Split(laChaine, "<prenom>")
ReDim tabfinal(UBound(tabnum), 5)
MsgBox UBound(tabnum)
For i = 1 To UBound(tabnum)
tabfinal(i - 1, 0) = "Numero" & Split(tabnum(i), "<")(0)
tabfinal(i - 1, 1) = Split(tabname(i), ",")(0)
tabfinal(i - 1, 2) = Split(tabname(i), ",")(1)
tabfinal(i - 1, 3) = Split(Split(tabname(i), ",")(2), "<")(0)
tabfinal(i - 1, 4) = Replace(Split(Split(tabnum(i), "</Groupe>")(1), ">")(0), "<", "")
Next
Cells(1, 1).Resize(1, 5) = Array("NUMERO", "PRENOM", "AGE", "VILLE", "MATIERE")
Cells(2, 1).Resize(UBound(tabfinal), 5) = tabfinal
End Sub