Excel - calc
Fermé
ironbrother
-
22 nov. 2015 Ã 23:02
yclik Messages postés 3716 Date d'inscription vendredi 25 juillet 2014 Statut Membre Dernière intervention 20 décembre 2024 - 23 nov. 2015 à 08:39
yclik Messages postés 3716 Date d'inscription vendredi 25 juillet 2014 Statut Membre Dernière intervention 20 décembre 2024 - 23 nov. 2015 à 08:39
A voir également:
- Getcellrangebyname
- Liste déroulante excel - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
- Word et excel gratuit - Guide
- Déplacer une colonne excel - Guide
1 réponse
yclik
Messages postés
3716
Date d'inscription
vendredi 25 juillet 2014
Statut
Membre
Dernière intervention
20 décembre 2024
1 521
23 nov. 2015 Ã 08:39
23 nov. 2015 Ã 08:39
bonjour
une proposition
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