Macro et MS Query

Version imprimable

Macro et MS Query

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:

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

21/11/2010, 08h42
helas

Bonjour,
les " & Chr(13) & "" & Chr(10) & " n'ont rien à faire ici, remplacer par un espace
22/11/2010, 01h37
pubbins

Je l'ai fait mais j'ai toujours la même erreur : incompatibilité de type.

Vous avez une autre idée?
22/11/2010, 10h09
pgz

Bonjour.

Je ne vois que la clause WHERE pour générer une incompatibilité de type. La partie qui concerne les dates me paraît curieuse pour du SQL. Supprime la clause WHERE. S'il n'y a plus d'erreur réintroduis-la, terme par terme jusqu'à retrouver l'erreur. Le dernier terme introduit sera erroné.

Cordialement,

PGZ

J'ai remarque un truc. Ceci est la macro que j'ai enregistre (elle marche sans probleme):

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
    With Selection.QueryTable
        .Connection = blabla
        .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 '2010-12-01 00:00:00.00'} And N" _
        , _
        "ON_UNIFORMITY_CQS.CQ_TIMESTAMP>{ts '2010-11-18 00:00:00.00'}) AND (NON_UNIFORMITY_CQS.LOCATION='S') OR (NON_UNIFORMITY_CQS.CLASSIFICATION_CODE='H') AND (NON_UNIFORMITY_CQS.CQ_TIMESTAMP<{ts '2010-12-01" _
        , _
        " 00:00:00.00'} And NON_UNIFORMITY_CQS.CQ_TIMESTAMP>{ts '2010-11-18 00:00:00.00'}) AND (NON_UNIFORMITY_CQS.LOCATION='T')" _
        )
        .Refresh BackgroundQuery:=False
    End With

Apres je veux la remettre sur une ligne pour pouvoir transformer les dates en parametres:

Code:

1
2
3
4
5
6
    With Selection.QueryTable
        .Connection = blabla
        .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 '2010-12-01 00:00:00.00'} And NON_UNIFORMITY_CQS.CQ_TIMESTAMP>{ts '2010-11-18 00:00:00.00'}) AND (NON_UNIFORMITY_CQS.LOCATION='S') OR (NON_UNIFORMITY_CQS.CLASSIFICATION_CODE='H') AND (NON_UNIFORMITY_CQS.CQ_TIMESTAMP<{ts '2010-12-01 00:00:00.00'} And NON_UNIFORMITY_CQS.CQ_TIMESTAMP>{ts '2010-11-18 00:00:00.00'}) AND (NON_UNIFORMITY_CQS.LOCATION='T')")
        .Refresh BackgroundQuery:=False
    End With

Je relance cette macro et la, une erreur de type 13 (type mismatch) apparait. Quelle est mon erreur? Je ne vois vraiment pas.

Merci d'avance

23/11/2010, 13h57
pubbins

Bonjour,

J'ai finalement, avec beaucoup de perseverance, reussi a venir a bout de l'erreur de type 13. C'est d'apres moi, un probleme de nombre de caractere par ligne, c'est un peu bizarre mais en decoupant bien la requete SELECT, on y arrive.

Par contre (il fallait bien un mais), j'ai une autre erreur qui est apparu. Une erreur de type 1004: application-defined or object-defined error, sur la ligne suivante c'est a dire : .refresh background.Query:=false

Pourtant, quand j'execute la macro (qui s'arrete a la ligne refresh...) et qu'ensuite je vais dans Microsoft Query, la requete que j'ai mis dans ma macro apparait et si je l'execute manuellement, cela marche parfaitement.

Je ne vois pas ce qui cloche. Si vous aviez une idee, ce serait genial !

Bonjour,

Je vous mets 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
 
 
Dim start As Date, finish As Date, quer As String
 
    start = CP.Range("D6").Value
    finish = CP.Range("D7").Value
 
quer = "SELECT UNIFORMITY_RESULTS.MATRICULE, UNIFORMITY_RESULTS.FINAL_VENTILATION, UNIFORMITY_RESULTS.TYPE_OF_RUN, UNIFORMITY_RESULTS.UNIFORMITY_RESULTS_TIMESTAMP, UNIFORMITY_RESULTS.UNIFORMITY_PARAMETER_NAME_1, " _
        & "UNIFORMITY_RESULTS.CLASSIFICATION_CODE_1, UNIFORMITY_RESULTS.UNIFORMITY_PARAMETER_NAME_2, UNIFORMITY_RESULTS.CLASSIFICATION_CODE_2, UNIFORMITY_RESULTS.UNIFORMITY_PARAMETER_NAME_3, UNIFORMITY_RESULTS.CLASSIFICATION_CODE_3, " _
        & "UNIFORMITY_RESULTS.UNIFORMITY_PARAMETER_NAME_4, UNIFORMITY_RESULTS.CLASSIFICATION_CODE_4, UNIFORMITY_RESULTS.UNIFORMITY_PARAMETER_NAME_5, UNIFORMITY_RESULTS.CLASSIFICATION_CODE_5, UNIFORMITY_RESULTS.UNIFORMITY_PARAMETER_NAME_6, " _
        & "UNIFORMITY_RESULTS.CLASSIFICATION_CODE_6, UNIFORMITY_RESULTS.UNIFORMITY_PARAMETER_NAME_7, UNIFORMITY_RESULTS.CLASSIFICATION_CODE_7, UNIFORMITY_RESULTS.UNIFORMITY_PARAMETER_NAME_8, UNIFORMITY_RESULTS.CLASSIFICATION_CODE_8, " _
        & "UNIFORMITY_RESULTS.UNIFORMITY_PARAMETER_NAME_9, UNIFORMITY_RESULTS.CLASSIFICATION_CODE_9, UNIFORMITY_RESULTS.UNIFORMITY_PARAMETER_NAME_10,UNIFORMITY_RESULTS.CLASSIFICATION_CODE_10, UNIFORMITY_RESULTS.UNIFORMITY_PARAMETER_NAME_11, " _
        & "UNIFORMITY_RESULTS.CLASSIFICATION_CODE_11, UNIFORMITY_RESULTS.UNIFORMITY_PARAMETER_NAME_12, UNIFORMITY_RESULTS.CLASSIFICATION_CODE_12, UNIFORMITY_RESULTS.UNIFORMITY_PARAMETER_NAME_13, UNIFORMITY_RESULTS.CLASSIFICATION_CODE_13, " _
        & "UNIFORMITY_RESULTS.UNIFORMITY_PARAMETER_NAME_14, UNIFORMITY_RESULTS.CLASSIFICATION_CODE_14, UNIFORMITY_RESULTS.UNIFORMITY_PARAMETER_NAME_15, UNIFORMITY_RESULTS.CLASSIFICATION_CODE_15, UNIFORMITY_RESULTS.UNIFORMITY_PARAMETER_NAME_16, " _
        & "UNIFORMITY_RESULTS.CLASSIFICATION_CODE_16, UNIFORMITY_RESULTS.UNIFORMITY_PARAMETER_NAME_17, UNIFORMITY_RESULTS.CLASSIFICATION_CODE_17, UNIFORMITY_RESULTS.UNIFORMITY_PARAMETER_NAME_18, UNIFORMITY_RESULTS.CLASSIFICATION_CODE_18, " _
        & "UNIFORMITY_RESULTS.UNIFORMITY_PARAMETER_NAME_19, UNIFORMITY_RESULTS.CLASSIFICATION_CODE_19, UNIFORMITY_RESULTS.UNIFORMITY_PARAMETER_NAME_20, UNIFORMITY_RESULTS.CLASSIFICATION_CODE_20, UNIFORMITY_RESULTS.UNIFORMITY_PARAMETER_NAME_21, " _
        & "UNIFORMITY_RESULTS.CLASSIFICATION_CODE_21, UNIFORMITY_RESULTS.UNIFORMITY_PARAMETER_NAME_22, UNIFORMITY_RESULTS.CLASSIFICATION_CODE_22 FROM UNIFORMITY_RESULTS UNIFORMITY_RESULTS " _
        & "WHERE (UNIFORMITY_RESULTS.TYPE_OF_RUN<>'*') AND (UNIFORMITY_RESULTS.UNIFORMITY_RESULTS_TIMESTAMP<{ts '" & Format(finish, "yyyy-mm-dd") & "'} And UNIFORMITY_RESULTS.UNIFORMITY" _
        & "_RESULTS_TIMESTAMP>={ts '" & Format(start, "yyyy-mm-dd") & "'}) AND (UNIFORMITY_RESULTS.FINAL_VENTILATION='HC')"
 
    'Query for the sheet Unif Called
    With UC.Range("A1").QueryTable
        .Connection = blabla
        .CommandText = quer
        .Refresh BackgroundQuery:=False
    End With

J'ai beau chercher : j'ai toujours une erreur de type 1004 (application-defined or object-defined error) sur la ligne :

Code:

.Refresh Background.Query:=false

Pourtant j'ai fait plus bas d'autres requetes avec MSQuery et elles marchent sans probleme.

Aidez-moi !!! Je vois vraiment pas comment faire...