Salut,
le titre en dit beaucoup.
Je veux mettre en page un fichier Excel vide (genre en tete, pied de page avec des données recuperes de mon aplli access) et placer les resultats d'une requete dedans.
Placés une requete dans un Excel c'est facile:
Mais moi je veux avoir un modéle de fichier excel et placé la requete dedans!!
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Private Sub imprimante_Click() Dim qd As QueryDef Dim my_sql_1 As String my_sql_1 = "select * FROM document, type WHERE document.type=type.nom AND document.projet=forms!F_menu!projet ORDER BY document.emisle DESC;" Set qd = CurrentDb.CreateQueryDef("requete_temp", my_sql_1) DoCmd.TransferSpreadsheet acExport, , "requete_temp", "c:\jb.xls" DoCmd.DeleteObject acQuery, "requete_temp" End Sub
Merci d'avance
Cordialement
Partager