Ajouter un colonne dans un fichier XLSX
Bonjour à tous,
J'ai un fichier ".xlsx" dont je souhaiterais modifier l'en-tête, ajouter une colonne et exporter en CSV.
J'arrive bien à modifier mes colonnes d'en-tête et à exporter en CSV, par contre je bloque sur l'insertion d'une colonne.
Voici mon code :
Code:
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
| $fichierXLSX = "C:\test.xlsx"
$fichierexportCSV = "C:\test.csv"
#Chargement des propriétés Excel
[System.Reflection.Assembly]::LoadWithPartialName("Microsoft.Office.Interop.Excel") | Out-Null
$FormatCSV = [Enum]::Parse([Microsoft.Office.Interop.Excel.XlFileFormat], "xlCSVWindows");
$Excel=new-object -ComObject "Excel.Application"
$Excel.Visible=$Visible
$Excel.Application.DisplayAlerts = $False
Write-Host "Ouverture du fichier Excel..."
$WorkBook = $Excel.Workbooks.Open($fichierXLSX)
Write-Host "Modification du fichier Excel..."
$WorkSheet = $WorkBook.worksheets.Item(1)
$WorkSheet.Columns.ListObject.ListColumns.Add(9)
$WorkSheet.Cells.Item(1,1) ='matricule'
$WorkSheet.Cells.Item(1,2) ='Nom'
$WorkSheet.Cells.Item(1,3) ='Prénom'
$WorkSheet.Cells.Item(1,4) ='structure rattach.'
$WorkSheet.Cells.Item(1,5) ='n° structure rattach.'
$WorkSheet.Cells.Item(1,6) ='adresse'
$WorkSheet.Cells.Item(1,7) ='code postal'
$WorkSheet.Cells.Item(1,8) ='ville'
$WorkSheet.Cells.Item(1,9) ='direction'
$WorkSheet.Cells.Item(1,10) ='fonction'
$WorkSheet.Cells.Item(1,11) ='email'
$WorkSheet.Cells.Item(1,12) ='tel fixe'
$WorkSheet.Cells.Item(1,13) ='tel portable'
$WorkSheet.Cells.Item(1,14) ='fax'
$WorkSheet.Cells.Item(1,15) ='nom manager'
$WorkSheet.Cells.Item(1,16) ='prenom manager'
$WorkSheet.Cells.Item(1,17) ='ff'
Write-Host "Sauvegarde du fichier Excel..."
$WorkBook.Save()
Write-Host "Export du fichier Excel en CSV..."
$WorkBook.SaveAs($fichierexportCSV,$FormatCSV)
Write-Host "Fermeture du fichier Excel..."
$WorkBook.Close()
Write-Host "Fermeture de Excel."
$Excel.Quit() | Out-Null |
J'ai un problème avec la ligne 16 "$WorkSheet.Columns.ListObject.ListColumns.Add(9)", j'obtiens le message d'erreur suivant :
Vous ne pouvez pas appeler de méthode sur une expression ayant la valeur Null.
+ $WorkSheet.Columns.ListObject.ListColumns.Add <<<< (9)
+ CategoryInfo : InvalidOperation: (Add:String) [], RuntimeException
+ FullyQualifiedErrorId : InvokeMethodOnNull
En vous remerciant pour l'aide que vous pourrez m'apporter.
misterg94
