Ubuntu-fr

frenchattempt

resolu :Macro d'export pdf qui marche sous win XP et pas sous Dapper

Bonjour,
j'essaie de faire marcher une macro qui sauve automatiquement mes docs fait sur calc au format pdf dans un dossier precis
J'ai bien regarde sur les autres post mais meme quand je fais un copier coller  d'une macro qui est cense marche, j'obtiens un message d'erreur...
J'ai commente les passages qui marchent.
Voici ma macro :

Sub impression
Dim mondocument as object, lesfeuilles as object, mafeuille as object, mazone as object
Dim Props(0) as New com.sun.star.beans.PropertyValue
Dim adrzones(1) as New com.sun.star.table.CellRangeAddress
Dim date as long
'Variable pour la sauvegarde
Dim dummy()
Dim propFich(0) as New com.sun.star.beans.PropertyValue
Dim adressedoc as string, adressebc as string
Dim numerobc as integer, nomclient as string, url as string, urlbc as string, repertoire as string, extension as string

'On se positionne sur l'onglet bon de commande
mondocument = thisComponent
lesfeuilles = mondocument.sheets
mafeuille = lesfeuilles.getbyname("Bon de commande")

'Sauvegarde sous le nom demande dans le repertoire de transfert en ods- OK
'   repertoire = "//home/vendeur/.transfert/"
'   nomclient = InputBox("Entrer le nom du fichier:")
'   extension = ".ods"
'   url = repertoire + nomclient + extension
'   adressedoc = converttourl(url)
'   mondocument.storeasurl(adressedoc, dummy() )

'Sauvegarde sous le nom demande dans le repertoire de transfert - en cours
   repertoire = "//home/paul/Desktop/Bc_magasin/"
   nomclient = InputBox("Entrer le nom du fichier:")
   extension = ".pdf"
   url = repertoire + nomclient + extension
   adressedoc = converttourl(url)
   propFich(0).Name = "FilterName"
   propFich(0).Value = "calc_pdf_Export"
   mondocument.storeToURL( adressedoc, propFich())
'   mondocument.storeToURL( adressedoc, Array( makePropertyValue( "FilterName", "calc_pdf_Export" ) ) )


'Sauvegarde - OK
'   mondocument.store
'   on error resume next
'   mondocument.close(true)
'   on error goto 0
   
   
End Sub

et voici le message d'erreur que j'obtiens , la derniere ligne du code etant soulignee:

Runtime error Basic
Exception
Type : com.sun.star.task.errorcodeoExecption
Message : .

Quelqu'un sait ce que ca veut dire ? ?

Lorsque j'utilise le code

 mondocument.storeToURL( adressedoc, Array( makePropertyValue( "FilterName", "calc_pdf_Export" ) ) )

au lieu de passer par des variables, j'obtiens le meme message d'erreur :

Je sais que la macro marche sur ooo 2.0.4 sous Win XP

Je comprend pas ce message d'erreur sous Ubuntu

Merci de votre aide

Dernière modification par frenchattempt (Le 19/01/2007, à 17:13)

PB68

Re : resolu :Macro d'export pdf qui marche sous win XP et pas sous Dapper

Dans les lignes suivantes de ta macro, n'y aurait-il pas un voire deux slash de trop ?

repertoire = "//home/vendeur/.transfert/"

repertoire = "//home/paul/Desktop/Bc_magasin/"

Je ne suis pas au courant de la syntaxe OObasic mais j'aurais tendance à supprimer l'un des deux qui se trouve devant home et éventuellement le dernier.

PB68

---

Si ça t'aide, ça me fait plaisir

frenchattempt

Re : resolu :Macro d'export pdf qui marche sous win XP et pas sous Dapper

salut pb68
merci de ta remarque, mais si tu ne mets pas les //, la fonction convertToUrl te les rajoute.
En fait ca doit faire partie du systeme linux.
regarde quand tu lance firefox sur la page de demarrage par default, c'est :
file:///usr/share/ubuntu-artwork/home/l … fr_FR.html

de plus mon export en ods marche tres bien.
mon probleme ne viens donc pas de la....
merci en tout cas

frenchattempt

Re : resolu :Macro d'export pdf qui marche sous win XP et pas sous Dapper

pour PB68:

tu avais raison, excuse mon post precedent.
en fait chose etrange pour l'export en ods, un / ou 2 //  ca revient au meme, mais par contre pour l'export pdf il faut imperativement un seul /
va comprendre....