Bonjour,

j'ai fait une application sur Access et je veut ajouter un bouton pour exporté les tableaux Access en Excel. j'ai ecrit un code VB mais il prend que la premiere ligne et moi je veut toute le tableau

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Private Sub BDCEnvoiExcel_Click()
Dim TableClient As Recordset
Set TableClient = CurrentDb.OpenRecordset("Internal", dbOpenDynaset)
 
Dim MonExcel As Object
Set MonExcel = New Excel.Application
MonExcel.Workbooks.Add
MonExcel.ActiveWorkbook.ActiveSheet.Range("A1").Value = "Department_Unit :"
MonExcel.ActiveWorkbook.ActiveSheet.Range("B1").Value = "Label :"
MonExcel.ActiveWorkbook.ActiveSheet.Range("C1").Value = "Only :"
 
MonExcel.ActiveWorkbook.ActiveSheet.Range("A1").Value = TableClient("Department_Unit")
MonExcel.ActiveWorkbook.ActiveSheet.Range("B1").Value = TableClient("Label")
MonExcel.ActiveWorkbook.ActiveSheet.Range("C1").Value = TableClient("Only")
 
On Error Resume Next
Kill "D:\resultat.xls"
On Error GoTo 0
MonExcel.ActiveWorkbook.SaveAs "D:\resultat.xls"
MonExcel.ActiveWorkbook.Close
Set MonExcel = Nothing
TableClient.Close
Set TableClient = Nothing
End Sub
est ce qu'il faut ajouté un boucle for et si oui comment?

Merci