Finalement j'ai réussi à bidouiller un peu avec la code suivant
Plus accessible pour moi... je garde ton code pour l’exportation du fichier et celui ci-dessous pour l'ouverture du fichier.
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
Merci beaucoup
Partager