Exporter un sélection vs fichier entier

[Prekestolen]

Bonjour

Comment faire pour exporter une partie de ma requête (par exemple du no 12 au no16) au lieu de tous le fichier (no 1 au no 24). J'utilise TransferSpreadsheet mais ce dernier ne permet pas une sélection. Quelqu'un a-t-il une idée?

Merci

J'ai oublié de mentionné: export de Access vers Excel.

[Philippe JOCHMANS]

Bonjour

As-tu essayé de mettre une clause Where dans ta requête pour déterminer les enregistrements à envoyer dans ton fichier Excel ?

Starec

[Prekestolen]

Et le "Where" ou est-ce que je le mets? Dans Critères? Dans Ou? J'ai essayé plusieurs trucs et cela n'a rien donné. J'ai cherché dans l'aide et rien trouvé.

Merci

[Philippe JOCHMANS]

Re

Montres nous ta requête et ton code d'exportation, la clause Where est dans ta requête.

Starec

[Prekestolen]

Code d'exportation

Set xlApp = CreateObject("Excel.Application")
 
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "RqFactureCR", "S:\Facturation\Serie_A\B.D.\CompteRecevoir.xls", True
 
 
Set xlBook = xlApp.Workbooks.Open("S:\Facturation\Serie_A\B.D.\CompteRecevoir.xls")
 
xlApp.Run "FichierCsv"
xlBook.Save
xlApp.Quit
Set xlApp = Nothing
Set xlBook = Nothing

[Philippe JOCHMANS]

Re

La clause Where est à mettre dans ta requête RqFactureCR pour choisir les enregistrements (dont tu ne nous donnes pas le code).

Mais comme tu ouvres Excel en créant une instance, tu peux utilises la méthode CopyFromRecordset de l'objet Range, tu trouveras de nombreux exemples sur le forum, et un article à lire : http://cafeine.developpez.com/access/tutoriel/excel/

Merci de faire un peu de recherche, cela fait le 4 ème lien que je donne sur cet article aujourd'hui.

Starec

[Prekestolen]

Pour la requête, je t'envoie quoi? Ce sont mes colonnes avec leurs en-têtes.

[Prekestolen]

Je crois avoir trouvé ce dont tu me parlais, le code de la requête est

SELECT ADRESSECAA.CODE, TbFacture.FactureDate, TbFacture.CodeTerme, ([FactureProduitQuantité]*[FactureProduitMontant]) AS soustotal, tbFactureProduit.FactureProduitDescription, TbFacture.FactureStatut, (Round(IIf([FactureProduitTypeTaxe]="Nil",0,(([FactureProduitQuantité]*[FactureProduitMontant])*[FactureProduitTPS])),2))+(Round(IIf([FactureProduitTypeTaxe]="Nil" Or [FactureProduitTypeTaxe]="TPS",0,(([FactureProduitQuantité]*[FactureProduitMontant]+(Round(IIf([FactureProduitTypeTaxe]="Nil",0,(([FactureProduitQuantité]*[FactureProduitMontant])*[FactureProduitTPS])),2)))*[FactureProduitTVQ])),2)) AS taxes, TbFacture.FactureNuméro, TbFacture.CompteGL, (Round(([taxes]+[soustotal]),2)) AS MontantGL
FROM ((TbFacture LEFT JOIN TbCompagnie ON TbFacture.FactureCompagnie = TbCompagnie.CompagnieNuméro) INNER JOIN tbFactureProduit ON TbFacture.FactureNuméro = tbFactureProduit.FactureProduitNoFacture) INNER JOIN ADRESSECAA ON TbFacture.FactureClient = ADRESSECAA.CODE
ORDER BY TbFacture.FactureNuméro;

Si ce n'est pas cela, je suis désolé, mais je ne comprends pas. (J'espère ne pas être un cas désespéré)

Merci

[Prekestolen]

J'ai décidé de simplifier mon problème:J'ai ré-essayer de mettre mes questions dans les critères de la requête et maintenant ca marche.Cela n'avait pas marché la première fois, mais on la recommencant du début, elle fonctionne très bien (avec Microsoft, il reste parfois des "choses" qui restent "collé" et qui empêche le programme de bien "rouler").

Merci de votre aide.