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.
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 :
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
----------------------------------------------------------
Voilà tout, je m'excuse si c'est trop.
Merci d'avance.
Merci à vous.
Partager