Discussion :

[lanonyme]

Bonjour,

Je souhaiterai transferer des données issues d'une requête vers Excel mais sans créer de fichier.

J'ai la fonction TransferSpreadsheet

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
    Set qd = CurrentDb.CreateQueryDef("NomDeMaRequete", "Select * From tmp_val_SPG")
 
    DoCmd.TransferSpreadsheet acExport, , "NomDeMaRequete", NomFichier
    DoCmd.DeleteObject acQuery, "NomDeMaRequete"
 
Dim xlApp As Excel.Application
    Dim xlSheet As Excel.Worksheet
    Dim xlBook As Excel.Workbook
 
 
    'J'initialise mes variables
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open(NomFichier)

mais je suis obliger de passer par un fichier.

Je peux créer la feuille vierge mais je bloque sur le transfert des données de ma requête

Code :

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

    Set xlBook = xlApp.Workbooks.Add(xlWBATWorksheet)

Si quelqu'un a une idée ?

Edit : Pour le moment, je crée le fichier que je supprime après.
Cordialement,

lanonyme

[lanonyme]

Bonjour,

Toujours pas d'idée

Bien, je reste sur ma manipulation de fichier (pas trés propre mais bon quand on n'a pas le choix )

Cordialement,

lanonyme

[Kalvin_20]

Moi j'ai eu le meme soucis comme j'ai pas trouvé de solution j'ai executé mes requetes à partir de mon fichier excel si ça t'aider jte met un bout de code bonne chance

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
Set db = DAO.OpenDatabase("m:\PublicLCommun\SUIVI DE PRODUCTION\Stage Yassine\Suivie de Production.mdb", False, False)
   strSQL = "SELECT Sum(Composant) AS [SommeDeComposant], " & _
   "Sum([Démarrage / Redémarrage]) AS [SommeDeDémarrage / Redémarrage] " & _
     "FROM Tableau " & _
   "Where Tableau.Date Like '" & Feuil9.Range("D2") & "' ;"
 
   Set rs = db.OpenRecordset(strSQL, DAO.dbOpenSnapshot)
   Feuil9.Range("C17").Value = rs.Fields(0)
   Feuil9.Range("J8").value = rs.fields(1)
'close recordset
rs.Close

Cordialement