Copier/coller une feuille Excel avec ACCES

Copier/coller une feuille Excel avec ACCES - VB/VBA/VBS - Programmation

Marsh Posté le 25-04-2006 à 11:57:33    

Bonjour à tous,  
voici mon problème je souhaite copier la table que j'exporte dans la feuille "SXX" dans la feuille "S0" de mon fichier excel, tout ça en VB.
 
Voici mon code:
 

Code :
  1. Option Compare Database
  3. Sub ExportTblAccessInExcel()
  5. Dim Db As DAO.Database
  6. Dim Rs As DAO.Recordset
  7. Dim Xlapp As Excel.Application
  8. Dim XlBook As Excel.Workbook
  9. Dim XlSheet As Excel.Worksheet
  10. Dim NomFeuille As String
  12. On Error GoTo errOuvrirExcel
  13. Set Xlapp = GetObject(, "Excel.Application" )
  14. 'On Error GoTo oups:
  15. On Error GoTo 0
  16. Xlapp.Visible = True
  18. NomFeuille = "S" & DatePart("ww", Date) - 1
  19. 'SemainePré = "S" & DatePart("ww", Date) - 2
  21. Set XlBook = Xlapp.Workbooks.Open("C:\Documents and Settings\A4382\Bureau\stage\Nvx_clients_par_BG_2006_S14.xls" )
  22. 'Set XlSheet = XlBook.Worksheets("S0" )
  23. 'Set XlSheet = XlBook.Worksheets("Semaine S-1" )
  25. If FeuilleExiste(NomFeuille, XlBook) Then
  26.   Set XlSheet = XlBook.Worksheets("NomFeuille" )
  27.  
  28.    ' efface les données
  29.    XlSheet.Cells.Clear
  30. Else
  31.    ' Ajouter nouvelle feuille en dernière position
  32.    Set XlSheet = XlBook.Worksheets.Add(, XlBook.Worksheets(XlBook.Worksheets.Count - 2))
  33.    XlSheet.Name = NomFeuille
  34.  
  35. End If
  37. Set Db = CurrentDb
  38. ' Copie dans feuille (nouvelle ou effacée)
  39. Set Rs = Db.OpenRecordset("T31_Cumul_Nvx_clients_par_BG", , dbOpenForwardOnly)
  40. XlSheet.Range("A1" ).CopyFromRecordset Rs
  41. Set XlSheet = Nothing
  44. ' remise au début car le 'CopyFromRecordset' ne le fait pas
  45. Rs.MoveFirst
  46. XlSheet.Range("A1" ).CopyFromRecordset Rs
  47. ' Ferme les Var
  48. Rs.Close: Set Rs = Nothing
  49. Db.Close: Set Db = Nothing
  50. Set XlSheet = Nothing
  51. ' Sauve le fichier
  52. XlBook.Save
  53. XlBook.Close
  54. Set XlBook = Nothing
  55. Set Xlapp = Nothing
  57. Exit Sub
  58. errOuvrirExcel:
  59. 'Err 429 : Un serveur OLE Automation ne peut pas créer d'objet
  60. ' -> Excel n'est PAS encore ouvert.
  61. If Err = 429 Then
  62. Set Xlapp = CreateObject("Excel.Application" )
  63. Resume Next
  64. End If
  65. oups:
  66. MsgBox Err.Number & " - " & Err.Description
  67. End Sub
  69. Function FeuilleExiste(NomFeuille As String, Classeur As Excel.Workbook) As Boolean
  70. Dim errNum As Long, strName As String
  71.   errNum = 0: Err.Clear
  72.    On Error Resume Next
  73.    strName = Classeur.Worksheets(NomFeuille).Name
  74.    errNum = Err.Number
  75.    On Error GoTo 0
  76.    If errNum = 0 Then FeuilleExiste = True Else FeuilleExiste = False
  77. End Function


Message édité par PAULOM le 25-04-2006 à 12:01:04
Reply

Marsh Posté le 25-04-2006 à 11:57:33   

Reply

Marsh Posté le 25-04-2006 à 15:23:54    

Tout cela est très bien, mais tu n'as fait qu'exposer ton objectif. Quel est ton problème ?

Reply

Marsh Posté le 25-04-2006 à 15:59:07    

Mon probleme est que je n'arrive pas comment copier une feuille excel par l'intermédiaire de VB...
 
En gros je veux que 2 feuilles de mon fichier Excel aient les memes données sous un nom différent.

Reply

Marsh Posté le 25-04-2006 à 17:31:32    

Reply

Sujets relatifs:

Leave a Replay

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