Discussion :

[Tinien]

Bonjour,

j'ai créer avec l'aide de ce forum il y a quelques temps une macro qui permet de compiler un dossier de fichier en retranscrivant toutes lles données dans une seule feuille.
J'ai besoin de faire la même chose mais avec des fichiers .xml j'aurais quelque peu besoin d'aide.

Je vous transmet le script

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
23
24
25
26
27
28
29
30
31
32
Sub Compilateur()
 
Dim tabString() As String
Dim chemin As String, nomFich As String, myString As String
Dim i As Long, a As Integer
 
chemin = "\\'URL'\"
 
nomFich = Dir(chemin & "*.dta") 'liste les *.dta
 
'importation des données :
i = 2
 
Do While nomFich <> ""
    Open chemin & nomFich For Input As #1 'on ouvre le fichier
    Do While Not EOF(1) 'on boucle dessus jusqu'à sa fin
 
        Line Input #1, myString
        myString = Replace(myString, " ", "") 'sert à virer les espaces inutiles vu que t'as que des nombres
 
        'on ventile en x champs selon les séparateurs ";" et on met dans un tableau
        tabString = Split(myString, ";")
 
        For a = 0 To UBound(tabString)
            Cells(i, a + 1) = tabString(a)
        Next a
        i = i + 1
    Loop
    Close #1
    nomFich = Dir() 'passe au fichier suivant
Loop
End sub

le code pour convertir le xml dans un format lisible est le suivant :

Code :

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

    Workbooks.OpenXML strnomfich, LoadOption:=xlXmlLoadImportToList

Merci pour votre aide

[ouskel'n'or]

Explique-nous tout
Quel est le format d'un fichier ".dta" ? Est-ce un fichier texte ?
Si oui, quelle est la structure des données à l'intérieur d'un ".dta" ? (Quel est le séparateur de données ? le séparateur décimal ?...)
Tu dis

[Tinien]

Euh le format dta n'est pas intéréssant, c'est le format que j'utilisais pour lla macro d'avant.

Je vous ais remis la macro de base. la nouvelle dois compiler des fichiers en .xml mais cela ne se fai pas aussi simplement qu'avec le dta.

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
23
24
25
26
27
28
29
30
31
32
33
34
Sub Compilateurxml()
 
Dim tabString() As String
Dim chemin As String, nomFich As String, myString As String
Dim i As Long, a As Integer
 
chemin = "\\...."
 
nomFich = Dir(chemin & "*.xml") 'liste les *.xml
 
'importation des données :
i = 2
 
Do While nomFich <> ""
    Open chemin & nomFich For Input As #1 'on ouvre le fichier
  '' ligne a vérifier :  Workbooks.OpenXML strnomfich, LoadOption:=xlXmlLoadImportToList
    Do While Not EOF(1) 'on boucle dessus jusqu'à sa fin
 
        Line Input #1, myString
        myString = Replace(myString, " ", "") 'sert à virer les espaces inutiles vu que t'as que des nombres
 
        'on ventile en x champs selon les séparateurs ";" et on met dans un tableau
        tabString = Split(myString, ";")
 
        For a = 0 To UBound(tabString)
            Cells(i, a + 1) = tabString(a)
        Next a
        i = i + 1
    Loop
    Close #1
    nomFich = Dir() 'passe au fichier suivant
Loop
 
End Sub

Celui ci est pour les xml mais il ne fonctionne pas

[ouskel'n'or]

Ok, mais aussi pourquoi parler du dta alors que ton pb concerne les xml
As-tu testé l'ouverture d'Excel -> Fichier -> Ouvrir -> Ton fichier.xml ?
C'est une vraie question