requête par MSQUERY

Version imprimable

23/08/2012, 15h31
supierre

requête par MSQUERY

Bonjour,
sa fait un petit moment que je me suis mis à relier des requêtes à XL 2007 grâce a MSQUERY.

je vais vous expliquer ce qui m'arrive:

voici le schéma de mon classeur:
-feuille1: un tableau query lié a ma requête dont la prolongation est 5 colonnes réalisant des calculs à partir des données de la requête.
à coté de cette feuille, un espace prévu pour que l'utilisateur entre un identifiant pour trouver une liste de produits. Ainsi que un bouton "rafraichir" qui permet d'éxécuter la requête.
-feuille 2: la requête décomposée en plusieurs cellules celon les clauses (where, from, having,...) et concaténée dans une cellule pour la récupération.

voici mes actions: (par macro, après clic sur le bouton "rafraichir")
-je stop le calcul automatique de la 2eme partie du tableau
-j'enlève les filtres sur toutes les données
-j'éxécute et rafraichi la requête
-je masque 9 colonnes du tableau de requête (utiles seulement pour les calculs de la 2eme partie du tableau) et éxécute une rapide mise en forme des colonnes
-je relance le calcul automatique et rafraishi le classeur

voici ce que je réalise pour le test:
-j'entre un numéro valide de code de produit
-j'appui sur le bouton "rafrachir" pour lancer l'éxécution

résultat:
-le tableau n'a aucune colonne de masquée
-3 colonnes sont masquées au niveau des colonnes de calcul
-les colonnes de calcul, (même celle qui ont étées cachées) ont toute les valeurs des celllules références remplacés par #REF!
- rien n'est mis en forme comme décrit.

j'aimerais avoir un sacré coup de pouce car là... je ne comprend strictement rien, j'ai des doutes quand au fait que le rafraichissement se passe correctement. n'hésitez pas a me poser des questions, je peux donner du code si vous le demandez mais je ne peux pas tout poster ici.
J'apprécierais beaucoup toute aide ou réflexion là dessus. merci d'avance

edit: juste le fait de éxécuter la requête cache 3 des colonnes de calcul...
23/08/2012, 15h49
Daniel.C

Bonjour,

Ce serait une bonne idée de publier ton code et même de joindre le classeur.

2 pièce(s) jointe(s)

voici mes 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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
 
Sub Mise_en_Forme()
'
'  Macro de mise en forme du tableau recevant les résultats de la requête
'
    Columns("A:AB").Select
    Selection.ColumnWidth = 7
    Columns("R:V").Select
    Selection.EntireColumn.Hidden = True
    Columns("L:O").Select
    Selection.EntireColumn.Hidden = True
    Columns("G:I").Select
    Selection.ColumnWidth = 9
    Range("E:E,J:J").Select
    Selection.ColumnWidth = 30
    Columns("X:Y").ColumnWidth = 12
 
    Columns("B:B").Select
    Selection.TextToColumns destination:=Range("B1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True
    Selection.NumberFormat = "0"
    Range("A1").Select
End Sub
 
Sub remettre_calculs()
    'REPRISE CALCUL AUTO
    Application.Calculation = xlCalculationAutomatic
    Calculate
End Sub
 
 
Public Sub lancerRequeteMSQ(connexion, requeteSQL, onglet)
 
    Dim oQuery As QueryTable
 
    'récupération de l'objet query
    Set oQuery = ActiveWorkbook.Worksheets(onglet).ListObjects(1).QueryTable
 
    'Affectation de la nouvelle connexion
    oQuery.Connection = connexion
 
    'Affectation de la nouvelle requete
    oQuery.CommandText = requeteSQL
 
    'rafraîchissement de la requête
    oQuery.Refresh
    'ThisWorkbook.RefreshAll
 
End Sub
 
Public Sub Arret_calcul_auto_et_retirer_filtres()
    Sheets("Commande GPA").Select                              'ARRET DU CALCUL AUTO
    Application.Calculation = xlCalculationManual
 
    If Sheets("Commande GPA").FilterMode = True Then           'ENLEVER LES FILTRES
        Selection.AutoFilter Field:=1, Criteria1:=310
        ActiveSheet.ShowAllData
    End If
 
End Sub

je ne peut pas ajouter le classeur, la taille est trop grande pour l'héberger ici, je devrais pouvoir faire des imprime écrans.

edit: voici deux image: la première, ce que je dois obtenir (et aussi comment c'est avant de lancer ma requête)
http://www.developpez.net/forums/att...1&d=1345730938
la deuxième, ce que j'obtiens juste apres avoir lancé la requête et aucune des autres macro, le premier problème est donc que les formules valses et que des colonnes sont cachées
http://www.developpez.net/forums/att...1&d=1345730938

edit-encore (hey oui!) : lorsque je choisis de révéler toute les colonnes masquée avant de lancer la requête, sa résoud un des problèmes: les colonnes de calculs ne sont plus masquée... mais toujours ce diable de #REF!

23/08/2012, 16h51
Daniel.C

J'ai sans doute raté une partie du film, mais à partir d'où est-ce que tu lances la macro "lancerRequeteMSQ" ?
23/08/2012, 16h59
supierre

je la lance à l'appui sur le bouton "rafraichir"

je l'appelle de cette façon:

Code:

Call lancerRequeteMSQ(Sheets("SQL").Range("A53").Value, Sheets("SQL").Range("A18").Value, "Commande GPA")

je viens à l'instant de découvrir que même si je stop le calcul automatique, si on colle une cellule dans une qui est la cible d'un calcul, un #REF! apparait...

exemple:
A1=8 A2=6 et A3=A1*4
si je copie A2 et le colle dans A1, le contenu de A3 sera A3=#REF!*4 et affichera un beau #REF!

sa avance doucement mais surement

pour le moment, je me contente de contourner le problème (tant que sa marche c'est l'essentiel il parait...) en faisant des manipulations de mise en forme du tableau, et en ajoutant les formules directement depuis une macro, et un coup d'autofill et sa tourne... donc a moitié résolu
24/08/2012, 09h16
supierre

Bon!!!
mon problème est réglé!

voici comment permettre de ne pas faire planter les cellules de calcul a côté d'un tableau query

Code:

Sheets("sheet1").QueryTables(1).FillAdjacentFormulas = True

Et pour le problème de la redimention du tableau:

Code:

Sheets("sheet1").QueryTables(1).RefreshStyle = xlInsertEntireRows

si sa peut aider quelqu'un d'autres que moi...