[VBA] (Xi R3) erreur avec AddComplexFilter [Résolu]

[gillou13]

Bonjour à tous,

J'essai d'automatiquer la création d'un rapport(en .pdf) pour chaque 'analyste'

J'essai d'utiliser la fonction AddComplexFilter mais BO me retourne toujours une erreur (de syntaxe dans la plus part de mes tests).

j'ai parcouru les topiques du fofo sur ce sujet mais je ne trouve pas l'explication à mon problème. la syntaxe a l'aire bonne.

mon code est dans AfterRefresh :

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
 
    Dim tmp AS String
 
    Dim doc AS busobj.Document
    Dim rep AS busobj.Report
    Dim tp  AS busobj.DocumentVariable
 
    'ini des variables
    Set doc = ThisDocument
    Set rep = doc.ActiveReport
    Set tp = doc.DocumentVariables("Dos-Analyse") 'dimension Dos-analyste pour la boucle sur les documents
 
 
    'Parcours des valeurs de Dos-Analyste
    For Each X In tp.Values(boUniqueValues)
        rep.Activate
        'Application du filtre sur l'analyste :
        'tmp = "[Dos-Analyste]=""" + X + """"
        tmp = "=<Dos-Analyste>=" + Chr(34) + X + Chr(34)
        MsgBox tmp
        rep.AddComplexFilter tp.nom, tmp
        'rep.AddComplexFilter tp, tmp
        'Call rep.AddComplexFilter tp, tmp
        'Recalcule du rapport
        rep.ForceCompute
        'Enregistrement en PDF
        rep.ExportAsPDF "G:\temp\" & doc.Name & "-" & X & ".pdf"
    Next

Merci d'avance pour vos contributions.

[gillou13]

pour info :
je viens de tester avec tmp = "=(0=0)"
et aucune erreur a été detecté.

Mais quand je test avec une syntaxe intégrant la dimension Dos-analyste (avec <> ou [] ou encor rien) j'obtiens toujours une erreure...

[gillou13]

Bon c'est résolut en indiquant la ligne suivante :

Code :

tmp = "=<" + tp.Name + ">=" + Chr(34) + X + Chr(34)

le contenu de tmp est identique a mon ancienne ligne mais sa fonctionne...