bonsoir,

j'aurais besoin d'un petit coup de main pour faire fonctionner cette macro. Le but est d'enrégistrer mon fichier au format PDF avec le nom qui se trouvr dans la cellule j8.

Pour le momment l'enrégistrement fonctionne mais s'arrete sur la boite de dialogue de l'imprimante CutePDF Writer ou je dois mettre manuellement le nom et valider l'enrégistrement du fichier. Est il possible d'automatiser cette étape.

Merci de m'aider

sub PDF
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Printer"
args1(0).Value = "CutePDF Writer"

dispatcher.executeDispatch(document, ".uno:Printer", "", 0, args1())

rem ----------------------------------------------------------------------
dim args2(1) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Copies"
args2(0).Value = 1
args2(1).Name = "Collate"
args2(1).Value = true

dispatcher.executeDispatch(document, ".uno:Print", "", 0, args2())

end sub