Importer des fichiers csv dans un fichier Excel.

Version imprimable

30/01/2017, 16h52
Andujes

Importer des fichiers csv dans un fichier Excel.

Bonjour à tous,

Aujourd'hui j'ai debuté un stage de 2 mois dans une entreprise tiers. Il m'a été atribué de faire en powershell, une commande qui concatenerai des fichiers en .csv et/ou .xlsx en un seul fichier excel, chacun separé par un onglet (chaque dossier copier donnerai sont nom à la feuille sur laquelle elle a été copier).
Biensur je ne vous demande pas de me donner la solutions ou de m'écrire le code.
Je viens à vous aujourd'hui pour que l'un de vous m'indique la marche a suivre, ou me donne un site de "powershell pour les nuls" merci ! (je n'ai jamais fait de powershell, j'ai des bases en c#, php, html, css)
01/02/2017, 17h00
Canvas

Bonsoir,

Quelques pistes pour démarrer :

- Utiliser la cmdlet Import-Csv pour mettre le contenu du fichier dans une variable
- Instancier un objet COM Excel en utilisant la cmdlet New-Object

Re Bonjour,

Alors voila ou j'en suis :

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
$cpt = 0
#Recherche dans le dossier avec les fichiers Excel
$dossier = "C:\Users\ReyAn\Desktop\Projet Excel\Test_concat\1er test\Essaie"
$dossiers = Get-ChildItem $dossier  
#Création d'un fichier EXCEL
$file = new-item "CompteRendu.xls" –type file -force
#Lancer Excel
$excel = new-object -c Excel.Application
$excel.visible = $false
$excel.DisplayAlerts = $False
#Boucle pour recuperer les fichiers
foreach ($item in $dossiers)
{
    #Lien des fiches source et target
    $file1 = 'lien...'+$item #source
    $file2 = 'Lien...' #target
    $wb1 = $excel.workbooks.open($file1, $null, $true) #open source, readonly
    $wb2 = $excel.workbooks.open($file2) #open target
 
    #Boucle pour traiter toutes les feuilles d'un classeur
    for ($i=1; $i -le $item.sheets.count; $i++)
    {
        #Feuille source a copier
        $sheetToCopy = $wb1.sheets($i)
        #Choix de la feuille où copier 
        $sh2_wb2 = $wb2.sheets.item($cpt)
        #La copie(Action)
        $sheetToCopy.copy($sh2_wb2) 
        $cpt ++
    }
    $wb1.close($false) # close source workbook w/o saving
    $wb2.close($true) # close and save destination workbook
 
}
 
#Sauvegarde
$excel.ActiveWorkbook.SaveAs('lien...') 
#--
$excel.Quit()

Cependant j'ai toujours une erreur : "Vous ne pouvez pas appeler de méthode sur une expression ayant la valeur Null." pour le SaveAs()

Auriez vous une petite idée ?

PS : Merci Canvas de ta réponse.

08/02/2017, 17h56
Laurent Dardenne

Salut,
ActiveWorkbook, si dans les instructions précédentes tu les fermes tous il ne doit pas en rester d'actif, cqfd.
09/02/2017, 09h43
Andujes

Bonjour,

tout d'abord merci de votre réponse.

Peut importe le SaveAs : -$WorkBook.SaveAs()
-$Excel.workbook.SaveAs()

l’erreur est toujours la même. Je pense qu'il y a une erreur soit, lors de la récupération des données soit lors de l'import. Donc a savoir, soit le Get-ChildItem soit ma boucle FOR. Y voyez-vous des erreurs ?