Finalement j'ai réussi à bidouiller un peu avec la code suivant

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Commande78_Click()
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "rqStats_magasin", "C:\BD\W.O Magasin.xls", True, "Résultat"
 
    Dim strNomFic As String
    Dim Xl As Excel.Application
    Dim Classeur As Excel.Workbook
    Dim Feuille As Excel.Worksheet
    Set Xl = New Excel.Application
    Xl.Visible = True
    Set Classeur = Xl.Workbooks.Open("c:\BD\W.O Magasin.xls")
    Set Feuille = Classeur.Worksheets("Résultat")
    strNomFic = "C:\BD\W.O Magasin.xls"   ' ATTENTION: avec les versions récentes d'Excel, il faut mieux enregistrer sous "xlsx"
    Set oWkb = oApp.Workbooks.Open(strNomFic)
 
  Debug.Print Feuille.Range("A1")
 
    Classeur.Close False
    'Xl.Quit
End Sub
Plus accessible pour moi... je garde ton code pour l’exportation du fichier et celui ci-dessous pour l'ouverture du fichier.

Merci beaucoup