Discussion :

[planete.gonz]

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

[Invité]

Bonjour

Essayes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox xlSheet.Cells(3,5)

Sans les "", cela n'est utilisé que dans l'objet Range.

Philippe

[planete.gonz]

merci pour ta réponse, mais j'ai toujours le même problème. Avec .Range("A5"), cela ne fonctionne pas aussi.

[planete.gonz]

j'ai trouvé, c'est parce qu'il ouvre le CSV n'importe comment, ainsi il n'a de données sur la première colonne.

Nouvelle question : Comment spécifier le format .CSV afin de le forcer à l'ouvrir selon la norme ?

Merci

Cdlt

Adrien

[kan630]

ce n'est peut etre pas la réponse que tu attends mais...
Si tu dois juste choper quelques valeurs dans un .csv
Ouvre le plutot comme un simple fichier texte avec un truc du style

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Open MonFichier For Read  As #1

Et chope le contenu des cellules ligne par ligne avec un split sur ";"