Export Access dans un nouvel onglet d'Excel

Bonjour à tous,
Je voudrais exporter le résultat d'une requête Access dans un fichier Excel.
L'export fonctionne à condition que le classeur Excel n'existe pas, sinon
j'obtiens une erreur.
Dans le classeur Excel, j'ai des procédures qui fonctionnent à l'ouverture
du classeur pour :
- adapter la mise en page
- positionner des filtres
- faire des calculs
...
Il faut donc que je garde ce classeur. L'idéal serait que j'exporte sous un
autre onglet pour récupérer les données dans mon onglet de traitement par la
suite.
Merci d'avance pour vos idées
Dan

Ci-dessous mon code actuel :
Dim strFichierDestination As String

Private Sub Btn_ExportExcel_Click()
On Error GoTo Err_Btn_Export_Excel_Click

Dim strDbPath As String, strDbFile As String
Dim CurrentDbDir As String

Dim strNomTable As String
strNomTable = "Rq_Programmation" 'Nom de la table à exporter

strDbPath = CurrentDb.Name
strDbFile = Dir(strDbPath)
CurrentDbDir = Left(strDbPath, Len(strDbPath) - (Len(strDbFile) + 1))

'Création de l'adresse du fichier de destination
strFichierDestination = CurrentDbDir & "\" & strNomTable & ".xls"


'Exportation de la table
DoCmd.SetWarnings False
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, _
strNomTable, strFichierDestination
DoCmd.SetWarnings True

Call OuvrirFichierExcel_Click

Exit_Btn_Export_Excel_Click:
Exit Sub

Err_Btn_Export_Excel_Click:
MsgBox Err.Description
Resume Exit_Btn_Export_Excel_Click
End Sub




Private Sub OuvrirFichierExcel_Click()
On Error GoTo Err_OuvrirFichierExcel_Click
Dim oApp As Object

Set oApp = CreateObject("Excel.Application")
oApp.Visible = True

oApp.Workbooks.Open strFichierDestination

On Error Resume Next
oApp.UserControl = True

Exit_OuvrirFichierExcel_Click:
Exit Sub

Err_OuvrirFichierExcel_Click:
MsgBox Err.Description
Resume Exit_OuvrirFichierExcel_Click
End Sub