Question Souci sur fichier xls suite à conversion csvtoxls

Plus d'informations
il y a 6 mois 3 semaines #29815 par SANCHEZ
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()

Merci.

Connexion ou Créer un compte pour participer à la conversation.

Plus d'informations
il y a 6 mois 3 semaines #29820 par Laurent Dardenne
salut,
peut être une erreur de constante (51 -> Classeur Open XML)
docs.microsoft.com/fr-fr/office/vba/api/excel.xlfileformat

Utilise une variable au lieu d'une constante numérique :
[code:1]$xlOpenXMLWorkbook=51[/code:1]

Tutoriels PowerShell

Connexion ou Créer un compte pour participer à la conversation.

Temps de génération de la page : 0.147 secondes
Propulsé par Kunena