Bonjour à tous,

Après avoir épuisé toutes mes forces sur cette question, je vous la soumets en désespoir de cause...

Je veux créer une macro qui lance une MS Query. Je veux récuperer un certain nombre de données entre deux dates (que l'utilisateur change à chaque fois).

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
 
 
Dim start As Date, finish As Date
 
    start = CP.Range("D6").Value
    finish = CP.Range("D7").Value
 
    With AC.Range("A1").QueryTable
        .Connection = je passe les détails pour ca, ca marche
        .CommandText = Array( _
        "SELECT NON_UNIFORMITY_CQS.MATRICULE, NON_UNIFORMITY_CQS.CLASSIFICATION_CODE, NON_UNIFORMITY_CQS.CLASSIFIER_ID, NON_UNIFORMITY_CQS.CQ_CODE, NON_UNIFORMITY_CQS.CQ_TIMESTAMP, NON_UNIFORMITY_CQS.LOCATION,NON_UNIFORMITY_CQS.VERIFIER_ID" & Chr(13) & "" & Chr(10) & "FROM NON_UNIFORMITY_CQS NON_UNIFORMITY_CQS" & Chr(13) & "" & Chr(10) & "WHERE (NON_UNIFORMITY_CQS.CLASSIFICATION_CODE='H') AND (NON_UNIFORMITY_CQS.CQ_TIMESTAMP<{ts '" & Format(finish, "yyyy-mm-dd hh:mm:ss.00") & "'} And NON_UNIFORMITY_CQS.CQ_TIMESTAMP>{ts '" & Format(start, "yyyy-mm-dd hh:mm:ss.00") & "'}) AND (NON_UNIFORMITY_CQS.LOCATION='S') OR (NON_UNIFORMITY_CQS.CLASSIFICATION_CODE='H') AND (NON_UNIFORMITY_CQS.CQ_TIMESTAMP<{ts '" & Format(finish, "yyyy-mm-dd hh:mm:ss.00") & "'} And NON_UNIFORMITY_CQS.CQ_TIMESTAMP>{ts '" & Format(start, "yyyy-mm-dd hh:mm:ss.00") & "'}) AND (NON_UNIFORMITY_CQS.LOCATION='T')")
        .Refresh BackgroundQuery:=False
    End With
C'est quand je veux exécuter ma sélection (à partir du SELECT) qu'il y a un pb: il me sort une erreur de type 13, incompatibilité de type et je comprends pas pourquoi. Poutant, j'ai d'abord enregistré la macro pour voir la syntaxe et surtout écrire le même format de date.

Je ne sais vraiment pas ce qui ne va pas.

Si quelqu'un pouvait m'aider, ce serait génial !

Merci d'avance,

Pubbins