Bonsoir,
Le 6 janvier 2011 12:13, Sauveur CONSALVI <scn68...@yahoo.fr> a écrit :
> Bonjour,
> Mon environnement : Windows 7 édition intégrale Version 601
> Visual Studio 2008 Professional Edition
> OpenOffice.Org 3.2.1
>
> Tu n'as pas précisé si c'était en 32 ou 64 bits car OOo est d'office en 32
bits.
> J'ai téléchargé sur le site d'OpenOffice un projet VB.NEt qui donne des
> exemples de manipulation d'OpenOffice.
> Quand je lance l'exécutable qui est dans le répertoire \bin\Debug
> L'exécution
> est correcte.
> Quand j'ouvre ce projet sous Visual Studio 2008, celui-ci lance une
> conversion
> car il trouve que le projet est fait dans une version antérieure de Visual
> Studio.
> (J'ai pourtant à l'origine un fichier de solution .SIN est les FORMS sont
> des
> fichiers .DESIGNER.VB, .RSX et .VB)
> Je ne comprends pas très bien le résultat de la conversion.
> Mais à l'exécution, j'ai les erreurs suivantes :
>
> Pour le code :
> Dim OpenOffice As Object
> Try
> OpenOffice = OpenOffice.createInstance
> ("com.sun.star.frame.Desktop")
> Catch erreur As Exception
> OpenOffice = Nothing
> MessageBox.Show("ConnectOpenOffice - Erreur : " & erreur.Message
> &
> vbCrLf & vbCrLf & erreur.Source)
> Exit Sub
> End Try
> J'ai l'erreur :
> Variable objet ou variable d'un bloc With non définie
>
On dirait que le 'server com' de OOo n'a pas bien été enregistré sur ton
système.
ou alors que ton process n'a pas les droits pour créer ce type d'objet
(exécuter en tant qu'administrateur change-t-il qq chose ?)
>
> Pour le code :
> Dim OpenOffice As Object
> Try
> OpenOffice = CreateObject("com.sun.star.ServiceManager")
> Catch erreur As Exception
> OpenOffice = Nothing
> MessageBox.Show("ConnectOpenOffice - Erreur : " & erreur.Message
> &
> vbCrLf & vbCrLf & erreur.ToString)
> Exit Sub
> End Try
> J'ai l'erreur :
> Impossible de créer le composant ActiveX.
> (Le message d'erreur met du temps pour apparaitre)
>
SI j'ai bon souvenir, quand on installe OOo (Via Exécuter en tant
qu'administrateur en WIN7 ! ), l'installation normale n'installe pas
l'activeX, il faut pour cela PERSONNALISER l'installation et cocher l'option
plus loin dans l'install.
>
> J'ai téléchargé un document .Doc qui contient des macros qui lance la même
> exécution que le projet VB.NET, et celles-ci fonctionnent J'ai le même
> résultat, correct, que lorsque je lance l'exécutable qui est dans le
> répertoire \bin\Debug du projet VB.
>
Je pense que c'est parce que OOo est déjà chargé au moment de l'éxécution
(et donc le composant déjà chargé ?)
Je programme pas en OOo mais si ça peut t'aider dans la cause du problème
;-)
Yves
> Ces macros sont en VBA :
> Option Explicit
>
> Public OpenOffice As Variant, StarDesktop As Variant
> Public OOoIntrospection As Variant, OOoDisp As Variant
>
> Sub ConnectOpenOffice()
> If IsOpenOfficeConnected Then Exit Sub
> Set OpenOffice = CreateObject("com.sun.star.ServiceManager")
> If isNullEmpty(OpenOffice) Then
> Err.Raise vbObjectError + OOoErrorN, "OpenOffice", OOo_connectKO
> Else
> Set StarDesktop = CreateUnoService("com.sun.star.frame.Desktop")
> Set OOoIntrospection =
> CreateUnoService("com.sun.star.beans.Introspection")
> Set OOoDisp = CreateUnoService("com.sun.star.frame.DispatchHelper")
> End If
> End Sub
>
> Quelle est mon erreur ?
> Merci d'avance
>
>
>
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org
> For additional commands, e-mail: prog-h...@fr.openoffice.org
>
>
--
web site : http://www.molenbaix.com
