Creation d'un fichier Excel

Bonjour,

Je souhaite créer un fichier excel mais j'ai du mal. J'ai une erreur lors du clik sur le bouton :

erreur à la ligne Dim exc As New Application
= "L'exception SerurityException n'a pas étét gérée.
Cet assembly n'autorise pas les appelants d'un niveau de confiance partiel."

et

WriteToExcel est souligné et je ne sais pas pourquoi.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
Imports Microsoft.Office.Interop.Excel
 
Public Class PV
 
    Private Sub PROCES_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        lblDate.Text = "Nous sommes le " & Date.Today & "."
    End Sub
 
    Private Sub btnVoir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVoir.Click
        Dim exc As New Application
        Dim book As Workbook
        Dim sheet As Worksheet
        Dim r As Range
        Dim firstcell As Range
        Dim lastcell As Range
        Dim rngg As String(,)
 
        exc.Visible = True 'la fenêtre excel est visible
        book = exc.Workbooks.Add(1) 'on ouvre un classeur dans excel
        sheet = book.Worksheets(1) 'on ouvre une feuille dans le classeur excel
         WriteToExcel(sheet, 1, 1, "Acquisition temps réel") 'on écrit "acquisition temps réel" à l'intersection de la ligne 1 et la colonne 1
         WriteToExcel(sheet, 2, 1, "Visualiser graphique appuyer sur ctrl+W")
        Dim rng As String(,)
        ReDim rng(5, 5)
 
        rng(0, 0) = "Date et heure"
        'on choisit l'intersection de la ligne 0 et de la colonne 0 pour écrire "date et heure"
        rng(0, 3) = "Puissance kW"
        'on choisit l'intersection de la ligne 0 et de la colonne 3 pour écrire "puissance W"
        rng(0, 4) = "Tension V"
        'on choisit l'intersection de la ligne 0 et de la colonne 4 pour écrire "tension V"
        rng(0, 5) = "Courant A"
        'on choisit l'intersection de la ligne 0 et de la colonne 5 pour écrire "courant A"
 
          WriteToExcel(sheet, 3, 1, rng)
        'on écrit dans la feuille les expressions vu au-dessus en initialisant le curseur à la ligne 3 et la colonne 1
        MessageBox.Show("ok")
    End Sub
End Class

Merci de votre aide car je ne sais vraiment pas quoi faire et pourtant j'ai cherché sur le net car google est mon ami mais là il n'est pas très copain copain ...

Citation:

Envoyé par Poup62

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
Imports Microsoft.Office.Interop.Excel
 
Public Class PV
 
Private Sub PROCES_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
lblDate.Text = "Nous sommes le " & Date.Today & "."
End Sub
 
Private Sub btnVoir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVoir.Click
Dim exc As New Application
Dim book As Workbook
Dim sheet As Worksheet
Dim r As Range
Dim firstcell As Range
Dim lastcell As Range
Dim rngg As String(,)
 
exc.Visible = True 'la fenêtre excel est visible
book = exc.Workbooks.Add(1) 'on ouvre un classeur dans excel
sheet = book.Worksheets(1) 'on ouvre une feuille dans le classeur excel
WriteToExcel(sheet, 1, 1, "Acquisition temps réel") 'on écrit "acquisition temps réel" à l'intersection de la ligne 1 et la colonne 1
WriteToExcel(sheet, 2, 1, "Visualiser graphique appuyer sur ctrl+W")
Dim rng As String(,)
ReDim rng(5, 5)
 
rng(0, 0) = "Date et heure"
'on choisit l'intersection de la ligne 0 et de la colonne 0 pour écrire "date et heure"
rng(0, 3) = "Puissance kW"
'on choisit l'intersection de la ligne 0 et de la colonne 3 pour écrire "puissance W"
rng(0, 4) = "Tension V"
'on choisit l'intersection de la ligne 0 et de la colonne 4 pour écrire "tension V"
rng(0, 5) = "Courant A"
'on choisit l'intersection de la ligne 0 et de la colonne 5 pour écrire "courant A"
 
WriteToExcel(sheet, 3, 1, rng)
'on écrit dans la feuille les expressions vu au-dessus en initialisant le curseur à la ligne 3 et la colonne 1
MessageBox.Show("ok")
End Sub
End Class

Hello
il faut que tu précises Excel.Application, ton erreur vient de là je pense.
Sinon voilà comment je m'y prend

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
 
    Imports Microsoft.Office.Interop.Excel
    ' je déclare également l'Office librairy
    Dim exc As Excel.Application
    Dim book As Excel.Workbook
    Dim sheet As Excel.Sheets
 
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 
    'ouverture de l'application et du classeur
        exc = New Excel.Application ' Création de l'application
        ' Ouverture de la feuille Excel
        exc.Workbooks.Open(FileName:="E:\Mes Documents\test.xls")
        ' pour un classeur existant
        book = exc.Workbooks.Add()
        ' pour un nouveau classeur

Bonne continuation
Grrr

Réponse

Merci à toi l'ami