problème avec excel sous VB6

**sandball22** · 23/02/2011, 10h32

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 :

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

**sandball22** · 23/02/2011, 10h46

J'ai trouvé mon erreur mais j'ai quand même une quesetion, est ce normal qu'on me demande de sauvegarder le fichier? peut on éviter cette étape tout sauvegardant le contenu du fichier? (en gros éviter la demande à l'utilisatuer)?