OVH Cloud OVH Cloud

TransferSpreadsheet avec requête ayant un paramêtre

4 réponses
Avatar
Denn
Comment définir le paramêtre d'une requête dans VBA, avant l'utilisation
de cette requête dans la commande TransferSpreadsheet (en export) ?

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97,
NomRequete, NomFichierExcel

Merci de votre aide

4 réponses

Avatar
Nobodyisperfect
Bonjour Denn,

Peux-tu préciser ce que tu veux faire.. Je ne sais pas si c'est l'heure
matinale de la lecture de ton message ;O)

@+
Olivier
Avatar
Gafish
Bonjour aussi,

Denn wrote:
Comment définir le paramêtre d'une requête dans VBA, avant
l'utilisation de cette requête dans la commande TransferSpreadsheet
(en export) ?
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97,
NomRequete, NomFichierExcel


Essaie comme ceci :
dim qryTransfert as QueryDef
Set qryTransfert = CurrentDb.QueryDefs("NomRequete")
qryTransfert.Parameters("TonParametre") = ValeurDuParam
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, qryTransfert,
NomFichierExcel

Arnaud
--
Charte du forum : http://www.mpfa.info/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Avatar
Denn
Je dispose d'une requête ayant un paramêtre et je voudrai exporter le
résultat de cette requête dans une feuille Excel (à partir de code VBA)
après avoir précisé la valeur du paramêtre.

Je préfererai ne pas insérer une variable dans la chaîne de texte de la
requête mais plutôt utiliser directement la requête avec paramêtre à
travers la commande DoCmd.TransferSpreadsheet acExport,
acSpreadsheetTypeExcel97

Merci de ta réponse
Avatar
Denn
malheureusement, cela ne marche pas : message d'erreur sur l'instruction
DoCmd.TransferSpreadsheet : type de paramêtre incorrect

A+


Bonjour aussi,

Denn wrote:
Comment définir le paramêtre d'une requête dans VBA, avant
l'utilisation de cette requête dans la commande TransferSpreadsheet
(en export) ?
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97,
NomRequete, NomFichierExcel


Essaie comme ceci :
dim qryTransfert as QueryDef
Set qryTransfert = CurrentDb.QueryDefs("NomRequete")
qryTransfert.Parameters("TonParametre") = ValeurDuParam
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, qryTransfert,
NomFichierExcel

Arnaud
--
Charte du forum : http://www.mpfa.info/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr