Bonjour,
Lorsque j'éxécute le ps1 ci dessous, ca fonctionne mais qd j'ouvre mon fichier xls (en pj) avec excel j'ai un message qui me dit que le format et l'extension du fichier ne correspondent pas.
Quelqu'un aurait une parade à cela ?
#Define locations and delimiter
$csv = \"\\srwexbat16\c$\PROD_AGPM\SOCRAM\RA_SOCRAM\RA_SOCRAM_ENTETE.csv\" #Location of the source file
$xls = \"\\srwexbat16\c$\PROD_AGPM\SOCRAM\RA_SOCRAM\RA_SOCRAM.xls\" #Desired location of output
$delimiter = \";\" #Specify the delimiter used in the file
# Create a new Excel workbook with one empty sheet
$excel = New-Object -ComObject excel.application
$workbook = $excel.Workbooks.Add(1)
$worksheet = $workbook.worksheets.Item(1)
# Build the QueryTables.Add command and reformat the data
$TxtConnector = (\"TEXT;\" + $csv)
$Connector = $worksheet.QueryTables.add($TxtConnector,$worksheet.Range(\"A1\"))
$query = $worksheet.QueryTables.item($Connector.name)
$query.TextFileOtherDelimiter = $delimiter
$query.TextFileParseType = 1
$query.TextFileColumnDataTypes = ,1 * $worksheet.Cells.Columns.Count
$query.AdjustColumnWidth = 1
# Execute & delete the import query
$query.Refresh()
$query.Delete()
# Save & close the Workbook as XLS.
$Workbook.SaveAs($xls,51)
$excel.Quit()
