Bonjour à tous,
Mon problème est le suivant, je veux exporter une requête access sur excel.
J'ai utilisé pour m'aider le tutoriel de Cafeine qui est très bien + tutoriel de loufab très bien aussi ;

Lorsque j'exécute mon code, j'ai en retour l'erreur suivante : erreur d'exécution 13, imcompatibilité de type

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 btn_ouvrirEtat4_Click()
Dim sql As String
Dim xlAppl As Excel.Application 'application excel
Dim xlSheet As Excel.Worksheet 'feuille excel
Dim xlbook As Excel.Workbook 'classeur excel
Dim I As Long, J As Long
Dim rec As Recordset
 
sql = "TRANSFORM Sum(tlnkvéhiculeCarte.dwMontant) AS SommeDedwMontant"
sql = sql & " SELECT tlnkvéhiculeCarte.dwID"
sql = sql & " FROM tlnkvéhiculeCarte"
sql = sql & " WHERE (((tlnkvéhiculeCarte.dwannée) = " & Me.ztAnnée & " Or (tlnkvéhiculeCarte.dwannée) = " & Me.ztAnnée - 1 & "))"
sql = sql & " GROUP BY tlnkvéhiculeCarte.dwID"
sql = sql & " PIVOT tlnkvéhiculeCarte.dwannée;"
 
'supprime la requête qConsommationAnnuelleEssence_AC
DoCmd.DeleteObject acQuery, "qConsommationAnnuelleEssence_AC"
'crée la nouvelle requête
CurrentDb.CreateQueryDef "qConsommationAnnuelleEssence_AC", sql
 
Set rec = CurrentDb.OpenRecordset("qConsommationAnnuelleEssence_AC", dbOpenSnapshot)
 
 
...

Je voudrais connaître le problème, j'ai essayé l'aide mais je n'ais rien trouvé.

Merci d'avance pour toutes vos réponses.