Discussion :

[Metalman]

Bonjour,

Voilà, je dois faire quelques modif' automatiques dans un fichier excel (je récupère un listing CSV, je le convertis en XLSX, et je voudrais après faire quelques modifs.
Alors j'ai réussi à faire fonctionner le premier script de conversion :

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
$Excel = New-Object -comobject Excel.Application
$Excel.Visible = $False
#$Excel.Visible = $True

$input_file="C:\Users\metalman\Desktop\fab\test.csv"
$output_file="C:\Users\metalman\Desktop\fab\test.xlsx"
$xlFixedFormat = [Microsoft.Office.Interop.Excel.XlFileFormat]::xlWorkbookDefault


$wbk = $Excel.Workbooks.Open("$input_file")

$Excel.ActiveWorkbook.SaveAs("$output_file", $xlFixedFormat)

$Excel.Workbooks.Close()

$Excel.Quit()

1) Je voudrais être sûr du format : [Microsoft.Office.Interop.Excel.XlFileFormat]::xlWorkbookDefault génèrera TOUJOURS du XLSX ? Ou c'est parce que je l'ai configuré ainsi dans mon profil ?

2) Je voudrais rendre l'ensemble un peu plus... structuré ! En faisant une fonction, amis ça ne fonctionne pas :

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
function MyConvert([System.Object]$excel, [string]$filein, [string]$fileout, [Microsoft.Office.Interop.Excel.XlFileFormat]$format)
{
    $wbk = $excel.Workbooks.Open("$filein")

    #$b = $a.Workbooks.Add()
    #$c = $b.Worksheets.Item(1)
    #
    #$c.Cells.Item(1,1) = "A value in cell A1."

    $excel.ActiveWorkbook.SaveAs("$fileout", $format)

    $excel.Workbooks.Close()
}

$my_excel = New-Object -comobject Excel.Application
$my_excel.Visible = $False
#$excel.Visible = $True

$input_file="C:\Users\metalman\Desktop\fab\test.csv"
$output_file="C:\Users\metalman\Desktop\fab\test.xlsx"
$xlFixedFormat = [Microsoft.Office.Interop.Excel.XlFileFormat]::xlWorkbookDefault

MyConvert($my_excel, $input_file, $output_file, $xlFixedFormat)

$my_excel.Quit()

Me crache :

PS S:\> C:\Users\metalman\Desktop\fab\ExcelPowerShell.ps1
Impossible d’appeler une méthode dans une expression Null.
Au caractère C:\Users\metalman\Desktop\fab\ExcelPowerShell.ps1:3 : 5
+ $wbk = $excel.Workbooks.Open("$filein")
+ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ CategoryInfo : InvalidOperation : ( [], RuntimeException
+ FullyQualifiedErrorId : InvokeMethodOnNull

Impossible d’appeler une méthode dans une expression Null.
Au caractère C:\Users\metalman\Desktop\fab\ExcelPowerShell.ps1:10 : 5
+ $excel.ActiveWorkbook.SaveAs("$fileout", $format)
+ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ CategoryInfo : InvalidOperation : ( [], RuntimeException
+ FullyQualifiedErrorId : InvokeMethodOnNull

Impossible d’appeler une méthode dans une expression Null.
Au caractère C:\Users\metalman\Desktop\fab\ExcelPowerShell.ps1:12 : 5
+ $excel.Workbooks.Close()
+ ~~~~~~~~~~~~~~~~~~~~~~~~
+ CategoryInfo : InvalidOperation : ( [], RuntimeException
+ FullyQualifiedErrorId : InvokeMethodOnNull

Alors je pense que c'est le passage du $excel qui fait tout foirer, mais pourquoi ?
Comment puis-je n'ouvrir qu'une seul fois Excel, lancer ma procédure de conversion, et revenir dans le code principal ?

Merci à tous !

[Metalman]

Problème majeur réglé :

On définie bien une fonction ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
function MyConvert([System.Object]$excel, [string]$filein, [string]$fileout, [Microsoft.Office.Interop.Excel.XlFileFormat]$format)
{
 ...
}

Mais on ne l'appelle pas : MyConvert($my_excel, $input_file, $output_file, $xlFixedFormat)
On doit faire comme dans certains langages fonctionnels :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MyConvert $my_excel $input_file $output_file $xlFixedFormat

Sans virgule et avec des espaces !


Bon... bah ça résout déjà ça !

[rocketter]

Bonjour,

je me permets de déterrer ce vieux topic, je me retrouve exactement dans la situation de l'auteur, j'appele bien ma fonction sans parenthèses, ni virgules, juste des espaces mais j'obtiens malgré tout l'erreur : Impossible d’appeler une méthode dans une expression Null.

J4ai passé en paramètre de la fonction le type Object[] ou [System.Object] comme l'auteur, j'ai même recopié son code mais toujours cette erreur pour moi

[troxsa]

Bonjour,

Voici comment j'ai fait, ce code date un peu il faudra peut-être faire des améliorations

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Function ConvertArrayToXMLExcel($DataConvert, $NameXML, $WriteExcel=$true){
    $sb = New-Object -TypeName "System.Text.StringBuilder"
    $sb.Append('<?xml version="1.0" encoding="UTF-8"?>') | Out-Null
    $sb.Append('<?mso-application progid="Excel.Sheet"?>') | Out-Null

    $sb.Append('<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"'+"`r`n") | Out-Null
    $sb.Append('xmlns:o="urn:schemas-microsoft-com:office:office"'+"`r`n") | Out-Null
    $sb.Append('xmlns:x="urn:schemas-microsoft-com:office:excel"'+"`r`n") | Out-Null
    $sb.Append('xmlns:ss="urn:schemas-microsoft-com:office:spreadsheet"'+"`r`n") | Out-Null
    $sb.Append('xmlns:html="http://www.w3.org/TR/REC-html40">'+"`r`n") | Out-Null

    $headers = $DataConvert | Get-member -MemberType 'NoteProperty' | Select-Object -ExpandProperty 'Name'

    $sb.Append('<Worksheet ss:Name="out_Resultat_Tasks">'+"`r`n") | Out-Null
    $sb.Append('<Table>'+"`r`n") | Out-Null
    $sb.Append('<Row>'+"`r`n") | Out-Null

    foreach($item in $headers)
    {
        $sb.Append('<Cell><Data ss:Type="String">' + $item + "</Data></Cell>`r`n") | Out-Null
    }

    $sb.Append('</Row>') | Out-Null

    foreach($itemDB in $DataConvert)
    {
        $sb.Append('<Row>') | Out-Null

        foreach($itemHeader in $headers)
        {
            $sb.Append('<Cell><Data ss:Type="String">' + $itemDB.$itemHeader + "</Data></Cell>`r`n") | Out-Null
        }  
        $sb.Append('</Row>') | Out-Null
    }
    $sb.Append('</Table></Worksheet>') | Out-Null
    $sb.Append('</Workbook>') | Out-Null
    $sb.ToString() | Out-File .\$NameXML

    if($WriteExcel -eq $true){


        $xlsSpreadsheet = 51
        $Excel = New-Object -Com Excel.Application
        $WorkBook = $Excel.Workbooks.Open((Get-ChildItem .\$NameXML).FullName)
        $WorkBook.SaveAs((Get-ChildItem .\$NameXML).Directory.FullName + "\$($NameXML).xlsx", $xlsSpreadsheet)
        $Excel.Quit()
    }

}

$test = Get-ChildItem ..\* 

ConvertArrayToXMLExcel -DataConvert $test-NameXML "test.xml"-WriteExcel $true

Pour un CSV il faudra faire

$LoadCSV = import-csv .\VotreFichier.csv ...
puis
ConvertArrayToXMLExcel -DataConvert $LoadCSV-NameXML "test.xml" -WriteExcel $true

[rocketter]

Merci, finalement je m'en suis tiré en mettant un paramètre le chemin d'accès du fichier que je voulais ouvrir et non l'objet COM Excel