[VBA]Lancement de BO depuis Excel [Résolu]

[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 :

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 :

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 :

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

[derech]

Oui ca marche

Code :

shell ("C:\Program Files\BUSINESS OBJECTS61B\bo6.cmd -xxx-xxx")

mais j'ai toujours le meme problème au moment d'ouvrir le rapport

Code :

SET objrep = objBO.Documents.Open("G:\Members\V\Docs\Business Object\Odyssey.rep")

[Bruno2r]

Et à la main tu l'ouvres bien sûr ...

[Bruno2r]

Essaies d'ajouter

Code :

1
2
shell ("C:\Program Files\BUSINESS OBJECTS61B\
bo6.cmd -xxx-xxx C:\chemin\document.rep" )

[derech]

Salut,

rien n'y fait j'ai toujours le meme problème, j'ai essayer ce code également sans succes.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Sub LanceBO()
Dim strNomFic AS String
 
Sheets("sheet1").SELECT
rep1 = InputBox("", "Lettre du serveur", g)
IF rep1 = Cancel Then
 
Exit Sub
 
Else: SET objBO = CreateObject("BusinessObjects.Application.6")
objBO.LoginAs "xxx", "xxx", True
strNomFic = rep1 & ":\Members\V\Docs\Business Object\Odyssey 031207(1).rep"
SET objrep = objBO.Documents.Open(strNomFic)
End IF
 
End Sub

[Bruno2r]

Bonjour,

1) Est ce que tu parviens à ouvrir ce document à la main avec ce user ?
Quand tu dis toujours le même problème tu veux dire :
échec ?
ou
1) échec avec même message d'erreur ?

[derech]

Oui manuellement je n'ai aucun problème heureusement!
Et oui j'ai toujours le meme message d'erreur qui se produit au moment d'ouvrir le document.rep (libcs.dll non trouvé..)

Code :

1
2
'Ouvre le rapport
Set objrep = objBO.Documents.Open("G:\Members\V\Docs\Business Object\Odyssey.rep")

[Bruno2r]

Y'a un truc qui me chagrine ....
As tu essayé simplement

Code :

Application.Documents.Open("G:\Members\V\Docs\Business Object\Odyssey.rep")

[derech]

Oui j'ai essayé trois procédures différentes.

Peut etre ce code peut marcher en l'adaptant un peu mieux , car la j'ai une erreur "438" (object ne suuporte pas cette propriété) sur la dernière ligne.

Code :

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

j'ai également ce code mais qui ne fonctionne pas, je me trompe surement dans la syntaxe en meme temps.

Code :

1
2
3
4
5
6
7
8
9
10
11
Sub LanceBO()
 
 
'Ouvre Business Object et connecte l'utilisateur
shell ("C:\Program Files\BUSINESS OBJECTS61B\bo6.cmd -xxx-xxx")
 
Application.Visible = True
 
Application.Documents.Open ("G:\Members\V\Docs\Business Object\Odyssey.rep")
 
End Sub

[Bruno2r]

derech,
Je viens de me créer cette procédure dans un module Excel
Elle marche parfaitement
Lance BO
Ouvre mon document

Code :

1
2
3
4
5
6
7
8
Public Sub LanceBO()
 
SET objBo = CreateObject("BusinessObjects.Application.6")
objBo.LoginAs "xxx", "yyy", True
objBo.Visible = True
objBo.Documents.Open ("U:\DONNEES\BO\BO_BRRUSER\ASTUCES\annee_invite.rep")
 
End Sub

Je crois bien que je ne peux rien de plus pour ton problème qui doit être propre à ton installation ou config

[Bruno2r]

Alors dis moi si ce code une fois adapté à ton document fonctionne ????

Moi je considère ce sujet Résolu.

[derech]

Le code ne fonctionne pas chez moi et ce n'est pas un problème d'installation ou de config.

Il semblerait que ce soit un problème de variables manquantes lorsque je lance mon doc.rep. La procédure semble plus compliqué. Je vai me debrouiller.
En tout cas merci pour ton aide.

[pc75]

Bonjour,

J'ai déjà fait un truc, mais sous VB6. Je ne sais pas si la syntaxe est différente, mais ...

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
 
    Dim boDoc AS busobj.Document
    Dim bo AS busobj.Application
    Dim FilePath, ReportName, RepoName, PartFileName AS String
    Dim promptName AS busobj.Variable
    Dim promptValue AS String
 
    Screen.MousePointer = vbHourglass
 
    ReportName = txtRapport.Text
 
    ' Connexion BO
    On Error Resume Next
    Set bo = CreateObject("BusinessObjects.Application.6")
    bo.LoginAs User, Pwd, False
    If Err Then
        On Error GoTo 0
        bo.Quit
        Set bo = Nothing
        Screen.MousePointer = vbDefault
        MsgBox "Paramètres de connexion invalides." & vbCrLf & Err.Description, vbOKOnly, "Connexion"
    End If
 
    ' Ouverture du document BO
    SET boDoc = bo.Documents.Open(ReportName, True, False)
    IF Err Then
        ON Error GoTo 0
        bo.Quit
        SET bo = Nothing
        Screen.MousePointer = vbDefault
        MsgBox "Erreur :" & vbCrLf & Err.Description, vbOKOnly, "Connexion"
        Exit Sub
    End IF
 
    ' Application des valeur des invites
    For i = 1 To NbInvite - 1
        If Len(Trim(ValeurInvite(i))) > 0 Then
            Set promptName = boDoc.Variables.Add(TexteInvite(i))
            promptName.Value = ValeurInvite(i)
        End If
    Next i
 
    bo.Application.Interactive = False
    boDoc.Refresh
    boDoc.Save
    bo.Interactive = True
    DoEvents
    ' Sélection du rapport (onglet)
    SET repBO = boDoc.Reports.Item(1)
    ..........

[derech]

Merci beaucoup je vai voir ce que ca donne