Discussion :

[kuranes]

Bonjour

J'ai un programme qui convertit à la volée les pièces jointes des mails reçus.
Plus précisément il crée un script powershell qui convertit ensuite les fichiers.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
"Conversion Excel vers pdf ..."
 $folderpath =  $(get-location)  
 $FicPDF = "C:\test\mails\20241021\2139769.PDF" 
 $FicXLS = "C:\test\mails\20241021\2139769.XLS" 
 #Convert Excel formats to pdf 
 $xlTypePDF = 0 # Microsoft.Office.Interop.Excel.XlFixedFormatType 
 $xlQualityStandard = 0 # Microsoft.Office.Interop.Excel.XlFixedFormatQuality 
 $objExcel = New-Object -ComObject excel.application 
 $ci = [System.Globalization.CultureInfo]'en-US' 
 $objExcel.visible = $false 
 $workbook = $objExcel.workbooks.open($FicXLS,*3)* 
 $workbook.ExportAsFixedFormat($xlTypePDF, $FicPDF, $xlQualityStandard) 
 $workbook.Save() 
 $objExcel.Workbooks.close()* 
 $objExcel.Quit()

Mais ce matin il a rencontré un soucis avec un fichier excel avec le vérificateur de compatibilité.

Je vous joins la capture d'écran



Comment faire pour désactiver le vérificateur de compatibilité ?
Merci d'avance

[Nain porte koi]

Hello,

normalement c'est au moment de l'enregistrement que cette option se déclenche et ça veut dire que qq'un l'a cochée avant d'enregistrer le classeur en question
Vous devrez peut-être ajouter

ActiveWorkbook.CheckCompatibility = False

avant l'exportation

(A adapter au script PS)

[kuranes]

Merci de votre réponse

Entre temps j'ai modifié le script pour corriger quelques défauts

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
# Conversion Excel vers PDF
$folderpath = $(Get-Location)
$FicPDF = "C:\test\mails\20241021\2139769.PDF"
$FicXLS = "C:\test\mails\20241021\2139769.XLS"
 
# Constantes pour la conversion
$xlTypePDF = 0 # Microsoft.Office.Interop.Excel.XlFixedFormatType.xlTypePDF
$xlQualityStandard = 0 # Microsoft.Office.Interop.Excel.XlFixedFormatQuality.xlQualityStandard
 
# Création d'une instance de l'application Excel
$objExcel = New-Object -ComObject excel.application
$ci = [System.Globalization.CultureInfo]'en-US'
$objExcel.Visible = $false
 
# Ouverture du classeur Excel
$workbook = $objExcel.Workbooks.Open($FicXLS, 3)
 
# Exportation au format PDF
$workbook.ExportAsFixedFormat($xlTypePDF, $FicPDF, $xlQualityStandard)
 
# Sauvegarde et fermeture du classeur
$workbook.Close($true)
$objExcel.Quit()
 
# Libération des objets COM
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($workbook) | Out-Null
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($objExcel) | Out-Null
[GC]::Collect()
[GC]::WaitForPendingFinalizers()

Ca tourne en prod, pour l'instant pas d'erreurs générées (mais je verrai à l'usage)

[kuranes]

Un petit retour ^^

En prod, parfois cela déclenchait des popup connexion office...
J'ai donc une nouvelle version du programme (merci ChatGPT)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
# Conversion Excel vers PDF
$folderpath = $(Get-Location)
$FicPDF = "C:\test\mails\20241021\2139769.PDF"
$FicXLS = "C:\test\mails\20241021\2139769.XLS"
 
# Constantes pour la conversion
$xlTypePDF = 0
$xlQualityStandard = 0
 
# Création d'une instance de l'application Excel
$objExcel = New-Object -ComObject excel.application
$ci = [System.Globalization.CultureInfo]'en-US'
$objExcel.Visible = $false
$objExcel.DisplayAlerts = $false
$objExcel.AutomationSecurity = 3  # msoAutomationSecurityForceDisable
$objExcel.UserControl = $false
$objExcel.AskToUpdateLinks = $false
 
# Ouverture du classeur Excel sans mise à jour des liens
$workbook = $objExcel.Workbooks.Open($FicXLS, 0, $true, 2)
 
# Exportation au format PDF
$workbook.ExportAsFixedFormat($xlTypePDF, $FicPDF, $xlQualityStandard)
 
# Sauvegarde et fermeture du classeur
$workbook.Close($true)
$objExcel.Quit()
 
# Libération des objets COM
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($workbook) | Out-Null
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($objExcel) | Out-Null
[GC]::Collect()
[GC]::WaitForPendingFinalizers()