Merci de prendre un peu de ton temps :
donc, je travaille sous BusinessObjects. Voici mon code
1 2 3 4 5 6 7 8 9 10 11 12
| Dim app As busobj.Application
Dim oDoc As busobj.Document
Dim oProvider As busobj.DataProvider
Dim oProviders As busobj.DataProviders
Set app = New busobj.Application
app.Visible = True
Set oDoc = app.Documents.Add
Set oProviders = oDoc.DataProviders
Set oProvider = oProviders.AddQueryTechnique("Univers perso")
oProvider.Edit |
La dernière ligne de code
oProvider.Edit ouvre la boite de dialogue de l'éditeur de requêtes : une fois que cette boite de dialogue est ouverte, je n'ai plus la main sur mon programme.
Deborah.
Partager