Ouvrir un fichier excel sous visual studio 2008

Version imprimable

Bonsoir à tous, excusez- moi , je débute en vb et j'aimerai ouvrir un fichier excel sous vb express 2010
en faite j'ai eu le code sur le forum et le voici:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Imports Microsoft.Office.Interop Public Class Form1 Dim appExcel As Excel.Application 'Application Excel Dim wbExcel As Excel.Workbook 'Classeur Excel Dim wsExcel As Excel.Worksheet 'Feuille Excel 'Ouverture de l'application appExcel = CreateObject("Excel.Application") 'Ouverture d'un fichier Excel wbExcel = appExcel.Workbooks.Open("D:\test.xlsx") 'wsExcel correspond à la première feuille du fichier wsExcel = wbExcel.Worksheets(1) Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub End Class
Seulement cela m'affiche "déclarations attendues". Apparemment ça doit être un problème de syntaxe à ce niveau :

appExcel = CreateObject("Excel.Application")

wbExcel = appExcel.Workbooks.Open("D:\test.xlsx")

wsExcel = wbExcel.Worksheets(1)

Pourriez-vous m'aider SVP.

17/05/2013, 23h10
Pol63

on ne peut mettre du code que dans un membre de classe (=sub/function/property), pas dans une classe directement

Bonsoir,
MSDN dit :

Citation:

Seules les déclarations sont autorisées à l'extérieur des procédures.
Une instruction non déclarative, telle qu'une assignation, ne peut apparaître à l'extérieur de toute procédure.

Elle doit donc être déplacée dans le corps d'une procédure.
Comme ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Class Form1
 
    Dim appExcel As Excel.Application 'Application Excel
    Dim wbExcel As Excel.Workbook 'Classeur Excel
    Dim wsExcel As Excel.Worksheet 'Feuille Excel
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Ouverture de l'application
        appExcel = CreateObject("Excel.Application")
        'Ouverture d'un fichier Excel
        wbExcel = appExcel.Workbooks.Open("D:\test.xlsx")
        'wsExcel correspond à la première feuille du fichier
        wsExcel = wbExcel.Worksheets(1)
 
        appExcel.Visible = True
    End Sub
End Class

Aussi, il est autorisé de donner une valeur initiale à la variable que l'on déclare hors procédure, donc ceci devrait fonctionner aussi :

Code:

1
2
3
4
5
6
7
8
9
10
Public Class Form1
 
    Dim appExcel As Excel.Application = CreateObject("Excel.Application") 'Application Excel
    Dim wbExcel As Excel.Workbook = appExcel.Workbooks.Open("D:\test.xlsx") 'Classeur Excel
    Dim wsExcel As Excel.Worksheet = wbExcel.Worksheets(1) 'Feuille Excel
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        appExcel.Visible = True
    End Sub
End Class

Citation:

Envoyé par chrismonoye

Bonsoir,
MSDN dit :

Elle doit donc être déplacée dans le corps d'une procédure.
Comme ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Class Form1
 
    Dim appExcel As Excel.Application 'Application Excel
    Dim wbExcel As Excel.Workbook 'Classeur Excel
    Dim wsExcel As Excel.Worksheet 'Feuille Excel
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Ouverture de l'application
        appExcel = CreateObject("Excel.Application")
        'Ouverture d'un fichier Excel
        wbExcel = appExcel.Workbooks.Open("D:\test.xlsx")
        'wsExcel correspond à la première feuille du fichier
        wsExcel = wbExcel.Worksheets(1)
 
        appExcel.Visible = True
    End Sub
End Class

Aussi, il est autorisé de donner une valeur initiale à la variable que l'on déclare hors procédure, donc ceci devrait fonctionner aussi :

Code:

1
2
3
4
5
6
7
8
9
10
Public Class Form1
 
    Dim appExcel As Excel.Application = CreateObject("Excel.Application") 'Application Excel
    Dim wbExcel As Excel.Workbook = appExcel.Workbooks.Open("D:\test.xlsx") 'Classeur Excel
    Dim wsExcel As Excel.Worksheet = wbExcel.Worksheets(1) 'Feuille Excel
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        appExcel.Visible = True
    End Sub
End Class

19/05/2013, 17h58
Ericntoukam

Merci pour votre aide Chrismoneye

Bonsoir ChrisMoneye,

Je tiens à vous remercier personnellement pour votre intervention qui m'a vraiment éclairée et m'a permis de trouver une solution à mon problème ponctuel que j'avais.
Encore merci .