Discussion :

[couistelle]

Bonjour,

Je cherche à lancer une requête BO XI depuis excel : j'arrive donc à ouvrir BO, ouvrir ma requête depuis son dossier, la rafraichir, mais le problème est que je n'arrive pas a faire le "copier tout" dans BO, puis coller dans excel.

Quelqu'un aurait-il une idée ?

Voila le début de mon code :

Code :

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
17
Sub openBO()
Dim objBO, objrep
 
'Ouvre Business Object
Set objBO = CreateObject("BusinessObjects.Application.11")
 
'Rentre le login et mdp
objBO.LoginAs "XXXXXXX", "******", False, enterprise
 
'Ouvre le rapport
Set objrep = objBO.Documents.Open("Y:\aaa\bbb\" & Range("date") & "\cccc\dddd\requêteBO.rep")
objBO.Visible = True
 
'Rafraichir le rapport
objrep.Refresh
 
End Sub

[eryk71]

Bonjour,

Est si tu exporter le rapport BO sous Excel, se serait plus facile non?

Tu es sous quel version?

[Bruno2r]

Bonjour,

Est si tu exporter le rapport BO sous Excel, se serait plus facile non?

C'est clair !

Tu es sous quel version?

Il a dit XI il me semble.

Pourma part je ne prendrai plus la peine de répondre à ce genre de sujet.
Piloter BO avec Excel

Si tu nous expliquais le but, le contexte, le besoin exact on pourrait peut être t'aider.

[couistelle]

C'est clair !

Il a dit XI il me semble.

Pourma part je ne prendrai plus la peine de répondre à ce genre de sujet.
Piloter BO avec Excel

Si tu nous expliquais le but, le contexte, le besoin exact on pourrait peut être t'aider.

Bonjour !


En effet je l'avais déjà précisé plus haut.

Alors le but : garder une certaine automatisation de mes rapports
le contexte : des ont-dits d'informaticiens de ma boîte quant au non accès au VBE BO aux utilisateurs (trop dangereux de faire des macros sous bo selon eux donc ils bloquent et donc j'anticipe)
le besoin : pas plus que ce que j'ai déjà préciser, pouvoir continuer à alimenter automatiquement mes fichiers excel avec les données de BO (mais cette fois en partant d'excel=> import , au lieu de bo => export)

Si vous ne souhaitez pas répondre tant pis, j'en suis navrée et je ferai mes fichiers à la main...

Merci quand même

[Meryll]

Bonjour Couistelle,
Pourquoi ne pas utiliser pour faire cela le produit "Live Office" de BO, qui fait exactement ce que tu cherches à faire, si j'ai bien compris ce que tu cherches à faire ?

[couistelle]

Bonjour Meryll,

Je n'avais jamais entendu parler de Live Office avant et c'est vrai que ça pourrait etre pas mal, le soucis c'est que je ne pense pas que ma boîte dispose de ce module/produit ni qu'elle nous en fasse bénéficier (si déjà on peut même plus faire de simple macro alors imagine...)

Merci quand même d'avoir pris de ton temps

[pintos]

bonjour Couistelle,

j'ai eu le même besoin que toi (extraire des rapports et faire du traitement dans Excel, qui lui est installé sur tout les pcs) et j'ai rajouté

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Document_AfterRefresh()
 
 Dim doc As Report
 
 Set doc = Application.ActiveDocument.Reports.Item(1)
 doc.Activate
 ActiveReport.ExportAsText (ThisDocument.Path & "\OA spec.txt")
 
 
 End Sub

" dans le code de mon report BO. Peut être est il possible de le mettre dans le code de ta macro, moyennant le chargement des librairies Business Object sait on jamais.

[couistelle]

Bonjour Pintos,

Le truc c'est que toi tu mets du code dans l'Editeur VB directement sous BO, or j'ai précisé que moi je ne pouvais/pourrais plus le faire, c'est pour cela que je cherche à faire la macro dans le Visual Basic Editor de Excel.

Merci pour ta réponse !

[pintos]

bonjour Couistelle,

je viens d'essayer de rajouter la bibliotheque d'objet de BO, ça a l'air de pouvoir fonctionner (en tout cas il reconnait les objets de la macro notée au dessus), ça pourrait valoir le coup de tester pour trouver le code qui va bien, pas le temps ce soir de regarder.

[Bruno2r]

Bonsoir, de retour après une longue absence je me remets sur ce sujet :
Ce que j'ai voulu dire c'est qu'il est possible d'exporter les données brutes du fournisseur de données vers Excel au travers d'un canal DDE ce qui permets de rafraichir le rapport BO puis d'actualiser la liaison dans Excel.
Tout ça sans VB.
As tu besoin du rapport avec sa mise en forme ?

[couistelle]

Bonjour !

Non je n'ai pas besoin nécessairement de la mise en forme

[vielg]

Bonjour sous le VBA de excel après avoir fait le refresh insert cette ligne de code

'Ouvre le rapport
Set objrep = objBO.Documents.Open("Y:\aaa\bbb\" & Range("date") & "\cccc\dddd\requêteBO.rep")
objBO.Visible = True

'Rafraichir le rapport
objrep.Refresh


ceci
objrep.Reports.Item(1).ExportAsExcel ("le nom chemin et le nom du fichier excel")

en esperant que ca marche pour toi!!!