Discussion :

[adelsunwind]

Bonjour,
je travaille sur une base courante BASE A.

A partir de cette base A j ouvre une autre base BASE B et je souhaiterai copier une requete de la base B Requete_TemporaireB pour créer une nouvelle requete dans la base A Requete_TemporaireA.

Puis transferer le resultat de la Requete_TemporaireA vers un ficher excel j ai donc essayé ca :

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
 
 
' à ce stade je suis dans ma base courante BASE A donc dans mon Set db... 
' maintenant j ouvre l autre base BASE B
 
Set db1 = DBEngine.OpenDatabase("L\Stat_loc.mdb")
Set qd1 = db1.CreateQueryDef("Requete_TemporaireB", "Select * From Mensuelle")
 
'je copie la requete Requete_TemporaireB dans une  Requete_TemporaireA de ma base courante
Set qd= db.CreateQueryDef("Requete_TemporaireA", "Requete_TemporaireB")
 
'je tente un export
Dim appExcel As Excel.Application 'Application Excel
     DoCmd.TransferSpreadsheet AcExport, , "Requete_TemporaireA", "L\PLFRC.xls", False, ""
 
    Set appExcel = CreateObject("excel.application")
    Set wbexcel = appExcel.Workbooks.Open("L:\PLFRC.xls")
 
    appExcel.Visible = True

MErci pour votre aide

[Jean-Philippe André]

salut,
est-ce une coquille a la recopie ou bien manque-t-il un ":" dans ton lien vers ta premiere base ?

Code :

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

1
2
3
Set db1 = DBEngine.OpenDatabase("L\Stat_loc.mdb")
'...
DoCmd.TransferSpreadsheet AcExport, , "Requete_TemporaireA", "L\PLFRC.xls", False, ""

devenant

Code :

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

1
2
3
Set db1 = DBEngine.OpenDatabase("L:\Stat_loc.mdb")
'...
DoCmd.TransferSpreadsheet AcExport, , "Requete_TemporaireA", "L:\PLFRC.xls", False, ""

[adelsunwind]

Oui je confirme que c est en redigeant le post. J ai juste raccourci le chemin d origine car il etait trop long.
Je n ai toujous pas trouvé de solution

[Jean-Philippe André]

OK,
dans la base B, tu veux recuperer le resultat de la query ou son code SQL ?

j'ai encore un peu de mal a saisir ton objectif en fin de processus

[Manhexter]

Peux-tu nous en dire plus sur l'erreur qui t'es renvoyée ?

Si j'ai bien compris, c'est l'export du résultat de la requête vers excel qui plante.

@jpcheck : Il me semble que la finalité de son opération est de récupérer le résultat de la requête dans un fichier excel.

[adelsunwind]

Bonjour,
merci pour les reponses.
C est exact ce que je voudrais c est tout d abord : dupliquer la requete de la base B dans la base A puis comme ma base A est ma base courante de travail de pouvoir créer un fichier excel et d y mettre les donnée de cette requete.

[Manhexter]

Peux-tu nous en dire plus sur l'erreur qui t'es renvoyée ?