Bonjour
je cherche à exporter des donnees de 3 colonnes vers des plages bien prècis sur une feuille Excel .
en consultant FAQ j'ai trouvé début de réponse sur "Comment envoyer des données Access sur Excel ? " mais l'opèration s'arrête à l'ouverture de la feuille excel sans export des données.
[M11], [Entree] et [Objectif] sont des champs de ma requête.
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 Private Sub Report_Close() Dim appexcel As Excel.Application Dim wbexcel As Excel.Workbook Set appexcel = CreateObject("Excel.Application") appexcel.Visible = True Set wbexcel = appexcel.Workbooks.Open("F:\TB_2012") appexcel.Sheets("Feuil1").Select appexcel.Cells(3, 4) = rst![M11] appexcel.Cells(3, 6) = rst![Entree] appexcel.Cells(3, 10) = rst![Objectif] End Sub
Merci
Partager