La modération vous a écrit: Ajout de la balise [Calc] et titre complété
Bonjour à tous,
J'essaie d'utiliser le modèle JustInvoice mais la génération du pdf ne fonctionne pas chez moi.
https://extensions.libreoffice.org/en/e ... generation
Voici le message d'erreur que je ne comprends pas:
Code : Tout sélectionner
Erreur d'exécution BASIC.
Une exception s'est produite :
Type: com.sun.star.io.IOException
Message: SfxBaseModel::impl_store <file:///C:/Users/........./Factures clients/JustInvoice/PDFs/file:///C:/Users/...../Factures clients/JustInvoice/Invoices/IC-239-456.pdf> failed: 0x507(Error Area:Io Class:Access Code:7).
Code : Tout sélectionner
sub ExportToPDF()
Dim filename, pdfFileName as String
Dim savePDF as Boolean
Dim res as Integer
setGlobalVarsFromDataRanges()
if not hasFilename() then exit sub
filename = GetFileNameWithoutExtension(ThisComponent.getURL(), GetPathSeparator() )
dim aMediaDescriptor(0) as new com.sun.star.beans.PropertyValue
aMediaDescriptor(0).Name = "FilterName"
aMediaDescriptor(0).Value = "calc_pdf_Export"
pdfFileName = getPDFDir() + getPDFFileName()
savePDF = true
if FileExists(pdfFileName) then
res = MsgBox( pdfFileName + Chr$(13) +"Press OK to OVERWRITE!! "+Chr$(13) + "Press CANCEL to not do anything ", 1, "PDF file already exists."
if ( res = 2) then SavePDF = false
end if
if ( savePDF) then
ThisComponent.storeToURL(pdfFileName , aMediaDescriptor())
msgbox "Saved PDF to: "+ pdfFileName
end if
end sub
Function getPDFFileName()
Dim filename as String
filename = GetFileNameWithoutExtension(ThisComponent.getURL(), GetPathSeparator() )
getPDFFileName = filename + ".pdf"
end Function
Function getPDFDir()
' note - setGlobalVarsFromDataRanges() assumed to already have been called in function calling this.
getPDFDir = gsBaseDir + "PDFs/"
end Function
Merci d 'avance