[XL-2010] Exportation en XML

Exportation en XML

Bonjour,
Nous avons sensiblement changé le format du fichier Excel à Exporter (Il contient plus de colonnes avec des données.
Mais depuis la macro d'exportation ne se fait plus normalement.
Il y a un message d'erreur.

Il me m'annonce une erreur d'éxécution '-2147217406 (80041002)':
"Le mappage n'a pu être exporté, et par conséquent l'exportation des données n'a pas eu lieu. Utilisez XmlMap.IsExportable afin de déterminer s'il est possible d'exporter le mappage."
Avez-vous une idée d'où cela vient?

Merci

"Ancien fichier XML"

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
  <?xml version="1.0" encoding="utf-8" ?> 
- <CallOffOrders Date="2015-05-04T16:01:54" Mandator="11" Version="V01.00">
- <CallOffOrder>
  <Customer Nr="122">122</Customer> 
  <Article Nr="02004829">02004829</Article> 
  <Amount>12000</Amount> 
  <Date>2010-03-25 13:15:14</Date> 
  <CallOffNr>11111</CallOffNr> 
  <OrderNr>Sample</OrderNr> 
  </CallOffOrder>
- <CallOffOrder>
  <Customer Nr="122">122</Customer> 
  <Article Nr="02004829">02004829</Article> 
  <Amount>14000</Amount> 
  <Date>2010-03-26 13:15:14</Date> 
  <CallOffNr>11112</CallOffNr> 
  <OrderNr>Sample</OrderNr> 
  </CallOffOrder>
- <CallOffOrder>
  <Customer Nr="122">122</Customer> 
  <Article Nr="02004829">02004829</Article> 
  <Amount>16000</Amount> 
  <Date>2010-03-27 13:15:14</Date> 
  <CallOffNr>11113</CallOffNr> 
  <OrderNr>Sample</OrderNr> 
  </CallOffOrder>
  </CallOffOrders>

"Nouveau Fichier XML"

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
  <?xml version="1.0" encoding="utf-8" ?> 
- <CallOffOrders>
- <CallOffOrder>
  <Customer Nr="122">122</Customer> 
  <Article Nr="02004829">02004829</Article> 
  <Amount>12000</Amount> 
  <Date>2010-03-25 13:15:14</Date> 
  <CallOffNr>11111</CallOffNr> 
  <OrderNr>Sample</OrderNr> 
  </CallOffOrder>
- <CallOffOrder>
  <Customer Nr="122">122</Customer> 
  <Article Nr="02004829">02004829</Article> 
  <Amount>14000</Amount> 
  <Date>2010-03-26 13:15:14</Date> 
  <CallOffNr>11112</CallOffNr> 
  <OrderNr>Sample</OrderNr> 
  </CallOffOrder>
- <CallOffOrder>
  <Customer Nr="122">122</Customer> 
  <Article Nr="02004829">02004829</Article> 
  <Amount>16000</Amount> 
  <Date>2010-03-27 13:15:14</Date> 
  <CallOffNr>11113</CallOffNr> 
  <OrderNr>Sample</OrderNr> 
  </CallOffOrder>
  </CallOffOrders>

Le code d'exportation (en rouge la partie bloquante!):

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
Sheets("MEFFerme").Activate
fintpa = Range("F4001")

Windows("FRBLO-FICHIER_Schema_PG_2.xlsm").Activate
Sheets("CalculFerme").Activate
Range(Cells(2, 1), Cells(fintpa, 11)).Select
Selection.Copy
Workbooks.Add
    ActiveWorkbook.XmlImport URL:= _
        "\\frblo1vms006\AlplaPROD$\EDI\Bible\CallOffOrder.xml", ImportMap _
        :=Nothing, Overwrite:=True, Destination:=Range("$A$1")
    ChDir "\\frblo1vms006\AlplaPROD$\EDI"
    Range("A2").Select
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWorkbook.SaveAsXMLData Filename:=NomFich, Map:=ActiveWorkbook.XmlMaps("CallOffOrders_Mappage")    ActiveWorkbook.Close SaveChanges:=False
Style = vbOKOnly
    reponse = MsgBox("Fichier Schema P&G enregistré", Style)
Sheets("Extraction").Activate

' Mise à disposition du fichier pour importation (Test)

  Set fso = CreateObject("Scripting.FileSystemObject")
  Src = "\\frblo1ppc006\AlplaPROD\EDI\"
  Dest = "\\frblo1ppc006\AlplaPROD_Interface$\Import\Journals\PLANT\Import\"
  Data$ = Nomfich1
  fso.MoveFile Src & Data, Dest & Data

Si je code cela :

Code:

1
2
Map = ActiveWorkbook.XmlMaps("CallOffOrders_Mappage")
    A = XmlMap.IsExportable(Map)

Excel me renvoie comme erreur (Objet requis)

Bonjour

On parle de mappage. Donc, le XML, c'est bien, mais le XSD serait plus utile (s'il existe)
Il faudrait aller voir les propriétés du mappage, s'il accepte les erreurs (ou pas) : Onglet Développeur, Source + propriétés du mappage

Par défaut Excel créant ses mappages avec ses critères, des fois, ça coince à la moindre modification:aie:

Un peu de culture XML sur les mappages by Bill & Co. C'est sur Excel 2003, mais ça marche quand même:zen:
https://msdn.microsoft.com/fr-fr/lib...ice.11%29.aspx
https://msdn.microsoft.com/fr-fr/lib...ice.11%29.aspx

Cordialement

Le but du nouveau format que l'on veut appliquer est d'avoir un "entête" de colonnes avec différentes informations comme la date d'exportation.
Pensez-vous que cela soit possible ou faut-il que chaque colonne ne contienne à partir de la première ligne la même donnée?
Merci

Bonjour,
Pour l'histoire des entêtes, si j'ai bien compris (...), je dirais bien que, comme c'est de l'informatique, on fait ce qu'on veut.:yaisse1:
Mais comme nous sommes dans un forum Excel, il y a des limites à tout:bug:
Voir le lien suivant
https://www.microsoft.com/en-us/down....aspx?id=24962

C'est un exemple de Microsoft à télécharger, avec un .xls et un joli:P mappage .xsd

Cordialement