Bonjour,
je souhaite exporter le resultat d une requete sur excel et j ai trouve le code suivant :
seulement je ne vois pas a quel moment on dit a partir de quelle requete on exporte...
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
27
28
29
30 message = MsgBox("Do you want to export the relative data to an Excel application ?", vbYesNo) If message = vbYes Then Dim appexcel As Excel.Application Dim wbexcel As Excel.Workbook Dim wsexcel As Excel.Worksheet 'Appel du fichier Excel Set appexcel = CreateObject("Excel.Application") appexcel.Visible = True Set wbexcel = appexcel.Workbooks.Open("....xls") 'Appel de la feuille correspondante appexcel.Sheets("Daily").Select 'Remplissage dans Excel (Exemple à partir d'une requête), sur des cellules bien précises For I = 2 To 31 appexcel.Cells(1, I) = rst![Nomduchamp1] appexcel.Cells(3, I) = rst![Nomduchamp2] etc... Next I End If
Pourriez vous m eclairer ??
Merci pour votre aide
Partager