Bonjour,
Peut-etre un retour à la ligne intempestif après
lesFormulaires.loadComponentFromUrl(nomFormulaire, "_blank", 0,
à moins qu'il soit du au copier/coller dans le mail.
Sinon, pour info, avec OOo 2.0.3 je n'ai pas besoin de la variable
"astuce" pour ouvrir un formulaire ...
MORTEVEILLE Roselyne - DDE 44/GER/Voies Rapides a écrit :
Bonjour,
J'ai une macro pour afficher un formulaire qui fonctionne très bien si je
l'enregistre dans Mes Macros, dès que je l'enregistre sous le formulaire
elle se plante. Qui peut me dire pourqoui.
' Affichage du formulaire de création
Option Explicit
Dim astuce As Object ' pour maintenir le formulaire affiché
Global maConnexion as Object, dbDoc As Object
Sub CreationDepVerte()
Dim monDbContext As Object, maSource As Object
Dim monFormulaire As Object, LesFormulaires As Object
Dim OdbOpt (0) as new com.sun.star.beans.PropertyValue
Dim stdOpenArgs(1) as new com.sun.star.beans.PropertyValue
Dim adrOdb As String
Const nomSource = "gestion_patrimoine_routier_heric", nomFormulaire =
"f_creation_depverte"
monDbContext = CreateUnoService("com.sun.star.sdb.DatabaseContext")
maSource = monDbContext.getByName(NomSource)
dbDoc = maSource.DatabaseDocument
adrOdb = dbDoc.URL
OdbOpt(0).Name ="Hidden"
OdbOpt(0).Value = True
dbDoc = StarDesktop.loadComponentFromUrl(adrOdb, "_blank", 0, OdbOpt())
lesFormulaires = dbDoc.FormDocuments
'Contournement de bogue : l'instruction suivante est
' indispensable pour visualiser le formulaire en fin de macro
astuce = lesFormulaires.getByName(nomFormulaire)
stdOpenArgs(0).Name = "ActiveConnection"
maConnexion = dbDoc.Datasource.getConnection("","")
stdOpenArgs(0).Value = maConnexion
stdOpenArgs(1).Name = "OpenMode"
stdOpenArgs(1).Value = "open"
lesFormulaires.loadComponentFromUrl(nomFormulaire, "_blank", 0,
stdOpenArgs()) Le plantage se fait sur cette ligne. Syntax error BASIC
Erreur de syntaxe
Roselyne MORTEVEILLE
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--
Alain Nowak - StarXpert
6, rue Eugène Varlin - 75010 Paris
Tel : 01 53 35 18 37
http://www.starxpert.fr
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
