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 ..?

[csensoli]

En fait, il n'y a aucun probleme avec les requetes.
Toutes renvoient ce qu'il faut, mais si l'utilisateur utilise le fichier sans le fermer et que les requetes envoyees sur Access depassent le nombre de 64, j'ai cette erreur:

Erreur d'execution '1004':
Erreur définie par l'application ou par l'objet
et le debogage se positionne sur le .Refresh

Si je ferme le fichier, et que je l'ouvre a nouveau, la requete qui ne passait pas a ce moment (car 64eme..) passera sans probleme...
Desolee, c'est pas tres clair..je suis perdue!

[SfJ5Rpw8]

En fait, il n'y a aucun probleme avec les requetes.
.....

ben si tu as la solution pourquoi pose tu une question...?

[AlainTech]

Pour ma part, suite à de mauvaises expériences, je ne travaille jamais avec les QueryTables.

Elles surchargent horriblement la mémoire et, si on sauve le fichier, il prend vite des proportions inacceptables.

Je travaille toujours par RecordSet et boucle pour remplir la feuille.

A toi de voir, mais je pense que l'origine de ton problème est là.

[csensoli]

Cher bbil,
je ne sais pas comment tu interpretes mes propos, je suis peut-etre pas claire ni douée, mais il y'a peut-etre un peu de mauvaise volonté de ta part!
Depuis le debut, je n'ai pas dit que j'avais un probleme sur mes requetes!!!! mais sur le REFRESH.
Bon, tant pis, je vais donc analyser la methode Recordset. Merci AlainTech.
En fait, la base "base1.mdb" que j'interroge crée un fichier "base1.ldb" lorsqu'elle est utilisée et quand tous les fichiers sont fermés, ce ".ldb" est encore présent, et il ne le devrait pas je pense, c'est peut-etre la cause du probleme...bref

[AlainTech]

tous les fichiers sont fermés,

Que veux-tu dire par fichiers???

Normalement, le ldb est détruit quand toutes les connexions sont fermées.

[SfJ5Rpw8]

et à quoi sert d'aprés toi la procédure refresh sinon à éxécuté la mystérieuse requête ..?

Avec la méthode Refresh, Microsoft Excel se connecte à la source de données de la table de requête, exécute la requête SQL et renvoie les données dans la plage destination de la table de requête. Tant que cette méthode n'est pas appelée, la table de requête ne communique pas avec la source de données.

[csensoli]

oui mais les requetes sont correctes, alors je pense que c'est plutot un probleme de memoire, ou de de ce fichier ".ldb" d'access, je sais pas, j'y comprends rien.