Transfert données BO vers Excel

Fermé
CHARLYJACK Messages postés 351 Date d'inscription mardi 19 octobre 2010 Statut Membre Dernière intervention 21 février 2023 - 29 juin 2017 à 16:17
Bonjour,

Mon projet consiste à programmer l'ouverture d'un classeur excel avec le programmaeur de tache.

Lancer l'ouverture de BO via cette macro

Sub openBO()
Dim objBO, objrep

'Ouvre Business Object
Set objBO = CreateObject("BusinessObjects.Application.6")

'Rentre le login et mdp
objBO.LoginAs "Charly", "12345", False, enterprise

'Ouvre le rapport
Set objrep = objBO.Documents.Open("S:\6Ljm\6jhG\ ..... )
objBO.Visible = True

'Rafraichir le rapport
objrep.Refresh

End Sub

Ensuite j'aimerais savoir comment transférer mes données Bo (6.5) dans le classeur excel ouvert ou dans un classeur précis.
Le code que j'ai trouvé créé un classeur xls au même endroit que la requete.

Private Sub Document_AfterRefresh()
Dim doc As Report
Set doc = Application.ActiveDocument.Reports.Item(1)
doc.Activate
ActiveReport.ExportAsExcel (ThisDocument.Path & "\FDP spec.xls")

End Sub

Je rencontre une autre difficulté je suis obligé de cliqué sur un message ok pour que la
requete BO se raffraichisse.

Y a t il un moyen de passer cette etape

Par avance merci de vos commentaires



A voir également: