Copier Access vers Excel Erreur d'exéc 3027

Bonjour,
Bonjour à l'aide
Je me noie parmi mes codes
J'ai aujourd'hui le message " Erreur d'exécution '3027'. Mise à jour impossible. La base de données ou l'objet est en lecture seule"

alors que je souhaite enregistrer une requête access 97 sous excel 97.

Jeudi c'était OK, Aujourd'hui je n'y arrive plus
voici mon code :

Voici mon Code :

Public Sub export_sous_excel()


'On Error GoTo Err_export_sous_excel
Dim rap As Object
Dim chemin_repertoire As String
Dim ObjetAppImp As Object
Dim util As String
Dim mdp As String

chemin_repertoire = "D:\_Perso\Ltravail\vérification\detail\"



'désactive les messages
DoCmd.SetWarnings False

' execute la première requete de création de la table R05_creation T_Admin_PG_revu_suppression_0562_0662_0762
DoCmd.OpenQuery "R05_creation T_Admin_PG_revu_suppression_0562_0662_0762", acNormal, acEdit
' execute la seconde requete de suppression des données TR OK
DoCmd.OpenQuery "R07_suppression_0662_0762_Aff_2006", acNormal, acEdit

'execute la 3ème à ....

'Si ajout de req suppression il faut modifier et ajouter cette requête


DoCmd.OpenQuery "R08_suppression_0562_0662_rad_susp2006", acNormal, acEdit
DoCmd.OpenQuery "R09_suppression_0562_Rad2005", acNormal, acEdit
DoCmd.OpenQuery "R10_suppression_0762_aff2007", acNormal, acEdit
DoCmd.OpenQuery "R11_suppression_0662_rad_susp2006_aff2006", acNormal, acEdit
DoCmd.OpenQuery "R12_suppression_0762_rad_susp2007_aff2007", acNormal, acEdit
DoCmd.OpenQuery "R13_suppression_0662_0762_rad_susp2007_aff2006", acNormal, acEdit

'execute la dernière requête avec les résultats:

DoCmd.OpenQuery "R20_liste comptes à revoir", acNormal, acEdit

' exporte sous excel avec le nom et la date du jour

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "R20_liste comptes à revoir", "D:\_Perso\Ltravail\vérification\detail\Liste des comptes à vérifier_" & Day(Date) & "_" & Month(Date) & "_" & Year(Date) & "_.xls"
'fermer la requête R20_liste comptes à revoir

DoCmd.Close acQuery, "R20_liste comptes à revoir"
MsgBox ("Les liste des comptes à vérifier est enregistrée sous Excel")

'Pour les erreurs:
Exit_export_sous_excel:
Exit Sub
Err_export_sous_excel:
On Error Resume Next
MsgBox Err.Description
Resume Exit_export_sous_excel



End Sub

Quelqu'un peut-il m'aider ? dans un langage facile vu mon niveau..

Dés lors que mon chemin est court pour l'enregistrement sous excel du style D:\perso\,ça marche mais si je met un chemin long çà ne marche plus.

De plus j'aimerais bien integrer dans mon code le chemin_repertoire déclaré pour eviter les erreurs.
merci d'avance pour l'aide

merci d'avance