Bonjour, à tous,
Lorsque j'importe des fichiers XML en VB, j'obtiens un résultat différent entre excel 2007 et 2010.
Le résultat donné par la version 2010 est celui qui me convient. J'ai gratté pour voir si il n'y avait pas d'option dans 2007 pour la mise en forme du XML mais je n'ai rien vu.
Voila le code que j'utilise :
Sub Import_XML()
Dim MyPath As String
Dim MyFile As String
MyPath = "C:\Users\Desktop\XML\commande\"
MyFile = Dir(MyPath & "*.xml")
Do Until MyFile = ""
Application.DisplayAlerts = False
ActiveWorkbook.XmlImport _
URL:=MyPath & MyFile, _
ImportMap:=Nothing, _
Overwrite:=True, _
Destination:=Range("$A$" & Cells(Rows.Count, "A").End(xlUp).Row + 1)
Application.DisplayAlerts = True
MyFile = Dir
Loop
End Sub
Auriez vous une idée?
Ci-joint le fichier avec le résultat des 2 versions.
Lorsque j'importe des fichiers XML en VB, j'obtiens un résultat différent entre excel 2007 et 2010.
Le résultat donné par la version 2010 est celui qui me convient. J'ai gratté pour voir si il n'y avait pas d'option dans 2007 pour la mise en forme du XML mais je n'ai rien vu.
Voila le code que j'utilise :
Sub Import_XML()
Dim MyPath As String
Dim MyFile As String
MyPath = "C:\Users\Desktop\XML\commande\"
MyFile = Dir(MyPath & "*.xml")
Do Until MyFile = ""
Application.DisplayAlerts = False
ActiveWorkbook.XmlImport _
URL:=MyPath & MyFile, _
ImportMap:=Nothing, _
Overwrite:=True, _
Destination:=Range("$A$" & Cells(Rows.Count, "A").End(xlUp).Row + 1)
Application.DisplayAlerts = True
MyFile = Dir
Loop
End Sub
Auriez vous une idée?
Ci-joint le fichier avec le résultat des 2 versions.