boucler sur une requete & affichage resultat

**ricoree78** · 22/08/2007, 12h27

bonjour
je vous expose mon pb
je veux boucler sur cette requete ok ca fonctionne seulement au niveau de l'affichage ca me decale tout vers la droite
j aimerai que les resultats se suivent les uns au dessous des autres et sans repeter la ligne d'entete a savoir TOG TOL DE

si vous avez une idee
merci !

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
25
26
 
For i = 2 To 10
pisin = Cells(i, 4)
 
       With ActiveSheet.QueryTables.Add(Connection:= _
        "ODBC;DSN=centre;NA=EXP,7791;DB=COD;UID=azer;pwd=xxl;", Destination:= _
        Range("F" & i))
        .CommandText = Array( _
        "SELECT COD.TOG, COD.TOL, COD.DE" & Chr(13) & "" & Chr(10) & "FROM IF.dbo.COD COD" & Chr(13) & "" & Chr(10) & "WHERE (COD.AGT=11) AND (COD.DE=" & pisin & ")" _
        )
        .Name = "Lancer la requête à partir de centre_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
        .Refresh BackgroundQuery:=False
    End With
    Next i

**ouskel'n'or** · 22/08/2007, 12h44

Envoyé par ricoree78

ca fonctionne seulement au niveau de l'affichage ca me decale tout vers la droite

De quel "affichage" parles-tu ? Veux-tu dire que les résultat change de colonne pour chaque ligne ?

**ricoree78** · 22/08/2007, 12h50

oui exactement et en plus j'ai l entete a savoir le nom de mes champs qui se repete aussi a chaque fois

**ricoree78** · 22/08/2007, 15h24

j ai change de methode
j ai rajoute ca a mon code
je constitue ma chaine de caractere sur l'ensemble de ma colone d (la jusqu a 10)puis ma variable pisin est inserer dans la requete

Code :

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

1
2
3
4
5
 
For i = 2 To 10
pisin = pisin & Range("d" & i).Value
Next i
MsgBox pisin

seulement j ai un souci dans la construction de la requete elle ne marche pas elle ne me ramene aucune ligne alors qu'il y en a
ma chaine de caractere pisin est construite de cette maniere
pisin= "ABC","ZER"

Code :

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

1
2
3
 
 "SELECT COD.TOG, COD.TOL, COD.DE" & Chr(13) & "" & Chr(10) & "FROM IF.dbo.COD COD" & Chr(13) & "" & Chr(10) & "WHERE (COD.AGT=11) AND (COD.DE in ("" & pisin & ""))" _
        )

**ricoree78** · 22/08/2007, 15h37

en fait ma 2eme hypothese n est pas bonne du tout car ma variable fisin a une longueur beaucoup trop grande >256
la je coince

**ricoree78** · 23/08/2007, 14h16

salut

personne n a de solution ne serait ce que pour eviter le decalage des colonnes ?
pour chaque ligne les resultats changent de colonne

merci

**ouskel'n'or** · 24/08/2007, 08h59

Comme ça paraît incompréhensible, une question bête : à quoi te servent Chr(13) et "" et Chr(10) ?

(Dans VBA tu as vbcr, vblf et vbcrlf

)

**ricoree78** · 24/08/2007, 10h29

en fait j utilise dans excel donnee creer une requete et c'est lui qui me colle ce code
je rexplique mon souci

lorsque je boucle sur ma colonne 4(D) le resultat de la requete s'affiche en colonne F pour i=2
ensuite pour i=3 le resultat s'affiche bien en colonne F mais il me decale le premier resultat de 3 colonnes vers la droite et ainsi de suite

suis je plus clair ?

**ouskel'n'or** · 24/08/2007, 10h50

Comme si ton code ajoutait trois colonnes à gauche... Là c'est clair...
Evidemment, je tâtonne... piskejcomprends pas...
Tu as une propriété " .PreserveColumnInfo = True"
Que se passe-t-il si tu la passes à False...
Sauvegarde bien tout avant de tester

A+