Exporter résultat requête vers Fichier Excel inexistant.

**Mykimix** · 27/11/2012, 16h20

Bonjour,

J'aimerais exporter les résultats d'une requête vers un fichier excel que ma macro génère. Problème je suis bloqué après la création du fichier.

Je n'arrive pas à trouver des tutos. Pouvez vous m'aider ou m'orienter svp ?

Voici ce que j'ai ecrit :

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
Private Sub Commande3_Click()
 
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
 
 'CREATION D UN FICHIER EXCEL
    Set xlApp = CreateObject("Excel.Application")
 'NOMBRE D'ONGLET
    xlApp.SheetsInNewWorkbook = 2
 'AJOUT D'UN CLASSEUR
    Set xlBook = xlApp.Workbooks.Add
 'NOM DU CLASSEUR
    xlBook.SaveAs ("Synthèse projet PPNE RMN.xls")
  'CLASSEUR VISIBLE
    xlApp.Visible = True
 'CREATION OBJET ONGLET
    Set xlSheet = xlBook.Worksheets(1)
  'NOM DE L ONGLET    xlSheet.Name = "Synthèse projet"
 'LIBERATION DE L'ONGLET POUR EN CREER UN NOUVEAU
    Set xlSheet = Nothing
    Set xlSheet = xlBook.Worksheets(2)
    xlSheet.Name = "Teste"
 'PROPRIETE A 2
    xlApp.SheetsInNewWorkbook = 2

Cordialement Mykimix

**sebing** · 27/11/2012, 19h26

Bonjour,

j'ai essayé de terminer le code en rajoutant un bout de code que je me suis servi pour exporter une requête dans un classeur excel:

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
'
Private Sub Commande3_Click()
 
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim I As Long, J As Long
Dim rec As DAO.Recordset
 
 'CREATION D UN FICHIER EXCEL
    Set xlApp = CreateObject("Excel.Application")
 'NOMBRE D'ONGLET
    xlApp.SheetsInNewWorkbook = 2
 'AJOUT D'UN CLASSEUR
    Set xlBook = xlApp.Workbooks.Add
 'NOM DU CLASSEUR
    xlBook.SaveAs ("Synthèse projet PPNE RMN.xls")
  'CLASSEUR VISIBLE
    xlApp.Visible = True
 'CREATION OBJET ONGLET
    Set xlSheet = xlBook.Worksheets(1)
  'NOM DE L ONGLET    xlSheet.Name = "Synthèse projet"
 'LIBERATION DE L'ONGLET POUR EN CREER UN NOUVEAU
    Set xlSheet = Nothing
    Set xlSheet = xlBook.Worksheets(2)
    xlSheet.Name = "Teste"
 'PROPRIETE A 2
    xlApp.SheetsInNewWorkbook = 2
 
 Ouverture recordset sur données à exporter
    Set rec = CurrentDb.OpenRecordset("SELECT * FROM ta_requete", dbOpenSnapshot)
 
    ' recopie des données à partir de la ligne 3
    I = 3
    Do While Not rec.EOF
        For J = 0 To rec.Fields.Count - 1
            ' .Fields(Index).Type renvoie le type du champ
            '   si c'est un Texte (dbText) nous insérons "'" pour
            '   qu'il soit reconnu par Excel comme du Texte
            If rec.Fields(J).Type = dbText Then
                xlSheet.Cells(I, J + 1) = "'" & rec.Fields(J)
            Else
                xlSheet.Cells(I, J + 1) = rec.Fields(J)
            End If
        Next J
        I = I + 1
        rec.MoveNext
    Loop
 
    ' Fermeture et libération recordset
    rec.Close
    Set rec = Nothing
 
       xlBook.Save
 
    Set xlSheet = Nothing
    Set xlBook = Nothing
    xlApp.Quit
    Set xlApp = Nothing

J’espère que je me suis pas trompé car je ne maitrise pas l'exportation et je viens juste de me servir de ce code
Bonne soirée

Seb

**Mykimix** · 28/11/2012, 09h51

Bonjour sebing,

Je n'arrive pas à transposer ton morceau de code, il ne trouve même pas le nom de ma requête. ( Pourtant simple car elle s'appelle "RMN").

Cordialement Mykimix