Hello
Ihave i straight table and list selection (Agence), So i need for every selection value export the table to excel sheet for example
agence 01
agence 02
agence 03
i need to have in my excel file 3 sheet
I started with this script :
Sub export_situation()
set val=ActiveDocument.Fields("%ID_AGENCE_CTOS_CLIENT").GetPossibleValues
for i=0 to val.Count-1
ActiveDocument.Fields("%ID_AGENCE_CTOS_CLIENT").Select (val.Item(i).Text)
set objagenceClient = ActiveDocument.GetSheetObject("CH173")
sheetname=val.Item(i).Text
Dim aryExport(val.Count-1,3)
aryExport(i,0) = "objSalesPerYearAndRegion"
aryExport(i,1) = (val.Item(i).Text)
aryExport(i,2) = "A1"
aryExport(i,3) = "data"
Dim objExcelWorkbook 'as Excel.Workbook
Set objExcelWorkbook = copyObjectsToExcelSheet(ActiveDocument, aryExport)
next
end Sub
So how modify the script to get every shet for every agence
Ce message a été modifié par : souad ouertani
Ce message a été modifié par : souad ouertani