problème avec excel sous VB6
Bonjour je souhaite écrire des valeurs dans un fichier excel lorsuqe j'appele la procédure enregistrement_mesures.
Mais j'ai un soucis en effet, seulement "Enregistrement des mesures" est afficehr dans mon fichier titi.xls alros que mon tableua pour remplir les autres cases contient des données.
Pouvez vous m'aider?
Merci.
voici mon code :
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
41
42
43
44
|
Private Sub enregistrement_mesures()
'enregistrement des mesures dans un fichier excel
'Déclaration des variables
Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel
Dim i As Integer
'Ouverture de l'application
Set appExcel = CreateObject("Excel.Application")
'Ajout d'un classeur car à l'ouverture d'Excel il n'y a aucun classeur d'ouvert
'appExcel.Workbooks.Add 'Ceci n'est nécessaire que si vous n'ouvrez pas un fichier existant
'Récupération du classeur par défaut
'Set wbExcel = appExcel.ActiveWorkbook
'Récupération de la feuille par défaut
'Set wsExcel = wbExcel.ActiveSheet
'appExcel.Visible = True
Set wbExcel = appExcel.Workbooks.Open("C:\titi.xls")
Set wsExcel = wbExcel.Worksheets(1)
wsExcel.Cells(1, 1).value = "Enregistrement des mesures"
For i = 1 To i = 100
wsExcel.Cells(i, 2).value = tension_mesuree(i - 1, 0)
Next i
'wbExcel.SaveAs ("C:\titi.xls")
wbExcel.Close
appExcel.Quit
Set wsExcel = Nothing
Set wbExcel = Nothing
Set appExcel = Nothing
End Sub |
