Discussion :

[Bourezak]

Bonjour,

je souhaite exporter une table access vers excel. Jusque là tout joue, problème lorsque j'essaye de nommer la feuille excel par la date du jour : bug

Voici mon code.

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
26
'******************************
 
Sub exportinventory()
 
    Dim TableName As String
    Dim FileName As String
 
    FileName = "H:\Daily report\2007\Inventory_Daily_Report"
    TableName = "Inventory_data_daily_report_for_all_warehouse"
 
    Call exportTableinv(TableName, FileName)
 
End Sub
 
'******************************
 
Sub exportTableinv(TableName As String, FileName As String)
 
Dim hui As Date
 
hui = Date
 
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, TableName, FileName, True, hui
End Sub
 
'******************************

Merci d'avance du temps accordé à ma requête.

[fulgaro]

bonjour,
il faut que tu remplaces les "/" par des "-"

[cafeine]

Hello,

en principe on ne peut pas préciser d'onglet à l'export par la commande TransferSpreadsheet.
cf.
http://cafeine.developpez.com/access...l/excel/#LIV-A

[DuDe92]

Bonjour,
Je ne sais pas si ç'a peux t'aider mais j'exporte ma table de cette manière
sur un clic par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Commande128_Click()
Dim TableName As String
Dim FileName As String
Dim hui
 
hui = Format(Date, "dd-mm-yy")
 
FileName = "E:\MonRep\MonNomdefichier" & "_" & hui & ".xls"
TableName = "Mattable"
DoCmd.TransferSpreadsheet acExport,acSpreadsheetTypeExcel9,TableName, FileName, True
 
End Sub