Aide avec QueryTables

Version imprimable

J'ai le code suivant

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
With ActiveSheet.QueryTables.Add(Connection:= _
        "ODBC;DSN=DB;;;MODE=SHARE;DBALIAS=DB;", Destination:=Range("A1"))
        .CommandText = Array( _
        "SELECT T.VALEUR FROM Table T")
        .Name = "Valeur"
        .FieldNames = False
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlOverwriteCells
        .SavePassword = True
        .SaveData = True
        .AdjustColumnWidth = False
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .Refresh BackgroundQuery:=False
    End With

Les valeurs retourné vont alors se placer sur A1,A2,A3...etc
Je voudrais savoir si il été possible de mettre les valeur non plus A1,A2,A3...etc mais A1,B1,C1...etc ?

Merci

Salut,

Une solution parmi d'autres, a ajouter apres le query:

Code:

1
2
3
4
5
6
7
With Activesheet
    .Range("A1:A" & .Range("A35536").End(xlUp).Row).Copy
    .Range("B1").PasteSpecial Transpose:=True
    Application.DisplayAlerts=False
        .Columns(1).Delete
    Application.DisplayAlerts=True
End With

++
Minick

30/07/2009, 12h02
Frederic974

Merci mais ça ne sera pas bon.

Pourquoi ? déjà parceque je vais loin au niveau des colonnes (donc faudrai écrire le code pour chaque ligne ...)
Ensuite le probleme c'est que j'ai un calcul en bas de chaque colonnes.

Exemple de mon tableau Excel:

A à G correspond aux 7 jours de la semaine.
A2 à A6 correspond à 5 types de valeur que je vais reprendre indépendamment par types (genre Val1, Val2, Val3 ... repris chaqu'un par une requête).

Un type de valeur (ex: Val1) n'a q'une valeur par jour.
C'est pourquoi je veux écrire les valeurs des 7 jours de Val1 de A2 à G2 (et non A2 à A6 comme ça le fait avec mon code plus haut).

J'ai aussi de A7 à G7 un calcul, ex: SOMME(A2:A6).

Ce que je voudrais savoir simplement: est-ce qu'il est possible de mettre un paramètre dans un QueryTables pour que les valeurs récupérer ne soient pas coller par défaut sur les lignes d'une colonne, mais sur les colonnes d'une ligne ? (sans faire de bidouillage, coller ailleur pour reprendre, faire 2-3 copier/coller ... etc).

Si oui, quel est ce paramètre, comment le mettre en place ?

Si non, ben, je commence à faire du bidouillage ^^

Merci :)
30/07/2009, 17h41
Frederic974

ah une partie de trouver.

Code:

Transpose:=True

ça permet le coller sur une ligne désigné.

Est-il possible de le mettre dans mon QueryTables ?

je n'y ai pas réussi pour le moment :(
30/07/2009, 18h06
Jean-Pierre49

Bonjour Frederic974 et bienvenu sur le forum
Bonjour a tout le forum

Query crée un Recordset bref un groupe de valeur composé de champs (colonne) et des enregistrements (Lignes)

Quand un recordset est renvoyé (ici en l’occurrence

Code:

Destination:=Range("A1")

La table est donc rapatriée à partir de la cellule A1. Les champs remplissent les colonnes et les enregistrements les lignes

Tu demande l’inverse, or les enregistrements ne peuvent devenir les champs.
Oriente-toi plutôt vers une solution comme te le propose Minick

Ok merci.
On peut pas faire alors, merci pour l'explication.

Je vais mettre ça sur une feuille à part puis faire
Code:

1 2 3 4 5 6 Application.CutCopyMode = False Range("A2:A10").Select Selection.Copy Sheets("Work").Select Range("A2").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
et ça marche :)