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