labele : 'Value'&chr(10)&'EUR'
in pivot table is OK --> 2 lines
export in EXCEL with: (in excel file is only in 1 lines ??????)
sub SendToXL
set XLApp = CreateObject("Excel.Application")
XLApp.Visible = True
set XLDoc = XLApp.Workbooks.Add
set tbl = ActiveDocument.GetSheetObject("CH46")
set XLSheet = XLDoc.Worksheets(1)
tbl.CopyTableToClipboard true
XLSheet.Paste XLSheet.Range("A1")
xlsheet.Range("A:A").WrapText = True
end sub
