Discussion :

[Ericntoukam]

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 :

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
 
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.

[Pol63]

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

[chrismonoye]

Bonsoir,
MSDN dit :

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 :

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
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 :

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

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

[Ericntoukam]

Bonsoir,
MSDN dit :

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

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
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 :

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

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

[Ericntoukam]

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 .