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
| Set-ExecutionPolicy Unrestricted
# Fichier source
$ListeF = "BSC Board - Synthesis - Light version "
# Fichier cible
$ListeD = "Test follow-up Table"
# Répertoire de travail
$DirShip = "D:\TEMP\Calcul ETA\Copie Shipment\"
# $DirShip = "\\SRV-DFS-FRANCE\dfs-france-chine\RELAY\7 - ACHATS\1 - BSC BOARD\"
# Horodatage
$Hy = $(get-date -f yyyy)
$Hm = $(get-date -f MM)
$Hd = $(get-date -f dd)
$Hd = "11"
$myfile = $DirShip + $ListeF + $Hy + " " + $Hm + " " + $Hd + ".xlsm"
# ================== Remplacement des saut de pages
$Excel = New-Object -ComObject Excel.Application
$Workbook=$Excel.Workbooks.Open($myfile)
Start-Sleep -s 2
$StrSheet = "Synthesis"
$WorkSheet = $Workbook.WorkSheets.item($StrSheet)
# vbCr et vbCrLf
$strrep = [char]13 + [char]10
$WorkSheet.Columns.Replace($strrep,'12')
$strrep = \r\n
$WorkSheet.Columns.Replace($strrep,'12')
$Workbook.Close()
Write-Output "Fermeture du classeur"
$excel.Application.quit()
Write-Output "Fermeture de l'application" |
Partager