VBA et MS Query

Version imprimable

VBA et MS Query

Bonjour, je suis en conflit avec mon éditeur VBA pour la raison suivante.

J'esaye de lancer automatiquement une requete ms query par une macro pour automatiser toute la chaine de traitement de l'info.

j'ai donc le code suivant (géré par l'éditeur de macro)

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
Range("A1").Select
    With ActiveSheet.QueryTables.Add(Connection:="ODBC;DSN=AS400;", Destination _
        :=Range("A1"))
        .CommandText = Array( _
        "SELECT T1.IIPROD, T2.IDESC, T2.IPURC, Max(T3.ICRELP), T2.STKMIN, T4.STKJOU, T4.STKJ01, T4.STKJ02_
        ,,,,,,,,,)
        .Name = "comparaison stock simule - sotck mini bpcs_1"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .SourceConnectionFile = _
        "F:\DOSSIER\DOSSIER\comparaison stock simule - sotck mini bpcs.dqy"
        .Refresh BackgroundQuery:=False
    End With
End Sub

et l'erreur renvoyée est erreur de syntaxe après la ligne .commandtext

avez vous une idée quand à mon problème. Merci

22/07/2009, 14h20
DeaD78
Salut,
Code:

1 2 3 .CommandText = Array( _ "SELECT T1.IIPROD, T2.IDESC, T2.IPURC, Max(T3.ICRELP), T2.STKMIN, T4.STKJOU, T4.STKJ01, T4.STKJ02_ ,,,,,,,,,)
Le problème vient de là. Tout d'abord, tu as des guillemets ouverts avant le SELECT. Pense à les fermer aussi où cela convient :zoubi:

Ca devrait marcher. Dans le cas contraire, essaie d'enlever ton Array(). Je ne sais pas si tu passes par un tableau ou non d'un côté...

Dis-nous :ccool:
22/07/2009, 15h05
eniotacom

Je ne sais pas en fait à quoi sert le tableau. je pense qu'il sert juste à tranféré les ent têtes de colonne...

C'est du code généré par l'enregistreur de macro donc par principe je ne savait pas quoi écrire et je ne comprend pas vraiment comment il transfert les infos.

Il me dit maintenant qu'il manque des paramètres... c'est que je ne doit pas avoir renseigner tout ce qu'il faut pour que la fonction Qurytable fonctionne...
et je ne trouve pas quels sont les paramètres qu'il lui faut