Discussion :

[jojoboloss]

Bonjour a tous,

J aimerais exporter une requete SQL vers une feuille excel, j utilise donc une macro transfer. Tout est bien configure.Mon probleme vient du fait que l exportation ne marche pas, avec comme message d erreur "Trop de champs" alors que je n ai que 40 colonnes et 1500 lignes. D ailleurs, lorsque j ouvre simplement ma requete, elle s execute nickel.

Quelqu un aurait deja eu ce genre de probleme et aurait une solution a me proposer???

Merci par avance pour votre aide

[emeraudes]

Je te propose de tester ce code. Chez moi il fonction très bien

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
 
Private Sub Exporter_Click()
    Dim nomFic As String
    Dim qd As QueryDef
    Dim exist As Boolean
 
    nomFic = InputBox("Saisissez le nom du fichier", "Exportation de la table [table]")
 
    For Each qd In CurrentDb.QueryDefs
            'export_table est le nom de la requete qui te permet d'exporter ta requete sous excel
        If qd.Name = "export_table" Then 
            DoCmd.DeleteObject acQuery, "export_table"
            exist = True
        End If
    Next
 
    Set qd = CurrentDb.CreateQueryDef("export_table", "select * from [table]")
 
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "export_table", "cheminRépertoire" + nomFic +".xls"
    'ouverture de la requete
    DoCmd.OpenQuery "export_table"
 
End Sub

J'espère que c'est ce que tu recherches