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 xml : 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
  <?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 xml : 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
  <?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 : 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
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 : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
Map = ActiveWorkbook.XmlMaps("CallOffOrders_Mappage")
    A = XmlMap.IsExportable(Map)
Excel me renvoie comme erreur (Objet requis)