Non Malheureusement ! Mais j'ai contourné le problème en important dans une table les données de ladite requête ORACLE.
En voici juste le code d'importation : ( Ce que je fait à chaque fois c'est d'importer la table V_Cheqrej tout en me gardant de le supprimer avant importation si elle existe .)
Rmq : la chaine ODBC est simplement obtenue par requête sql direct !
Bonne inspiration 
ChaineOdbc = "ODBC;DSN=ORION BACKUP;UID=INTUSR;PWD=INTUSR;DBQ=EXPBACK;DBA=W;APA=T;EXC=F;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;GDE=F;FRL=F;BAM=IfAllSuccessful;MTS=F;MDI=F;CSR=F;FWC=F;PFC=10;TLO=0;"
tab1 = "RejetCheque"
If ExistTable(tab1, True) Then
DoCmd.DeleteObject acTable, tab1
DoCmd.TransferDatabase acImport, "ODBC", ChaineOdbc, acTable, "V_CHQREJ", tab1 ' importation de V_CHQREJ dans tab1
Call RenommerChamp("RejetCheque", "NOM_CLIENT", "NOM")
Else
DoCmd.TransferDatabase acImport, "ODBC", ChaineOdbc, acTable, "V_CHQREJ", tab1
Call RenommerChamp("RejetCheque", "NOM_CLIENT", "NOM")
End If
avec exist table la fonction suivante :
Public Function ExistTable(ByVal strTabl As String, IsTabl As Boolean) As Boolean
Dim tbl As QueryDef
Dim tbl1 As TableDef
If IsTabl = False Then ' pour les requêtes
ExistTable = False
For Each tbl In CurrentDb.QueryDefs
If tbl.Name = strTabl Then
ExistTable = True
Exit Function
End If
Next tbl
Else
ExistTable = False ' pour les tables
For Each tbl1 In CurrentDb.TableDefs
If tbl1.Name = strTabl Then
ExistTable = True
Exit Function
End If
Next tbl1
End If
End Function