[BO 5.1.9][Deski] Cacher un/des onglet(s) [Résolu]

[Skirlou]

Bonjour,


Je voudrais savoir s'il est possible de cacher un onglet dans un rapport BO en fonction d'un résulat null ou pas (par exemple).
Voir faire en sorte qu'il ne s'imprime pas ou bien même qu'il n'apparaisse pas lors d'une conversion en PDF.

Je n'ai vu aucune fonction qui pourrait convenir, mais je sais qu'il y a quelques champions sur ce forum


Merci d'avance pour votre réponse,

Bien à vous,
Bernard.

[bastoonet]

oulalalala !!!
euh..pas possible ça


....ptet avec une macro VB (c'est ce que je dis toujours quand je sais pas...)

[Bruno2r]

Bonsoir,
Pour ce qui est de masquer un onglet (rapport) dans un document BO je vérifierai demain, n'ayant pas BO sous la main ce soir, si on peut en VBA masquer un rapport dans un AfterRefresn().

En revanche, et toujours en VBA, il est tout à fait possible de parcourir les rapports et faire un pdf par rapport plutôt qu'un pdf complet.

Je ne sais pas si ça te conviendrait ...

[Skirlou]

Désolé pour ma réponse tardive.

Merci pour vos réponses

Une idée à suivre afin de n'inclure que certains onglets dans le pdf m'intéresse fortement.

J'attends ta réponse avec impatience.

@bientôt.

Skirlou

[Bruno2r]

Bonsoir,
Masquer l'onglet d'un rapport je ne sais pas faire.
En revanche, si l'objectif est d'enregistrer en pdf les rapports sauf un (ou certains) un peu de VBA ne saurait nuire.

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
Sub AfterRefresh()
Dim Doc AS Document, 
Dim nbreps AS Integer, irep AS Integer
Dim rep AS Report
Dim repname AS String
Dim chemin AS String
 
chemin = "C:\Madestination\DansCeDossier\"
Set Doc = Application.ActiveDocument
'------- Détermination du nb de rapports
nbreps = Doc.Reports.Count
 
 
' -------- Récupérer les rapports  -------
' -----Boucle sur chacun d'eux
For irep = 1 To nbreps
     ' ----- Limitation au rapports à exporter
  Set rep = Doc.Reports.Item(irep)
  Set repname = rep.Name
  If repname <> "PasCeluiLà" Then
       rep.ExportAsPDF chemin & repname & ".pdf" 
    End If
Next 
End Sub

A tester et à corriger éventuellement car je suis à la maison et j'ai fait ça de tête sans tester
Donc soyez indulgent

[Skirlou]

Bonjour,

La demande qui m'a été faite était de cacher l'onglet....si ce n'est pas possible comme tous le monde semble le le dire sur ce forum et dans d'autres...

Encore une demande bizarre d'une petite nouvelle complètement stressée...

Je vais donc proposer cette macro à la place (pour laquelle je te remercie encore).

@bientôt et bonne journée,
Skirlou.