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
Partager