Bonjour à tous,
J'ai un problème lorsque j'ouvre des classeurs Calc avec une macro.
Quelqu'un saurait-il me dire pourquoi ce problème apparaît et comment le
régler ?
La macro en question :
Function getRegistry() As Object
Dim vRegistry as Object
Dim pathSubstitutionService as Object
Dim fileURL as String
vRegistry = createUnoService("com.sun.star.registry.SimpleRegistry")
pathSubstitutionService =
createUnoService("com.sun.star.util.PathSubstitution")
fileURL =
pathSubstitutionService.getSubstituteVariableValue("$(user)") &
packageName & "terminologie.rdb"
vRegistry.open(convertToURL(fileURL), FALSE, TRUE )
getRegistry = vRegistry
End Function
Un message d'erreur concernant le package terminologie.rdb apparaît avec
une erreur en écriture, puis la fenêtre des macros apparaît en
surlignant la ligne : "vRegistry.open(convertToURL(fileURL), FALSE, TRUE )"
Je ne connais pas le langage Basic d'OOo pour les macros, du coup, c'est
du charabia pour moi cette macro.
J'utilise un Windows XP SP3 avec OOo 3.2.1. Lorsque j'utilisais la
version OOo301, il n'y avait pas d'erreur.
Ce sont des fichiers budgétaires que j'aie créé avec OOo301. Cela a t-il
un rapport ?
Le dossier %USERPROFILE\Application Data\OpenOffice.org3 a déjà été
supprimé à 2 reprises. Suite à cette suppression l'erreur disparaît pour
un temps puis réapparaît.
Lorsque j'ouvre un classeur vide, l'erreur n'apparaît jamais. Lorsque je
ferme le classeur qui a produit l'erreur et que je l'ouvre de nouveau,
l'erreur n'apparaît plus. Et lorsque je redémarre le PC pour tenter de
reproduire l'erreur, cela se reproduit aléatoirement.
Merci de vos lumières,
MT
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
