Discussion :

[csensoli]

Bonjour,
j'utilise QueryTables pour obtenir des resultats de requetes sous Excel, tout fonctionne jusqu'à la 64ème requete.
Quelque soient les requetes effectuées par l'utilisateur, ça plante toujours à la 64ème requete en m'affichant:
Erreur d'execution '1004':
Erreur définie par l'application ou par l'objet
et le debogage se positionne sur le .Refresh de mon code ci-dessous:

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
 
Set appAccess = CreateObject("Access.application")
 
BOUCLE FOR blablabla
   MySql = "SELECT blablabla; "
       With ActiveSheet.QueryTables.Add(Connection:=Array( _
        "OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;" _
        & "Data Source=" & Application.ActiveWorkbook.Path & "/base_blabla.mdb"), _
        Destination:=Cells(100, ColExcel))
        .CommandType = xlCmdSql
        .CommandText = MySql
        .Refresh
    End With
NEXT blabla
appAccess.Quit
Set appAccess = Nothing

Et des que je referme le fichier et que je reouvre le fichierapres cette erreur au bout de la 64eme requete, tout remarche ...jusqu'a ce que je reeffectue 64 requetes.
Comment faire?
MERCI !

[SfJ5Rpw8]

le message d'erreur c'est blalblabla non ..?

[csensoli]

Oui, comment as-tu deviné?

[SfJ5Rpw8]

et la valeur de MySql à ce moment la cela devient quoi..?

[csensoli]

Bon, je poste tout le code, mais ça n'avancera personne; c'était juste pour épurer:
donc tout marche jusqu'à la 64ème requete, qui affiche une erreur sur le .REFRESH !!

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
 
For i = 1 To NbTables
    Var = 2
    While Cells(Var, i).Value <> ""
        For j = 1 To NbPays
            MySql = "SELECT " & Table(i) & ".[" & Cells(Var, i).Value & "] FROM " & Table(i) & " WHERE (" & Table(i) & ".Pays)='" & Pays(j) & "' ORDER BY " & Table(i) & ".Pays, " & Table(i) & ".Année; "
            Nom_Pays(NbVar) = Pays(j)
            NbVar = NbVar + 1
            'affiche le contenu de la requete sur la base base_jumbo.mdb
            ColExcel = ColExcel + 1
            With ActiveSheet.QueryTables.Add(Connection:=Array( _
                "OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;" _
                & "Data Source=" & Application.ActiveWorkbook.Path & "/base_1.mdb"), _
                Destination:=Cells(1, ColExcel))
                .CommandType = xlCmdSql
                .CommandText = MySql
                .Refresh
            End With
        Next j
        Var = Var + 1
    Wend
Next i
appAccess.Quit
Set appAccess = Nothing

[SfJ5Rpw8]

ben tu nous as pas donné la valeur de MySql.. sur plantage.. , sinon qu'appelle tu la 64 ° requête ..? la 64° fois ou tu appelle le code ..?