Bonjour,
Mon environnement : Windows 7 édition intégrale Version 601
Visual Studio 2008 Professional Edition
OpenOffice.Org 3.2.1
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
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)
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.
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: [email protected]
For additional commands, e-mail: [email protected]
