Bonjour,

Tout d'abord, ce que je souhaite faire :

Créer un script dans un fichier, double-cliquer sur ce fichier afin de générer un PDF à partir d'un document Open office.( le but final sera d'automatiser ce fonctionnement)

J'ai fait u peu de recherche sur internet pour arriver à ce petit script pour pouvoir effectuer un test :

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
Dim appOOServiceManager
Dim appOODesktop
Dim objDocument
Dim argt()
Dim args(1)
Dim Fichier
Dim Fichier2
 
'Transformation du chemin pour l'ouvrir au format URL
Fichier="file:///C:/Documents and Settings/grzfr/Desktop/toto.odt"
Fichier=Replace(Fichier,"\","/")
Fichier2="file:///C:/Documents and Settings/grzfr/Desktop/toto.pdf"
Fichier2=Replace(Fichier2,"\","/")
Set appOOServiceManager=CreateObject("com.sun.star.serviceManager")
Set appOODesktop=appOOServiceManager.CreateInstance("com.sun.star.frame.Desktop")
Set objDocument=appOODesktop.loadComponentFromURL(Fichier,"_blank", 0, argt)
 
'Tableau pour les paramètres de conversion
Set args(0) = appOOServiceManager.Bridge_getStruct("com.sun.star.beans.PropertyValue")
'Arguments Open Office pour convertir un document Writer en PDF
args(0).Name = "FilterName" 'nom de l'argument
args(0).Value = "writer_pdf_Export" 'valeur de l'argument
objDocument.storeToURL Fichier2, args()
objDocument.Close(True)
Set objDocument=Nothing

mais j'ai l'erreur suivante :

Script : C:\Documents and Settings\grzfr\Desktop\test.vbs
ligne : 24 (objDocument.storeToURL Fichier2, args())
Caract. : 1
Erreur : Subscript of range
Code : 800A0009
Source : Microsoft VBSCripts runtime error
Quelqu'un pourrait-il me dépanner ?
Merci.