[VBA]Filtre automatique suivant onglet [Résolu]

[cdumas]

Bonjour,

J'ai un rapport d'environ 200 onglets, il y a un filtre sur le libellé société sur chacun de ces onglets.

Les libellés sociétés ont été modifiés, donc plus aucun filtre ne fonctionne.

Avez vous une solution pour faire un filtre suivant le nom de l'onglet en automatique pour ne pas avoir à refaire tous les onglets 1 par 1 ?

Les onglets se nomment par exemple 012 LYON AAA
012 code magasin
LYON libellé magasin
AAA code société

Rapport sur Desktop 11.5.0.0

Merci,

[Bruno2r]

Salut
Le plus simple est de récupérer en VBA le nom de chaque onglet

Code :

1
2
3
4
5
6
7
8
Private Sub RecupReportName()
Dim nbreports AS Integer, i AS Integer, ongletname  AS String
 nbreports = Application.ActiveDocument.Reports.Count
 FOR i = 1 TO nbreports
    ongletname = Application.ActiveDocument.Reports.Item(i).Name
 
  Loop
End Sub

[cdumas]

J'ai testé le filtre mais je ne sais pas comment lui dire de prendre la valeur de ongletname comme point de comparaison

Code :

1
2
3
4
5
6
7
8
9
10
Sub RecupReportName()
Dim nbreports As Integer, i As Integer, ongletname  As String
 nbreports = Application.ActiveDocument.Reports.Count
 For i = 1 To nbreports
    ongletname = Application.ActiveDocument.Reports.Item(i).Name
    Application.ActiveDocument.Reports.Item(i).AddComplexFilter "Code Societe", "=<Code Societe> = ""ongletname"" "
Next

End Sub

[Bruno2r]

Envoyé par cdumas

J'ai testé le filtre mais je ne sais pas comment lui dire de prendre la valeur de ongletname comme point de comparaison

En VBA on pose le filtre à l'aide de

Code :

 Application.ActiveDocument.Reports.Item(i).AddComplexFilter(Variable,Formula AS String)

[cdumas]

Mais ongletname est un string,

Est-ce possible ou/non de prendre dans la formule du filtre le nom de l'onglet :
Filtre souhaité : =<Code Societe> = valeur de l'onglet

Si oui quel est la syntaxe

J'ai essayé :

Code :

"=<Code Societe> = ""ongletname"" "

Résultat filtre avec comme valeur ongletname

Code :

"=<Code Societe> = "" & ongletname & "" "

Résultat filtre avec comme valeur & ongletname &

Code :

"=<Code Societe> = " & ongletname & " "

Résultat type de données incorrect

Je n'ai pas vraiment d'autres idées, si vous pouvez m'aider ?

Merci,

[Bruno2r]

Ouh la! Tu n'as pas du tout compris...

Les indices que je t'ai filés ont pour objectif de rétablir tes filtres en VBA au travers de VisualBasic Editor Alt+F11

Tu peux créer une procédure qui
Compte le nb de Reports (onglets) de ton activeDocument
Fait une boucle pour récupérer le nom de chaque onglet
Récupérer dans ce nom le dernier terme (code société)
Le stock dans une variable
L'applique au rapport à l'aide de la méthode Report.AddComplexFilter

Mais si tu 'as jamais fait de VBA dans BO je dois te parler Hébreux

[cdumas]

J'arrive avec ce code à récupérer le code societe la fin du nom de mes onglets sans problème.

Code :

1
2
3
4
5
6
7
8
9
10
11
Sub RecupReportName()
Dim nbreports AS Integer, i AS Integer, ongletname  AS String
Dim code_soc AS String
 
 nbreports = Application.ActiveDocument.Reports.Count
 FOR i = 1 TO nbreports
    ongletname = Application.ActiveDocument.Reports.Item(i).Name
    code_soc = RIGHT(ongletname, 2)  
    Application.ActiveDocument.Reports.Item(i).AddComplexFilter "Code Societe", "=<Code Societe> = "" code_soc "" "
Next
End Sub

C'est cette étape que je n'arrive pas à faire.

L'applique au rapport à l'aide de la méthode Report.AddComplexFilter

J'ai fait un peu de VB6 il y a des années donc j'ai quelques souvenirs mais c'est un peu loin .

Je n'arrive pas à faire la syntaxe du AddComplexFilter.

[Bruno2r]

Application.ActiveDocument.Reports.Item(i).AddComplexFilter "Code Societe", "=<Code Societe> = "" code_soc "" "
Next
End Sub

Ce srait pas plutôt :

Code :

1
2
3
Application.ActiveDocument.Reports.Item(i).AddComplexFilter "Code Societe", "=<Code Societe> = " & code_soc 
Next
End Sub

[cdumas]

Avec :

Code :

1
2
 
Application.ActiveDocument.Reports.Item(i).AddComplexFilter "Code Societe", "=<Code Societe> = " & code_soc

J'obtiens l'erreur :
Erreur d'execution '20' :
Bad Formula : Type de données incorrects (DMB0003.

[Bruno2r]

Je pense qu'il manque un espace entre = et <

Code :

1
2
Application.ActiveDocument.Reports.Item(i).AddComplexFilter "Code Societe", "=<Code Societe> = " & code_soc 
Application.ActiveDocument.Reports.Item(i).ForceCompute

Bye à lundi

[cdumas]

J'ai testé en arrivant mais c'est toujours la même erreur.
Vu qu'il n'y a que 5 codes sociétés différents j'ai fait un select case pour résoudre l'appel.
Mon code devient :

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
 
Sub RecupReportName()
Dim nbreports AS Integer, i AS Integer, ongletname  AS String
Dim code_soc AS String
 
 nbreports = Application.ActiveDocument.Reports.Count
    nbreports = 2
 
 FOR i = 1 TO nbreports
    ongletname = Application.ActiveDocument.Reports.Item(i).Name
    code_soc = RIGHT(ongletname, 3)
 
 
    SELECT Case code_soc    ' Evaluation du code_soc
     Case "CAD"    ' Societe 01
        Application.ActiveDocument.Reports.Item(i).AddComplexFilter "Code Societe", "=<Code Societe> = ""01"""
      Case "AGO"  ' Societe 25
        Application.ActiveDocument.Reports.Item(i).AddComplexFilter "Code Societe", "=<Code Societe> = ""25"""    
    Case "ASE"  ' Societe 26
        Application.ActiveDocument.Reports.Item(i).AddComplexFilter "Code Societe", "=<Code Societe> = ""26"""
    Case "ALP"   ' Société 27
        Application.ActiveDocument.Reports.Item(i).AddComplexFilter "Code Societe", "=<Code Societe> = ""27"""
    Case "IRI"  ' Societe 36
        Application.ActiveDocument.Reports.Item(i).AddComplexFilter "Code Societe", "=<Code Societe> = ""36"""
    Case Else    ' Autres cas pas de filtre
 
    End Select
 
Next
 
End Sub

Merci pour l'aide,

[Bruno2r]

Ah bon ?
Mais je ne me souviens pas que tu ais mentionné que la valeur à poser en filtre était "01" ,"25","27","36" ....

Le select case dans ton cas est tout indiqué. Si tu devais avoir plus d sociétés il te sufirait d'ajouter une requête du type

Code :

SELECT COESOC, NAMESOC FROM TSOC

En utilants la même méthode qu'avec Report (count puis boucle) sur les Providers tu pourrait récupérer le code correpondant au nom.