Moi j'ai fai sa et sa marche pour ouvrir une nouvelle page excel:
variables:
Dim excel As New Excel.Application
Dim workbook As Excel.Workbook
Dim worksheet As Excel.Worksheet
Dim r As Excel.Range
Dim firstcell As Excel.Range
Dim lastcell As Excel.Range
Dim rngg As String(,)
penser a ouvrir les librarie
mon prog et comment on ecri dedans:
Private Sub excell()
excel.Visible = True 'la fenêtre excel est visible
workbook = excel.Workbooks.Add(1) 'on ouvre un classeur dans excel
worksheet = workbook.Worksheets(1) 'on ouvre une feuille dans le classeur excel
WriteToExcel(worksheet, 1, 1, "Acquisition temps réel") 'on écrit "acquisition temps réel" à l'intersection de la ligne 1 et la colonne 1
WriteToExcel(worksheet, 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(worksheet, 3, 1, rng)
'on écrit dans la feuille les expressions vu au-dessus en initialisant le curseur à la ligne 3 et la colonne 1
End Sub
si ya un probleme dite le moi