Je scripte un tout petit logiciel permettant de convertir un document .doc ou .docx en .pdf. Le code est fait mais j'ai une erreur à la fin.
Code :
Code : Tout sélectionner
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Word.au3>
#include <MsgBoxConstants.au3>
#include <File.au3>
#include <Array.au3>
#include <GuiComboBox.au3>
#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Word --> PDF", 430, 279, 192, 124)
Global $Label1 = GUICtrlCreateLabel("Convertisseur Word ----> PDF", 0, 16, 428, 41)
GUICtrlSetFont(-1, 25, 400, 0, "MS Sans Serif")
Global $Input1 = GUICtrlCreateInput("", 192, 72, 225, 21)
Global $Label2 = GUICtrlCreateLabel("Dossier des fichiers words :", 24, 72, 132, 17)
Global $Combo1 = GUICtrlCreateCombo("", 192, 112, 145, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
Global $Label3 = GUICtrlCreateLabel("Choix du fichier word :", 24, 112, 108, 17)
Global $Button1 = GUICtrlCreateButton("Rafraichir", 344, 112, 75, 25)
Global $Input2 = GUICtrlCreateInput("", 192, 152, 225, 21)
Global $Label4 = GUICtrlCreateLabel("Dossier de destination des pdfs :", 24, 152, 157, 17)
Global $Input3 = GUICtrlCreateInput("", 192, 192, 225, 21)
Global $Label5 = GUICtrlCreateLabel("Nom du fichier pdf :", 24, 192, 96, 17)
Global $Button2 = GUICtrlCreateButton("Convertir", 160, 232, 115, 33)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
GUICtrlSetData($Input1, @DesktopDir & "")
GUICtrlSetData($Input2, @DesktopDir & "\PDF")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_GUICtrlComboBox_ResetContent($Combo1)
$dossier = GUICtrlRead($Input1)
$listeFichiers = _FileListToArrayRec($dossier, "*.docx;*.doc", 1, 0, 1, 0)
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Word --> PDF", "ERREUR : " & @error & @CRLF & "Il n'y a peut être pas de fichier .docx ou .doc")
For $i = 1 To $listeFichiers[0]
GUICtrlSetData($Combo1, $listeFichiers[$i])
Next
MsgBox(1, "Word --> PDF", "Rafraichissement fait !")
Case $Button2
$VCombo = GUICtrlRead($Combo1)
$VInput1 = GUICtrlRead($Input1)
$VInput2 = GUICtrlRead($Input2)
$VInput3 = GUICtrlRead($Input3)
If $VCombo = "" Then
MsgBox($MB_SYSTEMMODAL, "Word --> PDF", "ERREUR : Vous n'avez rien sélectionné")
ElseIf $VInput1 = "" Then
MsgBox($MB_SYSTEMMODAL, "Word --> PDF", "ERREUR : Vous n'avez pas de dossier d'expédition")
ElseIf $VInput2 = "" Then
MsgBox($MB_SYSTEMMODAL, "Word --> PDF", "ERREUR : Vous n'avez pas de dossier de destination")
ElseIf $VInput3 = "" Then
MsgBox($MB_SYSTEMMODAL, "Word --> PDF", "ERREUR : Vous n'avez pas de nom de fichier")
ElseIf FileExists($VInput2) = 0 Then
DirCreate($VInput2)
Else
$sFileName = $VInput2& "\"& $VInput2&".pdf"
if @error Then Exit MsgBox($MB_SYSTEMMODAL, "Word --> PDF","ERREUR : erreur au nom du fichier final ("&@error&")")
$oWocal = _Word_Create()
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Word --> PDF", _
"ERREUR : Erreur à la création du word ("&@error&")")
$oLocal = _Word_DocOpen($oWocal, $VInput1 & "\" & $VCombo, Default, Default, True)
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Word --> PDF", _
"ERREUR : Impossible d'ouvrir le fichier dossier ("&@error&")")
_Word_DocExport($oLocal, $sFileName)
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Word --> PDF", "ERREUR : Erreur à l'exportation ("&@error&"-"&@extended&")")
MsgBox(0, "Word --> PDF", "Convertion faite !")
_Word_DocClose($oWocal)
EndIf
EndSwitch
WEndCOM : -2147352567
Merci de bien vouloir m'aider
