Problème utilisation de split sous excel VBA

Version imprimable

15/10/2015, 19h26
leo34400

4 pièce(s) jointe(s)

Problème utilisation de split sous excel VBA

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.
Pièce jointe 190293

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 :)
Pièce jointe 190296
15/10/2015, 19h31
SfJ5Rpw8

Bonjour,

pourriez tu plutôt nous mettre une version texte de ton fichier XML plutôt qu'une image inexploitable ...?
15/10/2015, 19h46
leo34400

Ajout fichier TXT

Ca était rajouté
15/10/2015, 19h50
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
15/10/2015, 19h58
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 :/
15/10/2015, 20h16
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 ..?

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:

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

j'ai ajouté les entete et la matiere

Code:

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

15/10/2015, 21h38
leo34400

Merci !!

Je vais essayer,
un très grand merci !!
03/11/2015, 19h20
leo34400

1 pièce(s) jointe(s)

Problème similaire

Bonjour,
Ceci est mon nouveau problème presque identique à l'autre
J'ai un soucis concernant la réalisation d'un tableau en VBA à partir d'un fichier .txt
Le fichier en question est écrit en XML (c'est un fichier avec les coordonnées latitude, longitude,...)
Et j'aimerai extraire uniquement le numéro du point, la latitude, la longitude, la hauteur.
Pour obtenir simplement le tableau suivant:

Point Latitude Longitude Hauteur
1 12.23 11.21312 11.1
... ...... ..... .....
n ...... ...... .....

Je bloque complètement.
J'arrive à amener le fichier dans excel mais pas la réalisation du tableau en utilisant la fonction split...
Pourriez-vous m'aider ?
Le fichier est le suivant Pièce jointe 191758
Merci !!

bonjour
et ben dis donc

alors methode c'est la meme
allez on prends le meme et on recommence 't'en fait pas charlie c'est qu'un tango dis moi que ce code ci dessous te rappelle rien hein !!!!!!!!!!!!!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub xmltoexcel()
Dim laChaine As String, x, fichier As String
Dim tabfinal, tabnum, tabname
fichier = "C:\Users\polux\Desktop\test.txt"
x = FreeFile
 Open fichier For Input As #x
      laChaine = Input(LOF(x), #x)
  Close #x
 MsgBox laChaine
 tabnum = Split(laChaine, "<coordinates>")
 
ReDim tabfinal(UBound(tabnum), 5)
MsgBox UBound(tabnum)
For i = 1 To UBound(tabnum)
tabnum(i) = Split(tabnum(i), "</coordinates>")(0)
tabfinal(i - 1, 0) = Left(Split(tabnum(i), ",")(0), 1)
tabfinal(i - 1, 1) = Mid(Split(tabnum(i), ",")(0), 2, Len(tabnum(i)))
tabfinal(i - 1, 2) = Split(tabnum(i), ",")(1)
tabfinal(i - 1, 3) = Split(tabnum(i), ",")(2)
tabfinal(i - 1, 4) = tabnum(i)'j'ai mis les coordonnées entiere dans la deniere colonne pour un visuel 
Next
Cells(2, 1).Resize(UBound(tabfinal), 5) = tabfinal
End Sub

la prochaine c'est payant (2 orange et 3 bannanes )
0 + 0 = la tete a toto :ptdr::ptdr:

04/11/2015, 03h11
clementmarcotte

1 pièce(s) jointe(s)

Bonjour,

Si son fichier texte n'était pas du xml de broche à foin et qu'il était mis et importé au format xml, il aurait cela avec un filtre en prime. (Excel 2010)