Discussion :

[j.sineau]

Bonjour,

Dans mon application vb.net, je souhaite lire des cellules d'un fichier excel.

Je donc tapé le code suivant : (source trouvé dans une autre discussion)

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
20
 
Imports Microsoft.Office.Interop
Public Class Form1
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim XlApp As New app excel.Application
        Dim Feuil As New excel.Worksheet
 
        XlApp.Workbooks.Open("C:\Classeur1.xls")
 
        Feuil = CType(XlApp.Worksheets.Item(2), excel.Worksheet)
 
        Dim MaVar As String = CStr(Feuil.Range("A1").Value)
 
        MessageBox.Show(MaVar)
 
    End Sub
 
End Class

Le problème est qu'il ne veut pas de l'imports car il me dit :

L'espace de noms ou le type spécifié dans les Imports 'Microsoft.Office.Interop' ne contient aucun membre public ou est introuvable. Vérifiez que l'espace de noms ou le type est défini et qu'il contient au moins un membre public. Vérifiez que le nom de l'élément importé n'utilise pas d'autres alias.

Pouvez vous m'aider car je ne sais vraiment pas comment faire.
Merci d'avance

[Skalp]

Lis cet article, ça devrait t'aider : Pilotage de l'application Office Excel (Excel Automation)

[j.sineau]

Tout d'abord merci Skalp car c'est ce que je cherchais, un tutoriel qui explique correctement.

Comme le problème est résolu, je donne une explication concrète afin d'en faire profit à tout le monde.

Tout d'abord, j'ai ajouté la référence Microsoft Excel Object Library 9.0, Pourquoi 9 car j'utilise Excel 2000.
Une fois cette référence ajouté, deux dll se sont ajoutées au projet : Interop.Office.dll et Interop.Excel.dll, puis voici le code que j'ai tapé et oh! miracle ça marche.

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
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim AppExcel As New Excel.Application
        Dim Classeur As Excel.Workbook = AppExcel.Workbooks.Open("C:\Classeur1.xls")
        Dim Feuille As Excel.Worksheet = Classeur.ActiveSheet
        Dim MaVar As String
 
        MaVar = Feuille.Cells(2, 1).Value
        MessageBox.Show(MaVar)
 
    End Sub
 
End Class

Encore merci Skalp

[the_red_skin]

Merci, ça m'a justement aidé !