[VBA]Récupérer la formule d'un objet à partir d'une macro

[Adelys]

Bonjour,

Je travaille actuellement sur une macro qui me génère un .csv restituant pour chaque état présent dans le répertoire UserDocs les fournisseurs de données et les objets (avec leur classe) utilisés.
Jusque là tout va bien..
Là ou ça bloque c'est quand je cherche aussi à retourner la formule de ces objets

J'espère que c'est faisable et si j'ai bien compris ce post: Récupération d'un champ calculé d'un rapport par macro
je crois que oui

Si l'un d'entre vous a une piste...

[Ashaar]

Bonjour,

Le code suivant récupère les formules des variables nommées :

Public Sub DocumentVariablesValues()
Dim i As Integer
Dim BO_DocumentVariable1 As DocumentVariable

' ********** DOCUMENT.VARIABLES *********
Set BO_DocumentVariables = Application.ActiveDocument.DocumentVariables

' Loop sur tous les items BO_DocumentVariables
For i = 1 To BO_DocumentVariables.Count
Set BO_DocumentVariable1 = BO_DocumentVariables.Item(i)
' ne prend en compte que les elements ayant un nom
If BO_DocumentVariable1.Name <> "" Then
Debug.Print BO_DocumentVariable1.Name & ": " & BO_DocumentVariable1.Formula
End If
Next
End Sub


J'espère que c'est ce que tu recherches.

[Adelys]

Merci

Je vais essayer ça tout de suite !

[nuke_y]

Adelys, dans le sujet que tu as cité, on cherchait à récupérer la VALEUR de la variable, pas sa formule. Et comme l'a dit GôTô à l'époque :

dans ma boîte on a contacté Business Objects et ils nous ont confirmé qu'il n'est pas possible d'accéder au contenu d'une cellule (seulement à sa formule). C'est donc officiellement impossible.

Si c'est les formules, je fais confiance à Ashaar. Tu nous tiens au courant de si ça marche ou pas ?

[Adelys]

en fait c'est pas tout à fait ça..
avec ce code, j'obtiens la formule sous BO (=<>), moi je cherche à retourner le SQL de l'objet (Designer)

j'ai peut être trouvée quelque chose mais si quelqu'un est plus rapide que moi je dis pas non

[nuke_y]

Le SQL de l'objet ?? Tu vas devoir aller chercher dans le fournisseur de données je pense... Pas évident...

[Adelys]

Les posts se sont croisés

En fait je viens de trouver: DocumentVariable Class / Values Property
qui retourne la valeur d'une variable

Mes notions d'anglais techniques/BO sont bof alors faut tester

J'ai trouvé l'info dans le BusinessObjects SDK reference Guide

je retourner 'jouer' je vous tiens au courant

[Adelys]

Envoyé par nuke_y

Le SQL de l'objet ?? Tu vas devoir aller chercher dans le fournisseur de données je pense... Pas évident...

je l'utilise déjà pour retourner la classe de l'objet
extrait:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
                FOR j = 1 TO docMyDocument.DataProviders.Count
                    SET dpMyDataProvider = docMyDocument.DataProviders.Item(j)
                    IF dpMyDataProvider.GetType = "DPQTC" Then
 
                        'Nom de la requête
                        strDataProviderName = dpMyDataProvider.Name
 
                     'Objets du SELECT
                        FOR i = 1 TO dpMyDataProvider.Queries.Item(1).Results.Count
                            'Nom de l'Objet contenu dans le SELECT
                            StrObjectName = dpMyDataProvider.Queries.Item(1).Results.Item(i).Object
                            'Classe de l'Objet contenu dans le SELECT
                            StrClass = dpMyDataProvider.Queries.Item(1).Results.Item(i).Class