Erreur au lancement de FactOOor

[rogtaz]

Bonjour.
Je viens d'installer l'extension FactOOor 3.0.2 sur Windows XP SP3 et OpenOffice 3.1, téléchargé sur http://extensions.services.openoffice.org/download/2719, mais je ne peut pas le lancer car j'ai une erreur.
Je le lance par Calc --> FactOOor --> Ouvrir FactOOor
Ce qui m'ouvre: Macros et boites de dialogues OpenOffice.org FactOOor
Et j'ai l'erreur:
Erreur générale.
Erreur d'entrée/sortie générale.
Et ca me sélectionne MKDIR Repbase dans la fonction creationRepertoire.

Je sait que MKDIR tente de créer le répertoire identifié par RepBase.

J'ai réinstallé plusieurs fois, j'ai aussi créé les répertoires manuellement, mes Documents/FactOOor/FactOOorPDF, mais rien n'y fait.

Une solution serai bienvenue.

Merci.

Code : Tout sélectionner

Option Explicit
Public const fichier1 = "FactOOor.ods"
Public const fichier2 = "BaseFactOOor.odb"
Public const creaRep = "$(work)/FactOOor/FactOOorPDF"
Public const repSrc = "/FactOOor/"

Public const repDest = "$(work)/FactOOor/"


Sub LancerFactOOor()
call creationRepertoire
end sub


Sub creationRepertoire()
' terminer le nom du répertoire avec le séparateur
Dim ps As Object
ps = CreateUnoService("com.sun.star.util.PathSubstitution")
RepBase = creaRep
RepBase = ps.substituteVariables(RepBase, false)
	If Dir(RepBase,16) = "" Then
		MkDir RepBase
	End If
	call copierFichier
End Sub

[Bidouille]

Bonjour,

Ce forum est organisé en sections et vous avez posté votre question au mauvais endroit : <Calc>.

Votre question a été déplacée. Nous vous invitons vivement à lire le descriptif de chaque section mentionné sur la page d'accueil de notre forum.

Merci de votre collaboration.

[rogtaz]

Désolé Bidouille.
Mais comme c'est une extension dans Calc j'ai cru poster au bon endroit.

[Factooor]

Bonjour

Est-ce que le répertoire est créé ?
sinon créer le pour voir ?
Et voir ce qu'il dit

Tu es sur une version en 32bits ou 64bits de XP

[rogtaz]

Xp en 32 bits.
J'ai écrit dans mon message que j'avais créer les dossiers.
Mais si il y a des fichiers à créer je ne sait pas lesquels.

[Dude]

Salut,

Es-tu bien sûr d'avoir installé OOo avec les droits administrateur ? Cela expliquerait les problèmes d'accès aux répertoires.

[Factooor]

Xp en 32 bits.
J'ai écrit dans mon message que j'avais créer les dossiers.
Mais si il y a des fichiers à créer je ne sait pas lesquels.

Pour info. il ne créer pas des fichiers mais les transferts du dossier caché c:\Documents and setting\tonuser\Application DATA\OpenOffice.org\3\user\uno_packages\caches\uno_packages

Est là tu dois trouver le dernier dossier content FactOOor.ods et BaseFactOOor et tu les coupes vers le répertoire FactOOor...

[rogtaz]

Re:
J'ai bien le dossier FactOOor dans c:\Documents and setting\monuser\Application DATA\OpenOffice.org\3\user\uno_packages\caches\uno_packages.
Je le copie ou je le coupe à la racine de MES DOCUMENTS/ et: QUE DALLE (même message).
Une question!
Quel est le chemin de la variable $(work) ?
C'est peut être un problème de chemin.

Au fait je suis toujours en admin sur mon PC !

[rogtaz]

Re:
Maintenant il y à du mieux car tout fonctionne, comme consulter un devis, les stats ..., sauf toujours "ouvrir FactOOr".
J'ai modifier la macro FactOOor --> OuvrirCalc et dans la fonction LancerFactOOor j'ai remplacer l'exécution de ceationRepertoire par ouvrir FactOOor mais maintenant j'ai aussi une erreur dans cette fonction à "stardesktop.loadcomponentFromURL(dest,"_blank",0,args())".
L'erreur:
Erreur d'exécution basic.
Une exeption s'est produite :
Type: com.sun.star.lang.IllegalArgumentExeption
Message: URL seems to be an unsupported one..

PS:
Si je lance FactOOor.ods en direct il fonctionne.
Mais j'aimerai bien qu'il fonctionne normalement dans calc.

Au fait merci Factooor de m'avoir permis d'avancer.

[Factooor]

Bonjour

je ne vais pas avoir trop le temps de t"aider pour le moment je mets en ligne la macro s'il y a une bonne âme pour t'aider

Code : Tout sélectionner

Public const fichier1 = "FactOOor.ods"
Public const fichier2 = "BaseFactOOor.odb"
Public const creaRep = "$(work)/FactOOor/FactOOorPDF"
Public const repSrc = "/FactOOor/"

Public const repDest = "$(work)/FactOOor/"


Sub LancerFactOOor()
call creationRepertoire
call ouvrirEcoute
end sub


Sub creationRepertoire()
' terminer le nom du répertoire avec le séparateur
Dim ps As Object
ps = CreateUnoService("com.sun.star.util.PathSubstitution")
RepBase = creaRep
RepBase = ps.substituteVariables(RepBase, false)
	If Dir(RepBase,16) = "" Then
		MkDir RepBase
	End If
	call copierFichier
End Sub


Sub copierFichier
Dim stef As Object
Dim sv As Object, repExt As String, tab as variant 
Dim  i As integer

sv = GetDefaultContext.getByName("/singletons/com.sun.star.deployment.PackageInformationProvider")
repExt = sv.getPackageLocation("vnd.stephanepinel.factooor")
src = ConvertToUrl(repExt & repSrc & fichier1)
src2 = ConvertToUrl(repExt & repSrc & fichier2)
'msgbox FileExists(src)
ps = CreateUnoService("com.sun.star.util.PathSubstitution")
dest = repDest & fichier1
dest = ps.substituteVariables(dest, false)
dest2 = repDest & fichier2
dest2 = ps.substituteVariables(dest2, false)
'msgbox FileExists(dest)
stef = createUNOService ("com.sun.star.ucb.SimpleFileAccess")

'déplace le fichier dans le bon répertoire.
on error resume next
 if FileExists(src) = true then 
	stef.Move(src, dest)
	stef.Move(src2, dest2)
	end if
	call ouvrirFactOOOr
End Sub

sub ouvrirFactOOOr
dim args()
ps = CreateUnoService("com.sun.star.util.PathSubstitution")
dest = repDest & fichier1
dest = ps.substituteVariables(dest, false)
stardesktop.loadcomponentFromURL(dest,"_blank",0,args())
	call ChangerMois
end Sub