Discussion :

[derech]

Bonjour,

J'ai une procédure (prise sur le forum) qui lance BO depuis excel, mais j'ai un message d'erreur qui m'empeche d'ouvrir le rapport. Je ne comprends pas car j'ai toutes les autorisations.

Code vba :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub LanceBO()
Dim objBO, objrep
 
'Ouvre Business Object
Set objBO = CreateObject("BusinessObjects.Application.6")
 
'Affiche BO
objBO.Visible = True
 
'Connecte l'utilisateur
objBO.LoginAs "xxx", "xxx", True
 
'Ouvre le rapport
Set objrep = objBO.Documents.Open("G:\Members\V\Docs\Business Object\Odyssey 031207(1).rep")
 
End Sub

Voici mon message d'erreur :

Le lancement de l'application n'a pas réussi car libcs.dll n'a pas été trouvé. Re-installé l'application devrait resoudre le probleme (cela a déja été fait)

et ensuite un deuxieme message signale "excel is waiting for another application to complete an OLE action"

J'ai vu que certaines personnes avaient eu un problème similaire sur le forum. Pourriez-vous m'aider svp?

Merci

[Bruno2r]

As tu pensé Application.Interactive = False ?????

[derech]

Non pas du tout, tu peux etre un peu plus précis stp?
Merci

[Bruno2r]

Résumons Voilà comment je m'y prendrais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub LanceBO()
Dim objBO, objrep
 
'Ouvre Business Object
Set objBO = CreateObject("BusinessObjects.Application.6")
 
'Affiche BO
objBO.Visible = True
'Annule interactivté avec utilisateur
 objBO.Interactive = False

'Connecte l'utilisateur
objBO.LoginAs "xxx", "xxx", True

[derech]

Apparement j'ai toujours le meme problème, il me manque un fichier "dll", ce qui m'empeche de lancer l'application.

[Bruno2r]

Peux tu essayer de lancer BO à partir de la Commande Exécuter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
C:\Program Files\Business Objects6\BusinessObjects Enterprise 6
\bin\busobj.exe -user TINTIN -pass MILOU