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