Ecrire dans un fichier Excel avec un format de données

Version imprimable

26/04/2021, 08h49
Weac0

1 pièce(s) jointe(s)

Ecrire dans un fichier Excel avec un format de données

Bonjour à tous,

J'ai un petit soucis et je souhaiterais avoir votre avis et éventuellement votre aide sur celui-ci.

Contexte :
Je souhaite écrire des données que j'ai déjà récupérée dans un fichier excel (CSV).
Mes tentatives aboutissent sur des données qui s'écrasent sur deux lignes et une colonne.

La première contient les titres et la secondes les datas.
J'ai mis en pièce jointe le format que je souhaiterais avoir, si quelqu'un a une idée pour régler le problème, je suis preneur.

Merci beaucoup,
Weac
26/04/2021, 09h19
Weac0

1 pièce(s) jointe(s)

Avancement
J'ai réussi à écrire sur plusieurs colonnes grâce au délimiteur (";" à la place de ",")
Code:

1 2 $itemsPath = Get-ChildItem $path | Select-Object -property Basename, FullName, Name | Export-Csv -Path $pathCSV -Delimiter ";" -NoTypeInformation -Force Get-Content -Path $pathCSV
Cependant, toujours un problème, je n'arrive pas à écrire l'ensemble des fichiers sur le doc Excel (j'obtiens une seule ligne) et elle correspond au dernier fichier correspondant, donc j'écrase les autres.

Pièce jointe 596567

Trouvé !

Le code est simple à comprendre :
Pour ceux que ça pourrait aider :
https://akril.net/utiliser-microsoft...ia-powershell/ L

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
$excel = new-object -comobject Excel.Application
$excel.visible = $true
$excel.DisplayAlerts = $False
$workbook = $excel.Workbooks.Add()
$workbook = $workbook.Worksheets.Item(1)
 
$row = 1
$column = 1
 
$workbook.Cells.Item($row,$column) = 'Nom'
$column++
$workbook.Cells.Item($row,$column) = 'NomExtension'
$column++
$workbook.Cells.Item($row,$column) = 'Path'
$column++
$row = 2
$column = 1
 
                 $entries = Get-ChildItem $path | Select-Object -property Basename, FullName, Name 
                    foreach ($entry in $entries) {
                        $workbook.Cells.Item($row,$column) = $fileNameExtension
                        $column++
                        $workbook.Cells.Item($row,$column) = $fileName
                        $column++
                        $workbook.Cells.Item($row,$column) = $path
                        $column++
                        $row++
                        $column=1
                    }
 
#Autofit des cellules (pour bien espacer et que ce soit lisible)
$UR = $workbook.UsedRange
$UR.EntireColumn.AutoFit()
 
$workbook.SaveAs($pathCSV)
$excel.Quit()

15/05/2021, 14h22
ericlm128

Hello,

Tu peux passer le sujet en résolu