[VBA] [BO 6.5.1]Fermer une requête par macro [Résolu]

[olivier45fr]

bonjour,

je voudrais fermer une requête par macro apres un rafraichissement automatique

Private Sub document_afterrefresh()

ActiveReport.ExportAsExcel "\\fr4a10020bu01\CID002\MUFE\fichiers texte\Code GMT.xls"
Application.ActiveDocument.Close (boDontSave)
End Sub

la il me met une violation des droit

merci de votre aide

[Bruno2r]

Bonjour,
Effectivement j'ai exactement le même bug en version 6
Je viens de vérifier.
Quit fonctionne mais pas Close.
Pourtant cela marchait en version 5
Est ce que quelqu'un ayant eu ce problème a trouvé une solution ?

[olivier45fr]

enfin trouver

dans excel lancer BO

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
 
Dim objBO, objrep
 
'Ouvre Business Object
Set objBO = CreateObject("BusinessObjects.Application.6")
 
'(Pour forcer la connection )
objBO.LoginAs "toto", "MDP", False
 
'Affiche BO
objBO.Visible = True
 
'Ouvre le rapport
SET objrep = objBO.documents.Open("c:\toto")
 
'tempo
Sheets("Feuil1").Select
Range("A1").Select
 
'Lance la requête BO
objrep.Refresh
 
'Fermeture de BO (sauvegarde dans la macro BO)
objBO.Application.Quit

et dans le fichier BO

Code :

1
2
3
4
5
6
 
sub test()
 
busobj.ActiveDocument.Save
 
End Sub