Discussion :

[psykot63]

Tout d'abord bonne année tout le monde.

J'aimerais savoir comment exporter les données d'une requete sur une feuille excel.
Cette feuille est un modele de facture et suivant la requete j'aimerais que excel recupère les données.

Un peu comme le publipostage sous Word.
Merci d'avance

[bnfouzi]

Tu vas trouvé ce que tu cherches sur le faq access
http://access.developpez.com/faq/?pa...ataAccessExcel

[pc75]

Bonjour,

Une alternative :

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
31
32
33
34
35
 
SQLtemp = "select NOM, PRENOM from MaTable " 
Set rs = Server.CreateObject("ADODB.Recordset") 
rs.open SQLtemp, Application("DsnODBC") 
if not rs.EOF then 
   rs.MoveFirst 
   chemin = "C:\DATABASES\MonFichier.XLS" 
   Set fso = CreateObject("Scripting.FileSystemObject") 
   if fso.FileExists(chemin) then 
      fso.DeleteFile(chemin) 
   end if 
   Set a = fso.CreateTextFile(chemin, True) 
   ' chr (34) remplace les guillements à la suite de l'instruction 
   a.writeLine "ID;PWXL;N;E" ' Début du codage excel 
 
   ' Titres des colonnes 
   a.writeLine "C;Y1;X1;K" & CHR(34) & ("NOM") & CHR(34) 
   a.writeLine "C;Y1;X2;K" & CHR(34) & ("PRENOM") & CHR(34) 
   ' Lignes de données 
   Ligne = 2 
   do while not rs.EOF 
      a.writeLine "C;Y" & Ligne & ";X1;K" & CHR(34) & (rs("NOM")) & CHR(34) 
      a.writeLine "C;Y" & Ligne & ";X2;K" & CHR(34) & (rs("PRENOM")) & CHR(34) 
      Ligne = Ligne + 1 
      rs.MoveNext 
   Loop 
   a.writeLine "E" ' Fin du codage excel 
   rs.Close 
   set rs = nothing 
   a.Close 
   Set fso = nothing 
else 
   rs.Close 
   set rs = nothing 
end if