[BO] Pb : Exportation des plusieurs rapports au format Excel

Pb : Exportation des plusieurs rapports au format Excel [BO] - VB/VBA/VBS - Programmation

Marsh Posté le 20-04-2004 à 10:11:26    

bonjour,
 
je souhaiterais exporter tout les rapports d'un document BO dans un fichier excel.
qui contient donc autant de feuilles Excel, que de rapport Bo dans le document BO.
 
OK ?
 
principe :
- j'exporte chaque rapport BO dans un fichier texte.
- je crée un fichier Excel
- j'importe les fichiers texte dans les feuilles Excel.
- j'enregistre
 - je ferme, je libère tout (mémoire...)
 
voici un code que j'ai trouvé sur des forums anglais. :
 

Code :
  1. ' ---------------------------------------------------------------
  2. ' exportation au format xls
  3. ' ---------------------------------------------------------------
  4. ' principe : exportation des différents rapports au format texte,
  5. '            puis importation dans des feuilles excel.
  6. ' ---------------------------------------------------------------
  7. Sub export_Excel(lparam As String)
  9. On Error GoTo error_handler
  11. Dim Doc As Document
  12. Dim Rep As Report
  13. Dim i As Integer
  14. Dim ExcelDoc As String ' nom du fichier excel cible
  15. Dim Path As String ' lien pour le fichier excel cible
  17. ExcelDoc = ActiveDocument.Name & lparam ' nom du ficher excel
  18. Path = "P:\test\"  ' lien pour stocker le fichier excel
  21. ' enregistre les rapports au format text
  22. Set Doc = ActiveDocument
  23. For i = 1 To Doc.Reports.Count
  24.   Set Rep = Doc.Reports.Item(i)
  25. If Dir(Path & Rep.Name & ".txt" ) <> " " Then
  26.     Kill Path & Rep.Name & ".txt"
  27.   End If
  28.   Rep.ExportAsText (Path & Rep.Name & ".txt" )
  29. Next i
  31. Set vbExcel = CreateObject("Excel.Application" )
  32. With vbExcel
  33. ' création d'un fichier excel, qui contiendra les ficher au format txt
  34.   If Dir(Path & ExcelDoc & ".xls" ) <> " " Then
  35.     Kill Path & ExcelDoc & ".xls"
  36.   End If
  37.   .Workbooks.Add
  38.   .ActiveWorkbook.SaveAs Path & ExcelDoc & ".xls"
  39. ' ouvre les sources, enregistre au formazt excel, et immport dans la bonne destination
  40. For i = 1 To Doc.Reports.Count
  41.   Set Rep = Doc.Reports.Item(i)
  42.   .Workbooks.Open Path & Rep.Name & ".txt"
  43.   If Dir(Path & Rep.Name & ".xls" ) <> " " Then
  44.     Kill Path & Rep.Name & ".xls"
  45.   End If
  46.   .ActiveWorkbook.SaveAs Path & Rep.Name & ".xls"
  47.   ' copie des feuilles dans le fichier excel
  48.     .Workbooks(Rep.Name & ".xls" ).Sheets(Rep.Name).Move _
  49.       Before:=.Workbooks(ExcelDoc & ".xls" ).Sheets("Sheet1" )
  50. Next i
  51. ' ferme tout les workbooks
  52.   .ActiveWorkbook.Save
  53.   Workbooks.Close
  54. ' ferme l'application
  55.   .Quit
  56. End With
  57.   ' libère la mémoire
  58.   Set vbExcel = Nothing
  60. Exit Sub
  62. error_handler:
  63. If Err.Number = 53 Then Resume Next
  64.   MsgBox Err.Number & " - " & Err.Description
  65.   Workbooks.Close
  66.   vbExcel.Quit
  67.   Set vbExcel = Nothing
  68.     Set OlkApp = Nothing
  70. End Sub


 
problème, marche pas, il me dit une erreur :
70 - permission refusée.
 
une idée ??? perso, je ne vois pas, si ce n'est que Workbooks devrais peut etreetre en français (j'ai déjà eu des Pb avec des nom de méthode en anglais, qui devais etre en français...)
 
mais je ne trouve pas de traduction qui marche pour Workbooks...
 
des idées...
 
merci d'avance.
bonne journée.

Reply

Marsh Posté le 20-04-2004 à 10:11:26   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed