Discussion :

[Peerl]

Bonjour Qwaz ,

Que contient strSQL au moment du plantage?

quand je met un espion sur strSQL :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Watch :   : strSQL : "SELECT DISTINCT _2010$.zone FROM (([010$] INNER JOIN [_2010$] ON 2010$.Id = _2010$.Id) INNER JOIN [pdmza_2010$] ON 2010$.Id = _2010$.Id) WHERE

[Qwazerty]

Salut

La ligne est troquée, il n'y a pas la fin.
J'avoue ne pas trop comprendre ce qui se passe, de mon coté je n'ai pas de soucis... ça vient peut-être encore du champs Zone mais logiquement le problème est résolu.
Peux tu redonner toutes les infos en synthétisant dans une seul message :

• La procédure
• la ligne de code
• les valeurs des différente partie de la ligne
• Le message d'erreur exact (screenshot si besoin

Je te MP les fichiers test que j'utilise

sinon voila la dernière mouture, le résultat est afficher dans la feuil6

Il faudrait faire des amélioration mais si j'ai bien compris ton stage se termine

• Vérifier que Id soit dans la liste LBSelected (Page1) sinon l'ajouter
• coder les bouton à droite de LBSlected pour pouvoir trier les champs, ils apparaissent dans cet ordre la une fois affichés dans la feuille Excel
• Essayer de modifier le mode des requêtes SQL en utilisant le mode asynchrone. Ça demande à revoir tout le code mais ça permettrait sans doute d’accélérer le traitement.
• Les recherche de toutes les valeurs possibles pour chaque champs prend du (trop) de temps. Il faudrait modifier pour ne faire la recherche qu'au moment du passage à la page deux et uniquement pour les champs placés dans LBSelected
• Nettoyer le code (variables inutiles, bouts de code en commentaire,... )
• Tester une autre méthode en plaçant toutes les données dans une seule base et faire les requêtes sur cette base, ça éviterait sans doute pas mal de temps de recherche

Bonne soirée
++
Qwaz

[Peerl]

Salut Qwaz ,

Je viens te tester avec la dernière version et les fichiers data je n'ai plus cette erreur de connection mais si j'ai bien compris ( ou pas ) l'affichage du résultat s'effectue ou pas ?

sinon, la nouvelle erreur (toujours avec les fichiers test que tu ma envoyé ) : Aucune valeur donnée pour un ou plusieurs paramètres requis :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Set Rst = Cn.Execute(Replace(reqSQL, cstVariableYear, strYear))

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Watch :   : "" : "" : String : Mod_New.SQL_AfficheDATA
Watch :   : cstVariableYear : "{Année}" : String : Mod_New.SQL_AfficheDATA
Watch :   : Replace : <Expression non définie dans le contexte> : Empty : Mod_New.SQL_AfficheDATA

[Qwazerty]

Salut

Oui les données sont sensées s'afficher dans la feuil6 du classeur, à condition bien sûr que le code arrive jusqu'à la section qui place les données sur la feuille. Ce n'est visiblement pas le cas puisqu'il y a un bug. Il manquerait le contenu de strSQL pour tenter de comprendre d'où vient le problème. Il doit y avoir une différence entre le contenu des fichiers de test et les fichiers originaux.

Ton stage étant terminé, nous ne saurons sans doute jamais!
Est-il possible de mettre dans le file de la discussion les fichiers tests? Ca serait sans doute utile si d'autres forumeurs souhaitent effectuer des tests et éventuellement adapter le fichier à leur besoin.

++
Qwaz