Exporter 10 requêtes vers classeur Excel

**demichoux** · 21/02/2011, 19h23

Bonsoir,

J'aimerais pouvoir exporter 3 de mes requêtes en même temps,sur 3 feuilles différentes a l'aide d'un bouton, je me suis aider du tutoriel Communication entre Access et Excel (Notre référent Vba au boulot et submergé de travail et m'a fais comprendre de me débrouillé)
§V. Automation
V-A. Le code

http://cafeine.developpez.com/access...iel/excel/#LIV

J'arrive bien a exporter une de mes requête mais pas les 3 en mêmes temps

Quelqu'un Peut-il m'aider SVP.

Merci d'avance

Invité · 22/02/2011, 05h41

Bonjour

Est-ce que tes 3 requêtes doivent être sur la même feuille ou des feuilles différentes ?

Philippe

**demichoux** · 22/02/2011, 06h54

Bonjour Philippe JOCHMANS,

Sur des feuilles différentes de préférence

Merci

**demichoux** · 22/02/2011, 13h29

En faite je n'ai pas 3 requêtes mais 10

dsl

Voila

Bonne Journée à tous

**demichoux** · 23/02/2011, 09h06

Bonjour,

J'ai trouver ce code, mais cela ne fonctionne pas correctement! cela importe que la moitié de mes requête et en plus il importe pas les données qui sont dans mes requête dans mon classeur

Code VBA :

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
 Private Sub Commande43_Click()
      ' déclaration des variables
   Dim tabListe() As String             ' tableau où on va stocker la liste des requête
   Dim xlApp As Excel.Application       ' ne pas oublier de cocher la référence Excel
   Dim xlBook As Excel.Workbook         ' le classeur où se trouve la feuille
   Dim xlSheet As Excel.Worksheet       ' la feuille où on va stocker les tables
   Dim db As DAO.Database              ' nous utilisons la bibilothèque DAO
   Dim rec As DAO.Recordset             ' le recordset pour récupérer les données des tables
   Dim i As Integer                     ' pour boucler sur les tables
   Dim j As Integer
 
 
   Set db = CurrentDb
 
   ' on rempli le tableau avec 8 requête
   ReDim tabListe(9)
 
    tabListe(0) = "J1 et J2 Indicateurs Analyse"
    tabListe(1) = "J1 et J2 Indicateurs Réelle"
    tabListe(2) = "J1 et J2 Indicateurs Théorique"
    tabListe(3) = "J3 et J4 Indicateurs Analyse"
    tabListe(4) = "J3 et J4 Indicateurs Réelle"
    tabListe(5) = "J3 et J4 Indicateurs Théorique"
    tabListe(6) = "Divers Indicateurs Analyse"
    tabListe(7) = "Divers Indicateurs Réelle"
    tabListe(8) = "Divers Indicateurs Théorique"
   ' on créé notre classeur Excel
   Set xlApp = CreateObject("Excel.Application")
   Set xlBook = xlApp.Workbooks.Add
 
   ' bouclage sur les tables pour remplir la feuille
   For i = 0 To UBound(tabListe()) - 1
 
        Set xlSheet = xlBook.Worksheets.Add
        xlSheet.Name = tabListe(i)
            ' les entetes
            '  .Fields(Index).Name renvoie le nom du champ
 
            Set rec = CurrentDb.OpenRecordset(tabListe(i), dbOpenSnapshot)
 
            For j = 0 To rec.Fields.Count - 1
                xlSheet.Cells(1, j + 1) = rec.Fields(j).Name
                    ' Nous appliquons des enrichissements de format aux cellules
                     With xlSheet.Cells(1, j + 1)
                    .Interior.ColorIndex = 15
                    .Interior.Pattern = xlSolid
                    .Borders(xlEdgeBottom).LineStyle = xlContinuous
                    .Borders(xlEdgeBottom).Weight = xlThin
                    .Borders(xlEdgeBottom).ColorIndex = xlAutomatic
                    .horizontalAlignment = xlCenter
                    End With
             Next j
 
            i = i + 1
            rec.MoveNext
 
 
        Set rec = Nothing
   Next i
 
   MsgBox "Fin de traitement -  votre fichier Excel a été enregistré "
    xlBook.SaveAs "D:\TEST.xls"
 
   ' libération des objets
   'xlBook.Save
   xlApp.Quit
   Set xlSheet = Nothing
   Set xlBook = Nothing
   Set xlApp = Nothing
 
End Sub