Discussion :

[Hamdi]

Bonjour,

J'aurais besoin de votre aide pour résoudre un problème qui m'empêche d'automatiser un process que je dois réaliser toutes les fins de mois/

le process est le suivant:
depuis une base Access :

1. je lance une requête analyse croisée (le code en bas)
2. elle me donne le résultat suivant (pièce jointe : ReqRes)
3. j'ouvre un fichier excel préformaté (pièce jointe : FicExcel)
4. je passe les données avec un CopyFromRecodset à partir d'un Range fixe
5. je feme le fichier

>Voici le code de la requête:

Code :

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

1
2
3
4
5
6
7
 
TRANSFORM Sum(CaParAxeParMois.salesbrutamount) AS SUMsalesbrutamount
SELECT CaParAxeParMois.idStore+' '+[PB-Magasins.storeName] AS Expr1
FROM CaParAxeParMois, [PB-Magasins], Fournisseur
WHERE (AnneeMois Like '*.01' And [PB-Magasins.idMagasin]=CaParAxeParMois.idStore And [PB-Magasins.storeName] Is Not Null And CaParAxeParMois.Brand=Fournisseur.idMarque And [PB-Magasins.idMagasin] In ('34402','50202','41201','91401','38111','38112','33201','06101'))
GROUP BY CaParAxeParMois.idStore+' '+[PB-Magasins.storeName]
PIVOT [AnneeMois] & '/' & [idAxe];

dans l'exemple donnée dans ReqRes :
il y a 6 colonnes, 3 pour l'année 2008 et 3 pour l'année 2009.
dans mon fichier exel (FicExcel), j'ai 3 colonne pour 2008 + 1 colonne pour le total 2008 + 3 colonnes pour 2009.

mon problème est le suivant :
comme je passe par un CopyFromRecordset, le résultat est copié vers le fichier Excel sans prendre en considération les entêtes. j'ai le contenu de la première colonne de 2009 qui se met dans le total de 2008.

Comment pourrais-je faire pour coller correctement le résultat ?

En espérant avoir été claire.

Merci pour vos réponses.

[Godzestla]

Bonsoir,
ajoute une feuille à ton fichier formatté (à la limite cachée),
effectue le copyfromrecordset sur cette feuille brute,
utilise les données brutes dans ta feuille formattée par référence ensuite.

Tu peux aussi récupérer les noms de zones du recordset et les exploiter.

Voici un exemple qui récupére les noms des zones et colle les données en dessous.

Tu adapteras à tes besoins.

Code :

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

1
2
3
4
5
6
7
8
 
    'Paste Fields names in line 1
    Set cellule = Worksheets(ws).Range(Rg)
    For CompA = 0 To ADD_Dossier.Fields.Count - 1
        cellule.Offset(0, CompA).Value = ADD_Dossier.Fields(CompA).Name
    Next CompA
    'Paste results line above names
    Worksheets(ws).Range(Rg).Offset(1, 0).CopyFromRecordset ADD_Dossier

Remarque perso : ta question aurait du être placée sur le forum VBA Excel, mais il est trop tard car le post croisé conduit directement à

[Hamdi]

Bonjour,

Merci pour cette réponse.
en fait j'avais pensé à la même solution mais je croyais que je pouvais faire la séparation directement en ajoutant genre le champ Total dans ma requête.

si je n'ai pas le choix, je le ferais.

sinon, mon poste concerne l'automation Access / Excel et non pas VBA Excel. c'est pour cette raison que je l'ai posté ici.

Merci

[Godzestla]

Bonjour,
le total dans la requête est à mon avis possible aussi. mais la-dessus je ne sais pas t'aider.