Discussion :

[CélineM]

Bonjour,
J'ai un soucis, dans cette macro j'aimerai enregistrer tous les rapports actifs sous BO en une seule fois en .txt. La fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SET borep=ActiveReport

doit pouvoir se remplacer par quelque chose qui donnerai l'instruction de prendre tous les documents actifs. Avez vous une idée. Merci d'avance de votre aide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub convertBO_txt()
Dim bodoc As busobj.Document
Dim borep As busobj.Report
Dim stroutputfilename As String
 
Set bodoc = ActiveDocument
Set borep = ActiveReport
 
stroutputfilename = "U:\" & borep.Name & ".txt"
borep.ExportAsText (stroutputfilename)
End Sub

[ouskel'n'or]

J'ai vu que tu avais posé ta question sur le forum BO et je pense que tu auras plus de chances "là-bas.
Bonne chance donc.