[E-03] Besoin d'aide pour l'adaptation d'un script vba sur excel

Version imprimable

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:

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:

Workbooks.OpenXML strnomfich, LoadOption:=xlXmlLoadImportToList

Merci pour votre aide

23/02/2009, 10h22
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

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:

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

23/02/2009, 11h17
ouskel'n'or

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