madb.Execute ("Drop Table T_export")
madb.Execute ("SELECT T_Tempo_Verre.* INTO T_Export FROM T_Tempo_Verre INNER JOIN T_Fab_MDD ON T_Tempo_Verre.Code_fab = T_Fab_MDD.Code WHERE (((T_Tempo_Verre.Finess)=('" & num_finess & "')) AND ((T_Fab_MDD.Libelle)=('" & fabricant & "')) AND ((T_Tempo_Verre.Inno)='0'));")
CurrentDb.TableDefs("T_export").Fields.Delete "Finess"
CurrentDb.TableDefs("T_export").Fields.Delete "Code_Fab"
CurrentDb.TableDefs("T_export").Fields.Delete "Inno"
CurrentDb.TableDefs("T_export").Fields.Delete "Percee"
RefreshDatabaseWindow
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "T_export", "C:\Documents and Settings\cboureau\Bureau\Test\" & nomFichier, True
Partager