[VBA] Problème d'utilisation de BO 5.1

[pschiit]

Salut,
je sais pas trop où poster ça, mais un problème sur un vieux programme que je dois maintenir.

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
25
26
27
28
29
30
31
32
33
34
35
...
13        Dim monapplibo As busobj.Application
14        Dim docmaitre As busobj.Document
15        Dim report As busobj.report
    
16        Mon_Etat_BO = "Facture"
    
17        'ouverture de l'appilication BO
18        Set monapplibo = New busobj.Application
19        Do Until monapplibo.Variables("BOUSER").Value = ""
20            Set monapplibo = New busobj.Application
21        Loop
    
22        Call monapplibo.LoginAs(bip, "fiche", False, cstBO)
23        monapplibo.Interactive = False
24        DoEvents
    
25        If Dir("C:\Program Files\Business Objects\BusinessObjects 5.0\" & nom_user, vbDirectory) <> "" Then
26        Else
27            MkDir ("C:\Program Files\Business Objects\BusinessObjects 5.0\" & nom_user)
28        End If
    
29        Call monapplibo.SetInstallDirectory(boDocumentDirectory, "C:\Program Files\Business Objects\BusinessObjects 5.0\" & nom_user, True)
    
30        monapplibo.ExchangeMode = boRepositoryMode
31        monapplibo.ExchangeDomain = "Document"
        'JLA le 030211
          On Error Resume Next
32         monapplibo.Documents.Receive(Mon_Etat_BO)
          On Error GoTo export_pdf_err
33        DoEvents
34        Set docmaitre = monapplibo.Documents.Open(Mon_Etat_BO)
    
35        DoEvents
...

ne connaissant pas BO la seule chose que j'ai compris, c'est que la méthode receive va chercher le modèle de document à créer.

Quand je teste le programme sur mon poste, j'arrive à créer des documents, mais sur le serveur de prod le programme plante.

A quoi sert cette instruction? et qu'est-ce qui peux foirer pendant son execution?

[TomDuBouchon]

Bonjour,

Effectivement cette méthode sert à rappatrier un rapport BO... Quelle est l'erreur renvoyée par le serveur ?