Export d'une table Access vers une table Excel

Version imprimable

Bonjour à tous,

Je vais vous exposer mon problème.
Voilà, j'ai une table access que j'arrive à exporter sur une table excel (alléluia).
Maintenant ce que je souhaite obtenir c'est l'exportation par rapport à une condition sur un champ de ma table access. Je m'explique, sur ma table 'OPERATION' de access, j'ai un champ date, et je voudrais faire en sorte que l'exportation se fasse quand la date passe d'une année sur l'autre. (01/01/aaaa<=date<='31/12/aaaa').
En fait, le but est d'archiver ma table dans un fichier excel selon la date donnée.

Voici mon code :

Code:

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
72
 
Private Sub archive_Click() 
 
   Dim xlApp As Excel.Application 
    Dim xlSheet As Excel.Worksheet 
    Dim xlBook As Excel.Workbook 
    Dim I As Long, J As Long 
    Dim t0 As Long, t1 As Long 
 
    t0 = Timer 
    Dim rec As DAO.Recordset 
 
    Set rec = CurrentDb.OpenRecordset("OPERATION", dbOpenSnapshot) 
 
    'Initialisations 
    Set xlApp = CreateObject("Excel.Application") 
    Set xlBook = xlApp.Workbooks.Add 
 
    'Ajouter une feuille de calcul 
    Set xlSheet = xlBook.Worksheets.Add 
    xlSheet.Name = "Table" 
 
    ' le titre 
    '  écriture dans la cellule de ligne 1 et de colonne 1 
    xlSheet.Cells(1, 1) = "Export d'une table Access" 
 
 
    ' les entetes 
    '  .Fields(Index).Name renvoie le nom du champ 
    For J = 0 To rec.Fields.Count - 1 
        xlSheet.Cells(2, J + 1) = rec.Fields(J).Name 
        ' Nous appliquons des enrichissements de format aux cellules 
        With xlSheet.Cells(2, 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 
 
    ' 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 
 
    ' code de fermeture et libération des objets 
    xlBook.SaveAs "F:\Feuille.xls" 
    xlApp.Quit 
    rec.Close 
    Set rec = Nothing 
    Set xlSheet = Nothing 
    Set xlBook = Nothing 
    Set xlApp = Nothing 
 
    t1 = Timer 
    Debug.Print I & " enregistrements", Format(t1 - t0, "0") & " secondes" 
 
End Sub

Voilà en vous remerciant d'avance, j'espère que vous pourrez me venir en aide.
Merci,

12/04/2010, 16h05
SSJconsult

Peut-etre une solution...

Bonjour,

Ne cherchant pas a connaitre la condition exact a appliquer, je pense que tu pourrais essayer de remplacer l'instruction :

Code:

Set rec = CurrentDb.OpenRecordset("OPERATION",dbOpenSnapshot)

Par:

Code:

Set rec = CurrentDb.OpenRecordset("SELECT * FROM OPERATION WHERE ... ;", dbOpenSnapshot)

J'espere t'avoir aide un peu ;)
12/04/2010, 16h15
lechtinico

Ah tiens je n'y avais pas pensé.
merci bien :ccool:

je vais tester et je te dirais si c'est ce que je souhaite obtenir.
12/04/2010, 16h58
lechtinico

c'est bon milles merci ça fonctionne bien :P

par contre j'ai une autre question, je ne comprends pas pourquoi lorsque j'exporte d'acces via excel, les champs sont transformés ??? par exemple mais valeur oui non sont transformés en VRAI FAUX et mes dates sont transformées en valeur numérique, c'est assez bizarre...
12/04/2010, 17h17
SSJconsult

...eternels problemes de compatibilite des formats...

Tu dois formater les cellules Excel de la maniere souhaitee.
Pour connaitre les instructions correctes, "joue" avec des "record macro" en Excel avant de reporter les instructions ainsi generees en VBA Access.

Desole, je ne connais pas d'autre solution :(
12/04/2010, 18h09
lechtinico
ok ok pas de soucis, tu m'as déjà bien aidé.

sinon dans ma requête :
Code:

1 2 Set rec = CurrentDb.OpenRecordset("SELECT * FROM OPERATION WHERE ... ;", dbOpenSnapshot)
l'inconvénient, c'est que je dois saisir au fur et a mesure les dates pour exporter.
En supposant que c'est l'utilisateur qui va faire l'exportation, est-ce que c'est possible que je fasse en sorte de lui poser la question du genre :

quelle année à extraire ? de ce fait l'utilisateur pourra faire son choix.

merci d'avance
13/04/2010, 05h29
pier.antoine

Bonjour.

Essayez quelque chose comme cela :

Code:

SELECT * FROM OPERATION WHERE (((maTable.mon CHamp)=[|Quelle valeur?]));

en remplaçant "maTable.mon CHamp" par le champ de votre table correspondant.

Pierre

J'ai essayé cela :
Code:

1 2 Set rec = CurrentDb.OpenRecordset("SELECT * FROM OPERATION WHERE (((OPERATION.sai_o)=[Quelle saison est à archiver?]));", dbOpenSnapshot)
cela me retourne une erreur de type '3061' Trop peu de paramètres. 1 attendu.

13/04/2010, 12h10
pier.antoine

Essayez de trouver la bonne syntaxe SQL en vous aidant de l'éditeur de requête d'Access.

Pierre
13/04/2010, 12h58
yonnel
Citation:
Envoyé par lechtinico

J'ai essayé cela :

Code:

1 2 Set rec = CurrentDb.OpenRecordset("SELECT * FROM OPERATION WHERE (((OPERATION.sai_o)=[Quelle saison est à archiver?]));", dbOpenSnapshot)

cela me retourne une erreur de type '3061' Trop peu de paramètres. 1 attendu.
Salut,

Il faut peut être rajouter des guillemets:

Code:

Set rec = CurrentDb.OpenRecordset("SELECT * FROM OPERATION WHERE (((OPERATION.sai_o)=['Quelle saison est à archiver?']));", dbOpenSnapshot)

____________
Yonnel

http://www.gylsolutions.fr - Conseil en informatique - Access VBA
13/04/2010, 14h59
Tofalu

DAO n'accepte pas les requêtes contenant ce genre de paramètre (saisie utilisateur) dans la méthode OpenRecordset. Il est nécessaire de passer par un objet QueryDef.

Autre possibilité : récupérer la saisie utilisateur à l'aide de la fonction Inputbox.
13/04/2010, 15h45
pier.antoine
Désolé d'avoir mal aiguillé.

Je me suis basé juste sur une demande de la valeur du critère dans une requête en SQL.

Ne maîtrise pas assez DAO.

la proposition suivante paraît-elle correcte?
Code:

1 2 3 saison = inputbox ("Quelle saison est à archiver?") sql = "SELECT * FROM OPERATION WHERE ((OPERATION.sai_o)=" & saison & ");" Set rec = CurrentDb.OpenRecordset(sql, dbOpenSnapshot)
en partant du principe que la valeur "saison" est numérique.

Pierre
13/04/2010, 16h17
lechtinico

Je tiens à vous remercier, votre aide m'a été précieuse.
J'ai utilisé le code de Pierre, cela fonctionne à merveille, la saison est bien en numérique, mais finalement j'ai quand même utilisé DAO.
Maintenant, une dernière petite chose, et oui le vba et moi c'est une longue histoire... :roll:

Est-il possible d'enregistrer chaque saison sur une nouvelle feuille Excel ?
car ce qu'il se passe c'est que quand je saisis une saison différente, cela m'écrase les donneés de la saison que j'avais exporter précédemment.
13/04/2010, 19h31
pier.antoine

Alors là, ça ne sera que des suppositions, je ne maîtrise pas du tout les export dans excel.

Mais, je me dis que l'idée serait de donner un nom à chaque feuille, nom construit à partir de la variable "saison".

Pierre