Discussion :

[Elgato410]

Bonjour,
je voudrai exporter une feuille de mon tableau au format pdf en lui attribuant comme nom de fichier le texte contenu dans une cellule.

en macro par apprentissage je butte sur le copier-coller du texte: le presse papier garde le texte copié à l'enregistrement de la macro.
et j'écrase le fichier précédent Merci de votre attention

[zoom61]

Salut,

Avec quelque chose comme cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub ExportPDF
	Dim oDoc As Object , Feuille As Object, Cellule As Object
	Dim Chemin As String, Fichier As String
	Dim ArgPdf(0) as new com.sun.star.beans.PropertyValue
 
	Chemin = "C:\Users\xxx\Desktop\"
	oDoc = ThisComponent
 
	Feuille = oDoc.CurrentController.ActiveSheet
	Cellule = Feuille.getCellRangeByName("A5") 
	Fichier=  Cellule.getString & ".pdf"
	ArgPdf(0).Name = "FilterName"
	ArgPdf(0).Value = "calc_pdf_Export"
	oDoc.storeToURL(convertToUrl(Chemin & Fichier),ArgPdf())
	MsgBox("Fin export pdf")   
end sub

@+.

[Elgato410]

Merci Zoom61,
j'ai testé ta macro,
après quelques erreur sur le chemin, j'ai exploité parfaitement ta macro.

Mais je n'ai pas trouvé de renseignements compréhensibles (par moi) sur ArgPdf

que font ces instructions :
ArgPdf(0).Value appelle l'item du menu fichier qui exporte en pdf ?

pour lArgPdf(0).Name : que se passe -t-il ?

@+
Jacques

[zoom61]

Quelques explications :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim ArgPdf(0) as new com.sun.star.beans.PropertyValue

Indique que je crée un objet que je nomme ArgPdf (ou ArgumentPDF).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ArgPdf(0).Name = "FilterName"
ArgPdf(0).Value = "calc_pdf_Export"

Ensuite je lui fixe les propriétés Name et Value, FilterName permet de dire sur quelle propriété je vais travailler et calc_pdf_Export pour indique l'export PDF.

J'espère être assez clair.

N'oublies pas le tag .

@+.

[Elgato410]

Pour faciliter la portabilité de la fonction, je voulais donner le chemin dans une cellule (dans la feuille PrintParam, dans la cellule D6)
j'ai remplace la ligne qui définissait le chemin par les lignes ci dessous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
       oDoc = ThisComponent
 	Feuille = oDoc.CurrentController.ActiveSheet
 	Cellule = Feuille.getCellRangeByName ("D6")
	Chemin = Cellule.getString

je dois activer la feuille PrintParam bien sûr (pas pratique) mais j'obtiens une erreur à la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

       oDoc.storeToURL(convertToUrl(Chemin & Fichier),ArgPdf())

pour résoudre ce point, dois-je tagger résolu et créer une nouvelle discussion ?
merci pour ta patience

[zoom61]

Il me semble que c'est plutôt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

oDoc.storeToURL(convertToUrl(Chemin & "\" & Fichier),ArgPdf())

@+.

[Elgato410]

Salut Zoom61,

l'erreur persiste que je termine le chemin par "\" dans la cellule ou ou dans la concaténation.
cette ligne de concaténation fonctionne bien si le chemin est "en dur" dans la macro mais ne fonctionne pas avec les 4 lignes qui devraient acquérir le chemin.

je ne sais pas choisir la feuille "PrintParam" par programme et il est possible que l'erreur si situe là mais je suis dans le brouillard
Si tu as une piste ?

A+
Jacques

[zoom61]

Peux-tu faire un Msgbox Chemin & "\" & Fichier pour voir ce que cela donne ?

@+.

[Elgato410]

Salut,
le resultat de la box est :

"F*:\09_Trav_en_cours\facture_automat\Facture_N130008-CHOPLIN-GERARD.pdf

voici le code complet:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub ExportPDF
	Dim oDoc As Object , Feuille As Object, Cellule As Object
	Dim Chemin As String, Fichier As String
	Dim ArgPdf(0) as new com.sun.star.beans.PropertyValue
 
	oDoc = ThisComponent
	Feuille = oDoc.Sheets.getByName("PrintParam")
	Cellule = Feuille.getCellRangeByName ("D8")
rem	Chemin = "F:\09_Trav_en_cours\facture_automat\"
    Chemin = Cellule.getString 
 
rem	Msgbox Chemin & "\" & Fichier
rem ici fichier n'est pas défini j'obtiens juste le chemin idem "en	dur"
 
rem	oDoc = ThisComponent
 
	Feuille = oDoc.Sheets.getByName("PrintParam")
	Cellule = Feuille.getCellRangeByName ("D10")
	Fichier = Cellule.getString & ".pdf"
	ArgPdf(0).Name = "FilterName"
	ArgPdf(0).Value = "calc_pdf_Export"
 
	Msgbox Chemin & "\" & Fichier
 
	oDoc.storeToURL(convertToUrl(Chemin & Fichier),ArgPdf())
	MsgBox("Fin export pdf")

j'ai ainsi constaté un espace en trop entre le "F et :" dans la chaine inscrite dans la cellule

Mille Merci
A+
Jacques