SuppotDeSaTante Aka dje69r | Dans un module d'access
Code :
- DoCmd.TransferSpreadsheet acExport, 8, "NomDeTaTable/Requete", "C:\Classeur1.xls", True, ""
- Set AppExc= CreateObject("Excel.application" )
- AppExc.Workbooks.Open Filename:="C:\Classeur1.xls"
- AppExc.Cells(1, 1).Select
- AppExc.Selection.Font.Bold = True
- AppExc.Selection.Font.ColorIndex = 5
|
---------------
Soyez malin, louez entre voisins !
|