Bonjour,
j'essaye de récuperer des valeurs écrites dans une feuille de calcul Excel. Pour cela j'ai écrit le code suivant :
Seulement il m'affiche une boite de dialogue vide, d'ou cela provient-il ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Dim xlApp As Excel.Application Dim xlSheet As Excel.Worksheet Dim xlBook As Excel.Workbook Dim MaTable As DAO.Recordset Dim i As Integer Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Open(txtFilePath) Set xlSheet = xlBook.Worksheets("Affaires") i = 2 MsgBox xlSheet.Cells("3,5")
Merci de votre aide
Cdlt
Adrien
Partager