Parametrage BOXI ExportAsHtmlPage

[p940176]

Bonjour,
je n'arrive pas à mettre les paramètres pour la fonction ExportAsHtmlPage dans une macro dans BOXI pour le transfert de données vers un fichier mht.
Merci de me transmettre les bonnes lignes de cde.

Code :

1
2
3
4
5
6
7
Sub ExportReport()
Dim Doc AS Document
Dim chemin AS String
chemin = "C:\User\Bov5\HTML\"
Set Doc = Application.ActiveDocument
Doc.ExportAsHtmlPage chemin & ActiveDocument.Name & ".htm"
End Sub

cordialement

[bastoonet]

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Sub ExportReport()
 
Dim Doc AS Document
Dim Rep AS Report
Dim chemin AS String
chemin = "C:\"
Set Doc = Application.ActiveDocument
Set Rep = Doc.ActiveReport
 
Rep.ExportAsHtml chemin & ActiveDocument.Name & ".htm"
 
End Sub