Je viens de trouver ce code sur Internet. Sauf que celui-ci ne fonctionne pas !
Private Sub Document_Open()
Set rep1 = objBO.Documents.Open("Chemin\Fichier1.rep")
rep1.Refresh
rep1.Save
rep1.Close
Set rep2 = objBO.Documents.Open("Chemin\Fichier2.rep")
rep2.Refresh
rep2.Save
rep2.Close
Etc, etc...
End Sub
En fait il manque les déclarations Dim et Set à ce bout de code.
Il faut également penser à activer la référence : BusinessObject 6.5 Object Library.
Modifié, ca donne ça :
Private Sub Document_Open()
Dim objBO, objrep
Set objBO = CreateObject("BusinessObjects.Application.6")
objBO.Visible = True
Set rep1 = objBO.Documents.Open("C:\Cube.rep")
rep1.Refresh
rep1.Save
rep1.Close
objBO.Quit
End Sub