Discussion :

[kryssy]

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.

[LedZeppII]

Bonsoir,

Tu peux passer ton paramètre de cette manière :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim db As DAO.Database, Qdef As DAO.QueryDef, r As DAO.Recordset
Dim Dt As Date

Set db = CurrentDb
' Ouvre requête paramétrée Query1
Set Qdef = db.QueryDefs("Query1")
' Renseigne le paramètre 
Dt=#4/27/2006#
 ' ou si la date vient d'un formulaire
Dt=Forms!NomFormulaire!NomControleDate
Qdef.Parameters("[Entrer Date]") = Dt
' Ouvre le recordset à partir de l'objet QueryDef
Set r = Qdef.OpenRecordset

NomFormulaire : Nom du formulaire contenant la date pour la requête
NomControleDate : Nom du Contrôle dans le formulaire contenant la date.
Le format d'affichage du Contrôle doit être un format date pour éviter des erreurs de convertion.

Bon courage.

[LedZeppII]

Ca alors la question à laquelle j'ai répondu n'est plus la même.

Pour le 2e problème, dans un source SQL la date doit être écrite sous la forme #m/d/yyyy# (mois/jour/année encadré par des dièses)
A+

[mcdotta]

Hello,


Plutôt que de t'embeter à effacer et à recréer ta requête tu peux utiliser :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
CurrentDb.QueryDefs("qConsommationAnnuelleEssence_AC").SQL = sql

Ensuite, est-ce que ta requête tu arrives à l'ouvrir directement via Access en double-cliquant dessus...

[kryssy]

A mcdotta
Merci pour pour l'astuce, je vais essayer.

Et oui, j'arrive à ouvrir la requête 'qConsommationAnnuelleEssence_AC' que j'ai créée en double cliquant dessus

A LedZeppII, j'avais trouvé une solution entre temps, merci je vais tout de même étudier la tienne, elle pourra me servir par la suite!

[kryssy]

J'ai trouvé la solution
Merci encore à tous.
Il s'agissait encore d'un truc simple sur lequel on s'arrache les cheveux :
il fallait mettre set rec as DAO.recordset

A bientôt