###choix du dossier et des fichiers à scanner
#On vire l'ancien au cas où il soit encore présent
remove-item "C:\test\essai.xls"
#On cible le répertoire à scanner
$repertoire = 'C:\test\*'
#Sélection du ou des fichiers (s'il y en a plusieurs)
$fichier = Get-ChildItem $repertoire -include *.txt
#On charge Excel
$xlExcel8 = 56
$Excel = New-Object -ComObject excel.application
$Excel.visible = $false
$Excel.displayalerts=$False
#Création de la feuille de travail
$Excel = $Excel.Workbooks.add()
$feuille = $Excel.worksheets.Item(1)
#J'ajoute les entêtes de colonnes
$feuille.Cells.Item(1,1) = “ECPROD”
$feuille.Cells.Item(1,2) = “ECPAYC”
$feuille.Cells.Item(1,3) = “ECAPPO”
$feuille.Cells.Item(1,4) = “ECCHAR”
$feuille.Cells.Item(1,5) = “ECCOLI”
$feuille.Cells.Item(1,6) = “ECPAYD”
$feuille.Cells.Item(1,7) = “ECDEPT”
$feuille.Cells.Item(1,8) = “ECPOID”
$feuille.Cells.Item(1,9) = “ECEXAA”
$feuille.Cells.Item(1,10) = “ECEXMM”
$feuille.Cells.Item(1,11) = “ECEXJJ”
$feuille.Cells.Item(1,12) = “ECCST1”
$feuille.Cells.Item(1,13) = “ECNBCO”
$feuille.Cells.Item(1,14) = “ECCST2”
$feuille.Cells.Item(1,15) = “ECREF1”
$feuille.Cells.Item(1,16) = “ECREF2”
$feuille.Cells.Item(1,17) = “ECREF3”
$feuille.Cells.Item(1,18) = “ECREF4”
$feuille.Cells.Item(1,19) = “ECRAIS”
$feuille.Cells.Item(1,20) = “ECADR1”
$feuille.Cells.Item(1,21) = “ECADR2”
$feuille.Cells.Item(1,22) = “ECADR3”
$feuille.Cells.Item(1,23) = “ECCPOS”
$feuille.Cells.Item(1,24) = “ECVILL”
$feuille.Cells.Item(1,25) = “ECTEL”
#Ligne suivante à attaquer -> ligne 2
$intRow = 2
#On rentre le contenu du/des fichiers texte en variable
$s = gc $fichier
$s = $s -replace("~","`t")
$s | sc $fichier

#On ajoute ce contenu a partir de la ligne 2, puis l+1
foreach ($objItem in $s) {
$feuille.Cells.Item($intRow,1) = $objItem
$intRow = $intRow + 1
}

######Marche pas######
$feuille = $feuille.UsedRange
$feuille.EntireColumn.AutoFit()
#pkoi feuille et pas Workbook ?
$Excel.SaveAs("C:\test\essai.xls", $xlExcel8)
#marche pas, excel n'est pas fermé.

$Excel.quit()
######Marche pas######