[VB] Ouvrir BO via Excel [Résolu]

[noznoz78]

Bonjour,
J'essaie d'ouvrir une requete BO via une macro excel. Après avoir fait des recherches sur ce forum, je n'ai pas trouvé de code qui fonctionnait.
J'ai BO 5.1.4
Voilà ce que je fait pour le moment:
Dim objBO
Dim objrep As busobj.Document

'Création de Fichier BO
Set objBO = CreateObject("BusinessObjects.Application")
objBO.LoginAs , , True
objBO.Visible = True
'Jusqu'ici, tout va bien; il m'ouvre bien BO
Set doc_liste = objBO.Documents.Open("C:\test.rep")

A cette ligne, j'ai une erreur 20:"Reprise sans erreur".

Avez vous une idée???

Merci beaucoup!

[Bruno2r]

Tu es certain que tu ne peux pas ouvrir directement le document BO à l'aide d'une commande de type shell sans faire tout ça ...

[noznoz78]

Bonjour,
Merci pour ta réponse
Je dois absolument passé par excel: après avoir ouvert la requete et l'avoir lancé, je dois exporter les résultats dans des fichiers excel et faire pas mal de manip sur les fichiers résultats...

[bastoonet]

Ne serait-ce pas mieux de faire un macro sous BO qui exporte vers Excel....?

[Bruno2r]

Je suis d'accord avec bastoonet un vb dans BO te permettra l'export dans Excel du Fournisseur de données

Exemple :

Code :

1
2
3
4
5
6
7
8
Private Sub Document_AfterRefresh()
ON Error Resume Next
SET Doc = Application.ActiveDocument
 DocName = Application.ActiveDocument.Name
    XLSRef = DocName & ".xls"
 
    Doc.ExportAsExcel ("c:\repertoire\" & XLSRef)
End Sub

Tu peux même automatiser le refresh et l'export à l'ouverture avec
Private Sub Document_Open()

Autre piste moi j'utilise des liaisons BO >>> Excel en passant par Exporter dans BO puis Copier vers DDE
La mise à jour se fait ensuite comme pour n'importe quelle liaison
A +

[noznoz78]

merci
Mais la fonction ExportAsExcel n'existe pas encore avec la version 5.
J'ai cependant trouvé mon erreur; le code était bon mais le fichier que je voulais ouvrir n'existait pas...

Merci à tous pour vos réponses...