Bonjour,

j'essaye de récuperer des valeurs écrites dans une feuille de calcul Excel. Pour cela j'ai écrit le 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
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")
Seulement il m'affiche une boite de dialogue vide, d'ou cela provient-il ?

Merci de votre aide

Cdlt

Adrien