Discussion :

[aminou914]

Bonjour tout le monde,

Je remercie d'abord ce site pour ses énormes aides, il n'en a pas fait peu

Sinon j'avais une question à poser dans cette discussion, alors que je me retrouve avec un autre souci ^^'

Pour le souci, j'implémente le code ci-dessous sous l'événement 'Load' du formulaire, j'ai l'impression qu'il ne s'exécute même pas, d'autant plus qu'il ne signale aucune erreur vu que le fichier Excel et le port COM1 n'existent pas.

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 xls = Microsoft.Office.Interop.Excel
 
Public Class Form1
    'Excel objects variants
    Dim path_xls As String
    Dim oxls As New xls.Application 'Excel object
    Dim obook As xls.Workbook       'Workbook object
    Dim osheet As xls.Worksheet     'Worksheet object
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        path_xls = "C:\1Excel\test.xlsx"
        oxls.Workbooks.Open(path_xls)
        obook = oxls.Workbooks(oxls.Workbooks.Count)
        osheet = obook.Worksheets(obook.Sheets.Count)
 
        'Configuring SerialPort1 (MSComm)
        SerialPort1.PortName = "COM1"
        'Ouvrir la connexion
        SerialPort_BV.Open()
    End Sub

Je teste le code en affichant le nom du fichier Excel lors du 'Click' sur le formulaire et j'ai cette erreur, comme quoi pas de valeur affectée à l'objet :

----------------------------------------------------------

Voilà tout, je m'excuse si c'est trop.

Merci d'avance.

Merci à vous.