'*** Voilà le code necessaire pour exporter votre raport en word ou en excel
'1ére Methode : Exporter d'aprés le CRViewer
'===================================================
' Tu doit ecrire ce code dans la page ou tu affiche votre CRViewer
'Note: Il faut ajouter un controle Commondialog (Name:comm) à
' votre interface pour ouvrir la boite de dialogue Enregistrer
'CrystalReport1 c'est nom de votre rapport (fichier .Dsr)
'Report c'est le nom du variable objet
Dim Report As New CrystalReport1
'*** Procedure pour exporter le raport en format word
Private Sub ToWord()
Dim rep As CRAXDDT.Report
comm.Filter = "Word Format (*.doc)|*.doc"
comm.ShowSave
If comm.FileName <> "" Then
Set rep = Report
rep.ExportOptions.DestinationType = crEDTDiskFile
rep.ExportOptions.FormatType = crEFTWordForWindows
rep.ExportOptions.DiskFileName = comm.FileName
rep.Export False
End If
End Sub
'**** Procedure pour exporter le raport en format excel
Private Sub ToExcel()
Dim rep As CRAXDDT.Report
comm.Filter = "Excel Format (*.xls)|*.xls"
comm.ShowSave
If comm.FileName <> "" Then
Set rep = Report
rep.ExportOptions.DestinationType = crEDTDiskFile
rep.ExportOptions.FormatType = crEFTExcel80
rep.ExportOptions.DiskFileName = comm.FileName
rep.Export False
End If
End Sub
'**Ajouter dans cette page deux bouton de commande "Exporter vers excel"
' "Exporter vers word" et tu ecrit :
Private Sub CmdExportToExcel_Click()
ToWord()
End ub
Private Sub CmdExportToExcel_Click()
ToExcel()
End ub
'2éme Methode : Exporter d'aprés le fichier .rpt en Excel
'===================================================
Private Sub ToExcel()
Dim appl As New CRAXDRT.Application
Dim rep As New CRAXDRT.Report
Set rep = appl.OpenReport("
\\chemin\exemple.rpt", 1)
With rep
'exporter dans exemple.xls
.ExportOptions.DestinationType = crEDTDiskFile
'** Pour choisir un emplacement pour l'enregistrement voir en haut
'** à l'aide du controle CommonDialog "comm"
.ExportOptions.DiskFileName = "c:\exemple.xls"
.ExportOptions.FormatType = crEFTExcel80
.Export False
End With
End Sub