Bonjours,
je tente de faire un macro pour enregistrer une feuille calc en mode PDF à un emplacement défini dans ce macro
sub teste_Imprime_en_pdf
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService(“com.sun.star.frame.DispatchHelper”)
rem ----------------------------------------------------------------------
dim args1(1) as new com.sun.star.beans.PropertyValue
’ Avec ses 5 lignes il n’y a pas d’enregistrement
'args1(0).Name = “URL”
'args1(0).Value = “file:///E:\pdf1.PDF”
'args1(1).Name = “FilterName”
'args1(1).Value = “calc_pdf_Export”
'args1(2).Name = “FilterData” REM ***** BASIC *****
dispatcher.executeDispatch(document, “.uno:ExportToPDF”,"", 0, args1())
End Sub