Excel - calc

ironbrother -  
yclik Messages postés 3874 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour, Je dois ce code dans Excel, enregistrez la feuille au format PDF, avec le nom de la cellule «E2», mais dans OpenOffice Calc, enregistre avec le nom vierge, pourrait me aider?

EXCEL:
Sub macrogravar()
'
' macrogravar Macro
'

'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\Caixadiario\ " & Range("e2") & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
Range("H23").Select
End Sub

Openoffice calc:

sub gravarpdf
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(2) as new com.sun.star.beans.PropertyValue
args1(0).Name = "URL"
args1(0).Value = "file:///D:/caixadiario/ .pdf"
args1(1).Name = "FilterName"
args1(1).Value = "calc_pdf_Export"
args1(2).Name = "FilterData"
dispatcher.executeDispatch(document, ".uno:ExportToPDF", "", 0, args1())

end sub

1 réponse

  1.
    yclik Messages postés 3874 Date d'inscription   Statut Membre Dernière intervention   1 609
     
    bonjour
    une proposition 

    sub gravarpdf 
rem define variables 
dim document as object 
dim dispatcher as object 

dim monFichier as string
 ' nom de la feuille
 oSheet = ThisComponent.sheets.GetByName("feuille1") 
  ' Sélection de la cellue E2
  monFichier = oSheet.getCellRangeByName ("E2").getstring
  ' construction chemin  pour D:/caixadiario/ .pdf"  
  monChemin = "file:///D:/caixadiario"+monFichier+".pdf"
  
  print monChemin

rem get access to the document 
document = ThisComponent.CurrentController.Frame 
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper") 

dim args1(2) as new com.sun.star.beans.PropertyValue 
args1(0).Name = "URL" 
args1(0).Value = monChemin

args1(1).Name = "FilterName" 
args1(1).Value = "calc_pdf_Export" 
args1(2).Name = "FilterData" 
dispatcher.executeDispatch(document, ".uno:ExportToPDF", "", 0, args1()) 
end sub
    0