Discussion :

[danval25]

bonjour à tous,

je dois importer plusieurs fichiers XML d'un même répertoire bout à bout dans une feuille excel.

voici le code qui fonctionne pour un fichier.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub ImportJanvier()
'
' ImportJanvier Macro
' Macro enregistrée le 30/09/2013 par plancotd
'
 
'
    Sheets("janvier").Select
    Range("B8").Select
 
    ActiveWorkbook.XmlMaps("Root_Mappage").Import URL:= _
        "N:\MOYENS GENERAUX\Imprimerie\FichiersXMLindicateurs\XML\COM-2013\janvier\sandra.xml"
  '  ActiveWindow.SmallScroll Down:=2
End Sub

comment le modifier pour qu'il importe les autres fichiers du répertoire à la suite?

merci

[Marc-L]

Bonjour,

en adaptant l'exemple de l'aide de la fonction Dir …

Sinon il y a aussi la Manipulation des fichiers en VBA même si Dir doit suffire.

[SMBeccaria]

Bonjour,

Il te suffit de récupérer la ligne de la dernière cellule remplie de la feuille à chaque fois que tu changes xml, par exemple (et à adapter):

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
Sub ImportJanvier()
'
' ImportJanvier Macro
' Macro enregistrée le 30/09/2013 par plancotd
'
Dim myWS as worksheet 
'
    Set myWS = activeworkbook.worksheets("janvier")
    myWS.range("B8").Select
 
    ActiveWorkbook.XmlMaps("Root_Mappage").Import URL:= _
        "N:\MOYENS GENERAUX\Imprimerie\FichiersXMLindicateurs\XML\COM-2013\janvier\sandra.xml"
 
 
 
' Ces deux lignes sont à répéter autant de fois qu'il y aura de fichier à coller à la suite
 
        myWS.range("B"&myws.usedrange.rows.count+1).Select    
        "N:\MOYENS GENERAUX\Imprimerie\FichiersXMLindicateurs\XML\COM-2013\janvier\XXXXXX.xml"
 
 
 
 
 
End Sub

[Marc-L]

Oui effectivement, j'avais oublié l'ajout bout à bout …

[danval25]

j'ai une erreur de syntax sur la derniére ligne?

[SMBeccaria]

Essaie ça:

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
Sub test()
    Dim oFSO As Scripting.FileSystemObject
    Dim oFld As Scripting.Folder
    Dim oFile As Scripting.File
    Dim strChemin As String
    Dim IsFirstLoop As Boolean
 
    strChemin = "N:\MOYENS GENERAUX\Imprimerie\FichiersXMLindicateurs\XML\COM-2013\janvier\"
    firstLoop = True
    Set oFSO = New Scripting.FileSystemObject
    Set oFld = oFSO.GetFolder(strChemin)
 
    For Each oFile In oFld.Files
        If oFile.Name Like "*.xml" Then
            If IsFirstLoop = True Then
                Sheets("janvier").Select
                ActiveSheet.Range("B8").Select
                ActiveWorkbook.XmlMaps("Root_Mappage").Import URL:=strChemin & oFile.Name
                IsFirstLoop = False
            Else
                Sheets("janvier").Select
                ActiveSheet.Range("B" & Sheets("janvier").UsedRange.Rows.Count + 1).Select
                ActiveWorkbook.XmlMaps("Root_Mappage").Import URL:=strChemin & oFile.Name
            End If
        End If
    Next oFile
    Set oFSO = Nothing
    Set oFld = Nothing
    Set oFile = Nothing
 
End Sub

[danval25]

je viens d'essayer:

message d'erreur sur les 3 premiéres ligne:


type defini par l'utilisateur non defini