[VBA]Supprimer le message de rafraichissement [Résolu]

[alsips]

Bonjour
et bonne année

je suis sous BO 5.1.6
j'ai un rapport avec 16 requêtes que je lance à partir d'excel pour rapatrier des données.

je lance bien le rafraichissement mais certaines requêtes sont vides ce qui a pour effet d'afficher le message :
"la requête ne retourne aucune donnée."

connaissez vous un moyen d'eviter ce message ?
car l'utilisateur est obliger de cliquer sur OK à chaque refresh

merci d'avance

[Ashaar]

Bonjour,

L'instruction VBA : Application.Interactive = False devrait correspondre à ton besoin.

On la place généralement sur False avant le refresh (pour que l'utilisateur ne puisse plus intéragir avec l'ordinateur), puis sur True après le refresh (pour rendre la main à l'utilisateur).

Ce qui donne :

Code :

1
2
3
4
5
6
7
 Private Sub Document_BeforeRefresh(Cancel AS BOOLEAN) 
    Application.Interactive = False 
End Sub 
 
Private Sub Document_AfterRefresh() 
    Application.Interactive = True 
End Sub

Hop donc.

[nuke_y]

Par contre en mode "manuel" je ne sais pas si c'est possible... Reste la solution de programmer une macro qui fait le rafraîchissement avec la méthode d'Ashaar

[alsips]

ok merci ca m'aide bien
j'utilisais ca deja dans excel mais j'ai pas pensé a le reporter dans BO aussi
reste le probleme du message de l'acceptation des macro a l'ouverture de BO mais je vai voir ca
merci

[Ashaar]

Bonjour,

Il me semble que dans Excel, l'instruction pour désactiver les alertes est : Application.DisplayAlerts = False

Tu utilisais : Application.Interactive = False ?

[alsips]

oui effectivement dans excel j'utilisais Application.DisplayAlerts
mais je vais peut'etre utiliser aussi Application.interactive pour d'autre problemes.

mais j'ai résolu mon probleme de rafraichissement BO et j'ai pas eu besoin de macro BO
j'ai ajouté le status interactive false dans ma macro XL

Code :

1
2
3
4
5
6
SET BOApp = CreateObject("BusinessObjects.Application")
AppActivate "BusinessObjects"
SET myBOreport = BOApp.Documents.Open(NomCompletFichierTemplateBO)
 
myBOreport.Application.Interactive = False
myBOreport.Refresh

[Ashaar]

Bonjour,

Je me demandais dans quelle mesure tu arrives à piloter BO via XL ?

Arrives-tu à récupérer directement les données d'un cube BO à partir d'Excel ?

[alsips]

les données BO son exportés en fichier Text et ensuite reouvertes sous excel

Code :

1
2
3
4
5
6
 NomFichierExcelExportDepuisBO = CheminDeCeFichier & "\Export temporaire.xls"
myBOreport.Reports(NomOngletBoAExporter).Activate
myBOreport.activereport.ExportAsText NomFichierExcelExportDepuisBO
 
myBOreport.Close True
BOApp.Quit

'On importe les données
'On ouvre le fichier Excel à traiter

Code :

 Workbooks.Open NomFichierExcelExportDepuisBO

je ne sais pas si il est possible de récuperer les données autrement que par un export